Составить алгоритм решения задачи с помощью алгоритмического языка Pascal и с помощью...

Question

Составить алгоритм решения задачи с помощью алгоритмического языка Pascal и с помощью блок-схем, используя конструкцию алгоритма с ветвлением.

Написать алгоритм решения задачи, которая решает уравнение ax + b = 0 относительно x для любых чисел a и b, введенных с клавиатуры. Все числа считаются действительными.

Answer 1

program qq;

uses crt;

var a,x,b:real;

begin

crlscr;

writeln('введите а и b ');

readn(a,b);

if a=0 then

if b=0 then writeln('x любое число')

else writeln('решений нет ')

else begin

x:=(-b/a);

writeln (x);

end;

readln

end.

 

 

сорри за то что все в куче