Решаем задачи Абрамян на Паскале. Begin 40

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

$\begin{cases}A_1*x + B_1*y = C_1,\\A_2*x+B_2*y=C_2,\end{cases}$

заданной своими коэффициентами $A_1$ , $B_1$ , $C_1$ , $A_2$ , $B_2$ , $C_2$ , если известно, что данная система имеет единственное решение. Воспользоваться формулами:

$x=(C_1*B_2-C_2*B_1)/D$ , $y=(A_1*C_2-A_2*C_1)/D$ , где $D=A_1*B_2-A_2*B_1$ .

Решение:

program Begin40;
var
  A1,B1,C1,A2,B2,C2,D,x,y: Real;
begin
  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);
  Writeln('Y равен : ',Y);
end.

program Begin40;

var

A1,B1,C1,A2,B2,C2,D,x,y: Real;

begin

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);

Writeln('Y равен : ',Y);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Begin 40

Комментарии:

Добавить комментарий Отменить ответ