При попытке добавить оператор else, появляется оператор "Ожидался оператор"

@Sarumanovich · Регистрация: 17.12.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста. У меня есть программа, которая решает квадратные уравнения. Но почему-то, когда я пытаюсь добавить оператор else, мне пишет "Ожидался оператор". Этот оператор внизу.
P.S Может это из-за того, что изучаю я Турбопаскаль, а пишу в PascalABC.net ?

Pascal

uses crt;
var a,b,c,D,x1,x2:real;
begin
clrscr;
textcolor(13);
textbackground(10);
writeln('Приветствую Вас в программе, каторая решает ЛЮБЫЕ квадратные уравнения!');
textcolor(4);
textbackground(1);
writeln('а – это коэффициент, стоящий перед х2. Если перед х2 ничего не стоит, значит    а = 1.');
writeln('Введите а и нажмите Enter');
readln(a);
textcolor(7);
textbackground(3);
writeln('b – это коэффициент, стоящий перед х. Если перед х ничего не стоит, значит      b = 1. Если его нет, значит b = 0.');
writeln('Введите b и нажмите Enter');
readln(b);
textcolor(5);
textbackground(8);
writeln('с – это коэффициент, который стоит отдельно ( без х ). Если его нет, значит     с = 0.');
writeln('Введите с и нажмите Enter');
readln(c);
D:=sqr(b)-4*a*c;
if D>0 then
begin
textcolor(3);
textbackground(12);
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
writeln('х1 = ',x1);
writeln('х2 = ',x2);
end;
if D=0 then
begin
textcolor(6);
textbackground(11);
x1:=-b/(2*a);
writeln('x = ',x1);
end;
if D<0 then
begin
textcolor(15);
textbackground(0);
writeln('Уравнение не имеет корней!');
end;
else
writeln('Ошибка ввода! Скорее всего вы ввели буквы, или символы.');
readln
end.

@den57 · 18.12.2012, 15:58

Ну после оператора end нужно было убрать ;
Вот

Pascal

uses crt;
var a,b,c,D,x1,x2:real;
begin
clrscr;
textcolor(13);
textbackground(10);
writeln('Приветствую Вас в программе, каторая решает ЛЮБЫЕ квадратные уравнения!');
textcolor(4);
textbackground(1);
writeln('а – это коэффициент, стоящий перед х2. Если перед х2 ничего не стоит, значит    а = 1.');
writeln('Введите а и нажмите Enter');
readln(a);
textcolor(7);
textbackground(3);
writeln('b – это коэффициент, стоящий перед х. Если перед х ничего не стоит, значит      b = 1. Если его нет, значит b = 0.');
writeln('Введите b и нажмите Enter');
readln(b);
textcolor(5);
textbackground(8);
writeln('с – это коэффициент, который стоит отдельно ( без х ). Если его нет, значит     с = 0.');
writeln('Введите с и нажмите Enter');
readln(c);
D:=sqr(b)-4*a*c;
if D>0 then
begin
textcolor(3);
textbackground(12);
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
writeln('х1 = ',x1);
writeln('х2 = ',x2);
end;
if D=0 then
begin
textcolor(6);
textbackground(11);
x1:=-b/(2*a);
writeln('x = ',x1);
end;
if D<0 then
begin
textcolor(15);
textbackground(0);
writeln('Уравнение не имеет корней!');
end
else
writeln('Ошибка ввода! Скорее всего вы ввели буквы, или символы.');
readln
end.

@Sarumanovich · 18.12.2012, 20:08 **[ТС]**

Спасибо большое! Я долго думал и мучался, а ошибка то очень простая. Спасибо!

@Sarumanovich 0 / 0 / 0 Регистрация: 17.12.2012 Сообщений: 23
	18.12.2012, 20:08 [ТС]	3
	Спасибо большое! Я долго думал и мучался, а ошибка то очень простая. Спасибо! 0