Составить алгоритм и программу квадратного уравнения, вариант D=0 не учитывать. A, B, C-вводится с клавиатуры. Если >0 вычислить корни , если меньше вывести на экран. Нет корней.
Программа на языке паскаль.
Программа на языке паскаль.
More Questions From This User See All
Answers & Comments
Verified answer
Program korni;var a,b,c,d,x1,x2: real;
BeginWriteln ('Введите значение 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
beginx1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
Writeln (' x1=', x1);
Writeln(' x2=', x2);
end;if d<0 then writeln('Нет корней');
end.