Question

Составить алгоритм и программу квадратного уравнения, вариант D=0 не учитывать. A, B, C-вводится с клавиатуры. Если >0 вычислить корни , если меньше вывести на экран. Нет корней.
Программа на языке паскаль.

Answer 1

Program korni;

var a,b,c,d,x1,x2: real;

Begin

Writeln ('Введите значение a',a);

Readln (a);

Writeln ('Введите значение b',b);

Readln (b);

Writeln ('Введите значение c',c);

Readln (c);

d:=sqr(b)-4*a*c;

writeln ('d=', d);

if d>0 then

begin

x1:=(-b+sqrt(d))/2*a;

x2:=(-b-sqrt(d))/2*a;

Writeln (' x1=', x1);

Writeln(' x2=', x2);

end;

if d<0 then writeln('Нет корней');

end.