• Я зарабатываю 100 000 RUB / месяц на этом сайте!

    А знаешь как? Я всего-лишь публикую (создаю темы), а админ мне платит. Трачу деньги на мороженое, робуксы и сервера в Minecraft. А ещё на паль из Китая. 

    Хочешь так же? Пиши и узнавай условия: https://t.me/alex_redact
    Реклама: https://t.me/yougame_official

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

Начинающий
Начинающий
Статус
Оффлайн
Регистрация
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 програма должна завершаться, но она не завершается!!! Что делать подскажите пожалуйста!
 
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Назад
Сверху Снизу