Вопрос школьника по предмету Информатика
Составить алгоритм и программу квадратного уравнения, вариант D=0 не учитывать. A, B, C-вводится с клавиатуры. Если >0 вычислить корни , если меньше вывести на экран. Нет корней.
Программа на языке паскаль.
Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
1)земля вращается вокруг своей оси
2)земля движется вокруг солнца
3)наклон земной оси