Блог учителя Информатики

Решение задачи Begin40


Условие задачи:

Найти решение системы линейных уравнений вида
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.


uses
  PT4;

var
  a1, b1, c1, a2, b2, c2, d, x, y: real;

begin
  Task('Begin40');
  read(a1, b1, c1, a2, b2, c2);
  d := a1 * b2 - a2 * b1;
  x := (c1 * b2 - c2 * b1) / d;
  y := (a1 * c2 - a2 * c1) / d;
  write(x, y);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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