VPF::помощ с прогой - Форум программистов

DeMorte

Дата 23.12.2006, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 16.10.2006

Репутация: нет
Всего: нет

народ я тут по самоучителю работаю, там прога надо сделать так, чтоб вводился цифра от 1 до 7, и отображался название дня, вроде все правильно сделал, но не пашет...может с goto перестарался), надо чтоб были исключены несуществующие дни недели(8 to бесконечность ы) и снабдить прогу запросом о окончании работы, надеюсь тут помогут....а может я реально с goto переборщил...

Код


label
   per, kon, nach;
var
   a, c :integer;
begin
nach:
write('budete rabotat? 1-da, vse ostalnoe net!');
readln(c);
if c=1 then goto per
else goto kon;
per:
write('vybirite nomer dnya nedeli');
readln(a);
if (a>7) and (a<0) then goto nach
else
case a of
1 : write('ponedelnik');
2 : write('vtornik');
3 : write('sreda');
4 : write('chetverg');
5 : write('pyatnica');
6 : write('subbota');
7 : write('voskresenie');
kon:
write('spasibo za vnimanie');
readln;
end.

volvo877

Дата 23.12.2006, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Название темы поменяй, или тема закрывается...

Добавлено @ 18:52
По теме: у тебя перед kon: не хватает закрывающего END для Case, поэтому и ошибка - программа даже не будет компилироваться...

DeMorte

Дата 23.12.2006, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 16.10.2006

Репутация: нет
Всего: нет

спасибо за помощ, тему можно закрыть

Zero

Дата 23.12.2006, 20:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(volvo877 @ 23.12.2006, 18:51

)

Название темы поменяй

volvo877, что ты пристал ко всем участникам, нельзя её нам менять... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »