Регистрация
sanadakim
19.11.2022 00:35
Информатика
Есть ответ 👍

Составить алгоритм и программу квадратного уравнения, вариант d=0 не учитывать. a, b, c-вводится с клавиатуры. если > 0 вычислить корни , если меньше вывести на экран. нет корней. программа на языке паскаль.

136
276
Посмотреть ответы 2

Ответы на вопрос:

uldairuslanova
uldairuslanova
4,7(17 оценок)
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.
Maximka200117
Maximka200117
4,4(98 оценок)
For index : = 11 to 20 do begin     towrite : =  index * index;     writeln(towrite); end;

Популярно: Информатика