Найти решение системы линейных уравнений вида 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 — Pascal(Паскаль)

Program linur;
var A1, B1, C1, A2, B2, C2, x, y, D: real;
begin
    write ('Введите коэффициенты A1 и A2: ');
    readln (A1, A2);
    write ('Введите коэффициенты B1 и B2: ');
    readln (B1, B2);
    write ('Введите коэффициенты C1 и C2: ');
    readln (C1, C2);
    D := A1 * B2 - A2 * B1;
    x := (C1 * B2 - C2 * B1) / D;
    y := (A1 * C2 - A2 * C1) / D;
    writeln ('x = ', x:5:2);
    writeln ('y = ', y:5:2);
end.

Leave a Comment