Решение квадратного уравнения на языке Pascal

Количество просмотров: 677

Задача

Решим квадратное уравнение на языке Pascal. Ввод коэффициентов осуществляется с клваиатуры

Решение

var a,b,c,D,x,x1,x2: double;
begin
writeln('введите а=');
readln(a);
writeln('введите b=');
readln(b);
writeln('введите c=');
readln(c);
D:=b*b-4*a*c;
if(D<0) then writeln('нет корней')
else if(D=0) then 
begin
x:=-b/(2*a);
end
else 
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln('x1=', x1);
writeln('x2=', x2);
end
end.

 

© 2015-2018 Goodweb.me --- Карта сайта --- info@goodweb.me

Наверх