-
Автор темы
- #1
Привет нам задали сделать програму которая решает квадратные уравнения через дикриминант. У меня все вроде получилось но есть одна проблема!
Код
Когда програма завершена и дискриминант равен нулю или меньше нуля случается при выыполнении условия if програма должна завершаться, но она не завершается!!! Что делать подскажите пожалуйста!
Код
Код:
program discriminant;
uses
crt;
var
a,b,c,s,sc,x1,x2:real;
begin;
textsize(18);
textcolor(blue);
gotoxy(1,1);
write('Введите число a: ');
readln(a);
gotoxy(1,2);
write('Введите число b: ');
readln(b);
gotoxy(1,3);
write('Введите число c: ');
readln(c);
s:=(b*b)-(4*a*c);
gotoxy(1,4);
write('Дискриминант равен: ',s);
sc:=s/s;
if s<0 then; begin; gotoxy(1,5); write('У данного уравнения нет корней'); end;
if s=0 then; begin; gotoxy(1,5); write('У уравнения одно решение'); end;
x1:=(-b-sc)/2*a;
x2:=(-b+sc)/2*a;
if s>0 then
gotoxy(1,5);
write('Уравнение имеет 2 решения');
gotoxy(1,6);
write('x1 = ',x1,' x2 = ',x2);
end.