Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
2 / 2 / 0
Регистрация: 09.11.2014
Сообщений: 124
1

Встречено else, а ожидалось ';'

09.11.2014, 15:42. Просмотров 2124. Ответов 2
Метки нет (Все метки)


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a1,b1,a,b: real;
begin
Writeln('Введите А');
readln(a);
Writeln('Введите B');
readln(b);
a1:=0;
b1:=0;
if a>b then
a1:=(a+b)*2;
b1:=(a+b)/2
else
a1:=(a+b)/2;
b1:=(a+b)*2;
writeln('А=', a1,' В=',b1);
end.
Требуется ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением. Программа выдает ошибку, что не так?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.11.2014, 15:42
Ответы с готовыми решениями:

Встречено 'i', а ожидалось ';'
во всех строках типа writeln('введите координаты X Y Z 'i'й точки:'); не хочет добавлять цифру...

Встречено 'else', а ожидалось ';'
var a,b,c,D, x1, x2: real; begin writeln('Дано уравнение вида ax^2+bx+c=0'); writeln...

Встречено '.', а ожидалось ';'
Привет, форум. Не могу найти ошибку, поможете? function Chr(arg : integer) : char; function...

Встречено ';', а ожидалось ')'
Program2.pas(19) : Str (r:integer; buf:string); ошибка Встречено ';', а ожидалось ')'

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
Эксперт Pascal/Delphi
6584 / 4433 / 4723
Регистрация: 05.06.2014
Сообщений: 21,768
09.11.2014, 15:51 2
Pascal
1
2
3
4
5
6
7
8
9
10
if a>b then
begin
 a1:=(a+b)*2;
 b1:=(a+b)/2;
end
else
begin
 a1:=(a+b)/2;
 b1:=(a+b)*2;
end;
0
0 / 0 / 1
Регистрация: 10.11.2014
Сообщений: 19
10.11.2014, 18:39 3
забыли вставить begin и end
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program upe;
var
a1,b1,a,b: real;
begin
Writeln('Введите А');
readln(a);
Writeln('Введите B');
readln(b);
a1:=0;
b1:=0;
if a>b then
begin
a1:=(a+b)*2;
b1:=(a+b)/2;
end
else
begin
a1:=(a+b)/2;
b1:=(a+b)*2;
writeln('А=', a1,' В=',b1);
end
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.11.2014, 18:39

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

Встречено 'else', а ожидалось ';'
program Nikita; var A, B, N, x : integer; d, F :real; Function Cos(X : integer): Real;...

Встречено 'until', а ожидалось ';'
Program calculator; //v1.1 var a,b,rez:real;oper,calc:string;flag_start:boolean; Begin...

Встречено '.', а ожидалось ';'
На 169 строке возникает ошибка "Встречено '.', а ожидалось ';'". Помогите, пожалуйста, решить ее. ...

Встречено 'else', а ожидалось ';'
program lol; uses crt; const nmax = 20; type matr = array of integer;


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

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

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