Демьян 26 ноября 2019 в 10:45
Напишите программу для решения квадратного уравнения вида ax^2+bx+c, где a не равно 0.
Примечание:
Если ваше условие выполняется и необходимо выполнение более одного действия, используйте для них конструкцию begin end, сохраняя оформление(сдвиг вправо).
Пример: if a>b then begin
a:=b-1;
Writeln('A=',a);
end
else writeln ('B=',b);
Примечание: Во всех задачах предусмотрите очистку экрана при каждом запуске программы и задержку экрана, чтобы не нужно было нажимать Alt+F5. А такое вначале на экране должна отображаться суть программы, не забывайте про грамотные диалоговые моменты.
Напишите программу для решения квадратного уравнения вида ax^2+bx+c, где a не равно 0.
Примечание:
Если ваше условие выполняется и необходимо выполнение более одного действия, используйте для них конструкцию begin end, сохраняя оформление(сдвиг вправо).
Пример: if a>b then begin
a:=b-1;
Writeln('A=',a);
end
else writeln ('B=',b);
Примечание: Во всех задачах предусмотрите очистку экрана при каждом запуске программы и задержку экрана, чтобы не нужно было нажимать Alt+F5. А такое вначале на экране должна отображаться суть программы, не забывайте про грамотные диалоговые моменты.
Var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (b*b-4*a*c)gt;=0 then writeln(deistvitelnie korni est!) else writeln(deistvitelnih korney net);
if (b*b-(4*a*c))gt;0 then begin writeln(2 kornya); writeln(x1= ,(-b-sqrt(b*b-4*a*c))/(2*a)); writeln(x2= ,(-b+sqrt(b*b-4*a*c))/(2*a)) end;
if (b*b-(4*a*c))=0 then begin writeln(1 koren); writeln(x= ,(-b+sqrt(b*b-4*a*c))/(2*a)) end;
end.
begin
readln(a);
readln(b);
readln(c);
if (b*b-4*a*c)gt;=0 then writeln(deistvitelnie korni est!) else writeln(deistvitelnih korney net);
if (b*b-(4*a*c))gt;0 then begin writeln(2 kornya); writeln(x1= ,(-b-sqrt(b*b-4*a*c))/(2*a)); writeln(x2= ,(-b+sqrt(b*b-4*a*c))/(2*a)) end;
if (b*b-(4*a*c))=0 then begin writeln(1 koren); writeln(x= ,(-b+sqrt(b*b-4*a*c))/(2*a)) end;
end.
Компьютеры и вычисления
122
0
Для комментирования необходимо зарегистрироваться на сайте