(Помогите сделать дз по информатике!(Паскаль)

Начинающий
Начинающий
Статус
Оффлайн
Регистрация
27 Фев 2020
Сообщения
74
Реакции
4
Привет нам задали сделать програму которая решает квадратные уравнения через дикриминант. У меня все вроде получилось но есть одна проблема!
Код
Код:
Expand Collapse Copy
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.
Когда програма завершена и дискриминант равен нулю или меньше нуля случается при выыполнении условия if програма должна завершаться, но она не завершается!!! Что делать подскажите пожалуйста!
 
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Назад
Сверху Снизу