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$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
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 можно посмотреть здесь.
Комментарии: