Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Sarumanovich
0 / 0 / 0
Регистрация: 17.12.2012
Сообщений: 23
#1

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

17.12.2012, 19:08. Просмотров 427. Ответов 2
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста. У меня есть программа, которая решает квадратные уравнения. Но почему-то, когда я пытаюсь добавить оператор else, мне пишет "Ожидался оператор". Этот оператор внизу.
P.S Может это из-за того, что изучаю я Турбопаскаль, а пишу в PascalABC.net ?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2012, 19:08
Ответы с готовыми решениями:

"Встречено 'Else', а ожидалось ';'" и "Встречено 'Else', а ожидался оператор"
В общем нужно написать программу, выводящую все &quot;счастливые&quot; номера билетов, то...

Встречено 'procedure', а ожидался оператор
program lab5; type arr=array of integer; const n=3; var a:arr; ...

Встречено array, а ожидался оператор
В 26 строке выдает ошибку. Program lab8_Smirnov_var10_2; uses crt; const...

Встречено 'procedure', а ожидался оператор
Встречено 'procedure', а ожидался оператор uses graphABC; var i: integer;...

Встречено 'procedure', а ожидался оператор
При попытке компиляции выдаёт: Встречено 'procedure', а ожидался оператор....

2
den57
8 / 8 / 19
Регистрация: 15.12.2012
Сообщений: 75
18.12.2012, 15:58 #2
Ну после оператора end нужно было убрать ;
Вот
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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.
0
Sarumanovich
0 / 0 / 0
Регистрация: 17.12.2012
Сообщений: 23
18.12.2012, 20:08  [ТС] #3
Спасибо большое! Я долго думал и мучался, а ошибка то очень простая. Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2012, 20:08

Program1.pas(12) : Встречено 'else', а ожидался оператор
Program jg; Label 1; Var y,x:integer; Begin y:=6; Write('Введите число...

Встречено 'function', а ожидался оператор. Что не так?
var res:integer; begin readln(x,y); function af(x,y:integer): integer; var...

Можно ли как-то оператор "Random" научить работать с вещественными числами?
Можно ли как-то этот оператор научить работать с вещественными числами? Не хочу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru