написать програму для ПАСКАЛЬ на уравнение ах(в квадрате)+bx+c=0. нужна только программа, чтобы я ввела в ПАСКАЛЬ.
More Questions From This User See All
написать програму для ПАСКАЛЬ на уравнение ах(в квадрате)+bx+c=0. нужна только программа, чтобы я ввела в ПАСКАЛЬ.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b,c,x1,x2,D:real;
begin
Writeln('Введите коэффициенты квадратного уравнения');
Write('a = '); readln(a);
Write('b = '); readln(b);
Write('c = '); readln(c);
D:=b*b-4*a*c;
if D<0 then writeln('Действительных корней нет')
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln('x1 = ',x1);
Writeln('x2 = ',x2);
readln
end;
end.