"Программы без ошибок можно написать
двумя способами, но работает — третий"
Алан Джей Перлис

Решения задач на тему ввода и вывода данных в Pascal

Найти решение системы линейных уравнений вида

A1*x + B1*y = C1,
 A2*x + B2*y = C2,

заданной своими коэффициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет единственное решение. Воспользоваться формулами:

x = (C1*B2 - C2*B1)/D,
 y = (A1*C2 - A2*C1)/D,
где
D = A1*B2 - A2*B1

program three;
var
   a1,b1,c1,a2,b2,c2,d,x,y:real;
begin
   writeln('Введите коэффициенты:');
   write('a1 = ');
   readln(a1);
   write('b1 = ');
   readln(b1);
   write('c1 = ');
   readln(c1);
   write('a2 = ');
   readln(a2);
   write('b2 = ');
   readln(b2);
   write('c2 = ');
   readln(c2);
   d:=a1*b2-a2*b1;
   x:=(c1*b2-c2*b1)/d;
   y:=(a1*c2-a2*c1)/d;
   writeln('x = ',x:2:2);
   write('y = ',y:2:2);
end.

Назад