Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.05.2009, 13:46   #11
Карабин
Пользователь
 
Аватар для Карабин
 
Регистрация: 01.04.2009
Сообщений: 27
По умолчанию Задача с оператором case на Паскале.

Цитата:
Сообщение от maladoy Посмотреть сообщение
Код:
{Напишите программу, которая по введенному с клавиатуры символу определяет, 
является ли он строчной или прописной, латинской или русской буквой, цифрой или 
относится к прочим символам.}
var a:char;
begin
readln(a);
case a of							{начало оператора выбора}
  'a'..'z': writeln('строчная латинская');
  '0'..'9': writeln('цифра');
  'а'..'я': writeln('строчная русская');
  'A'..'Z': writeln('Прописная латинская');
  'А'..'Я': writeln('Прописная русская')
  else writeln('прочие символы');
  end; 							{конец оператора выбора}
readln;
end.
Здраствуйте, у меня проблема с использованием оператора case в похожей задаче на Паскале. Мне в колледже на лекции, для примера, написали код программы для вывода на экран названия дня недели по номеру этого дня. Я написал код в компиляторе, но при проверки появляется сообщение на английском языке об ошибках: "nedela.pas(8.10) Fatal: Syntax error, "OF" expected but ":" found" и "nedela.pas (0) Fatal: Compilation aborted". Я почти не понимаю по-английски, так что мне это ни о чём не говорит. Подскажите, пожалуйста, что я делаю неправильно, или дайте ссылку на какие-нибудь патчи, модули для Паскаля, чтобы по-русски писали в чём ошибка. Сам я эту тему знаю только на этом неполном примере, а в моём учебнике по Паскалю, кроме определений, по теме ничего нет.

Код:
program nedela;
uses crt;
var nomer:byte;
begin clrscr;
writeln('Введите номер дня недели.');
read (nomer);
case
1:writeln('понедельник');
2:writeln('вторник');
3:writeln('среда');
4:writeln('четверг');
5:writeln('пятница');
6:writeln('суббота');
7:writeln('воскресенье');
end;
readln;
end.
Сократ: "Я знаю, что ничего не знаю".
Карабин вне форума Ответить с цитированием
Старый 16.05.2009, 13:48   #12
DM_bite
Участник клуба
 
Аватар для DM_bite
 
Регистрация: 29.07.2008
Сообщений: 1,091
По умолчанию

Код:
program nedela;
uses crt;
var nomer:byte;
begin clrscr;
writeln('Введите номер дня недели.');
read (nomer);
case nomer of
1:writeln('понедельник');
2:writeln('вторник');
3:writeln('среда');
4:writeln('четверг');
5:writeln('пятница');
6:writeln('суббота');
7:writeln('воскресенье');
end;
readln;
end.
А сообщение "nedela.pas(8.10) Fatal: Syntax error, "OF" expected but ":" found" переводиться :Синтаксическая ошибка, "OF" требуется, но найдено ":"...
Кто бы ты ни был - не думай о себе слишком (с)

Последний раз редактировалось DM_bite; 16.05.2009 в 13:51.
DM_bite вне форума Ответить с цитированием
Старый 16.05.2009, 14:28   #13
Карабин
Пользователь
 
Аватар для Карабин
 
Регистрация: 01.04.2009
Сообщений: 27
По умолчанию

Спасибо, ошибки пропали, но после того, как в программе задал число и нажал enter, программа закрылась, а должна была задержаться, так как в конце кода есть readln.
Сократ: "Я знаю, что ничего не знаю".
Карабин вне форума Ответить с цитированием
Старый 16.05.2009, 19:02   #14
Карабин
Пользователь
 
Аватар для Карабин
 
Регистрация: 01.04.2009
Сообщений: 27
По умолчанию

Цитата:
Сообщение от Карабин Посмотреть сообщение
Спасибо, ошибки пропали, но после того, как в программе задал число и нажал enter, программа закрылась, а должна была задержаться, так как в конце кода есть readln.
Я нашёл в чём дело - надо было вначале написать не read, а readln.
Сократ: "Я знаю, что ничего не знаю".
Карабин вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
ПАСКАЛЬ!!!=) d00ker Помощь студентам 6 04.02.2009 22:19
Паскаль Freia Помощь студентам 7 12.01.2009 20:42
паскаль фамил Паскаль, Turbo Pascal, PascalABC.NET 3 17.05.2008 23:23