Напишите процедуру, которая выводит ** экран решение линейного алгебраического уравнения...

Question

Напишите процедуру, которая выводит на экран решение линейного алгебраического уравнения . Параметры и являются параметрами процедуры.

Comments

Любое

---

Неа, честно, вообще это не моё, а сдавать надо, помогите пожалуйста, если можно!

---

Наверн))

---

Если ах+ь=о - линейная функция, то пожалуйста помогите, если Вам удобно, написать эту процедуру.

---

паскаль

---

Ну собственно не хотите,как хотите, я Вас не заставляю, просто прошу дружеской, братской помощи, а там уж на Ваше усмотрение.

Answer 1

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

procedure LineEquation(a,b:real; var x:real; var flag:integer);
begin
  if a=0 then flag:=b=0?-2:-1
  else begin x:=-b/a; flag:=0 end
end;

begin
  var a,b,x:real;
  Write('Введите a,b: '); Read(a,b);
  var flag:=1;
  LineEquation(a,b,x,flag);
  case flag of
  0:Writeln('x=',x);
  -1: Writeln('Решений нет')
  else Writeln('Бесконечое множество решений')
  end
end.