Проверить простейшую программу

Евгений Нефёдов · Регистрация: 27.01.2013

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

Писал я простейшую программу про возраст и думал что все прекрасно, но не запускается. Выдает ошибку про константу в строчке "x<=7: writeln ('Вы ребенок');". Причем, у моих друзей выдает вообще другие ошибки. Помогите дауну программирования разобраться в ошибке.

Программа, в зависимости от введенного пользователем возраста, должна выдавать его "статус".

Pascal

Var
 
x: shortint;
 
begin
 
writeln ('Сколько вам лет?');
 
readln (x);
 
case x of
 
x<=7: writeln ('Вы ребенок');
x<=22: writeln ('Вы учащийся');
x>22 and x<=27 ('');
x>27 and x<=60: writeln ('Вы специалист');
x>60: writeln ('Вы пенсионер');
else writeln ('Ошибка');
end;
end.

@somethingicy · 30.01.2013, 01:19

Почему 2 раза end ?

Евгений Нефёдов · 30.01.2013, 01:24 **[ТС]**

один энд для кэйса, второй для всей программы.

HighPredator · 30.01.2013, 01:31

Евгений Нефёдов, прочитайте про оператор case и осознайте в чем ваша ошибка.

Евгений Нефёдов · 30.01.2013, 01:32 **[ТС]**

Все, я все понял
Просто я дурак

я не был толком знаком с кэйсом

я сам исправил прогу:

Pascal

Var
x: integer;
begin
writeln ('Сколько вам лет?');
readln (x);
case x of
0..7: begin
writeln ('Вы ребенок');
end;
8..22: begin
writeln ('Вы учащийся');
end;
23..27:begin
writeln ('Студент');
end;
28..60:begin
writeln ('Вы специалист');
end;
61..100:begin
writeln ('Вы пенсионер');
end;
else writeln ('Ошибка');
end;
end.

@somethingicy 1 / 1 / 0 Регистрация: 28.01.2013 Сообщений: 60
	30.01.2013, 01:19	2
	Почему 2 раза end ? 0

Евгений Нефёдов 0 / 0 / 0 Регистрация: 27.01.2013 Сообщений: 25
	30.01.2013, 01:24 [ТС]	3
	один энд для кэйса, второй для всей программы. 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	30.01.2013, 01:31	4
	Евгений Нефёдов, прочитайте про оператор case и осознайте в чем ваша ошибка. 1

	30.01.2013, 01:32

Опции темы