⇢ На
Наталья
Решить задачу в паскале
написать програмку по которой можно найти корни квадратного уравнения, где а, в, с - произвольные. Д>0 )
ДГ
Дмитрий Голубев
uses crt;
var a,b,c:integer;
d,x1,x2:real;
begin
clrscr;
writeln('HI!!!');
writeln('Программа для решения квадратных уравнений! ');
write('Введите коэффициент при x^2 ');
readln(a);
write('Введите коэффициент при x ');
readln(b);
write('Введите свободный член ');
readln(c);
d:=b*b-4*a*c;
if (d>0) then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('Уравнение имеет 2 корня: ');
writeln('X1=',x1:4:2);
writeln('X2=',x2:4:2);
end
else if (d=0) then
begin
x1:=-b/(2*a);
write('Уравнение имеет 1 корень: ');
writeln('X=',x1:4:2);
end
else
writeln('Уравнение корней не имеет');
readln;
end.
КВ
Катя Васильева
вводишь а в с, проверяешь дискриминант и если он положителен, вуводишь на экран х1 и х2, а иначе сообщение "корней нет"
вот так будет лучше, по-моему
uses crt;
var a,b,c:integer;
d,x1,x2:real;
begin
clrscr;
writeln('Программа для решения квадратных уравнений! ');
write('Введите коэффициент при x^2 --> ');
readln(a);
write('Введите коэффициент при x --> ');
readln(b);
write('Введите свободный член --> ');
readln(c);
d:=b*b-4*a*c;
if (d>=0) then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('Уравнение имеет 2 корня: ');
writeln;
writeln('X1=',x1:4:2);
writeln('X2=',x2:4:2);
end
else
writeln('Уравнение корней не имеет');
writeln('Конец задачи ');
readln;
end.
Похожие вопросы