|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
08.01.2010, 00:06 | #21 (permalink) |
Member
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
var seson:char; n,b:real; сase b of: ---------------------------- тут он выдвет ошибку. 12,1,2: seson:='Зима'; 3..5: seson:='Весна'; 6..8: seson:='Лето'; 9..11: seson:='Осень'; end; case b of: {с начала сезона прошло количество дней, равное сегодняшней дате} 12,3,6,9: n:=a-1; {с начала сезона прошло количество дней, равное сумме предыдущих месяцев плюс сегодняшняя дата} 1,4: n:=31+a-1; 2: n:=31+31+a-1; 5,8,11: n:=31+30+a-1; 7,10: n:=30+a-1; end; writeln ('Сейчс на дворе ',seson, '; с начала сезона прошло ', n, ' дней'); END. |
08.01.2010, 09:41 | #25 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ага, а еще не описана переменная а, а еще не поставлен общий открывающий begin, а еще пропущен останов, а еще...
Ну ладно, как-то так (проверено): Код:
program Oo; Var Season:STRING; date,month,n:INTEGER; BEGIN WriteLn('Enter current month and date:'); Write('Month= '); ReadLn(Month); Write('Date= '); ReadLn(Date); Case Month of 12,1,2: Season:='winter'; 3..5: Season:='spring'; 6..8: Season:='summer'; 9..11: Season:='autumn'; end; Case Month of {Number of days passed from the season beginning is equal to current date} 12,3,6,9: n:=Date-1; {Number of days passed from the season beginning is equal to current date plus the sum of days in previous month(s)} 1,4: n:=31+Date-1; 2: n:=31+31+Date-1; 5,8,11: n:=31+30+Date-1; 7,10: n:=30+Date-1; end; Writeln ('It is '+Season+' now; ',n,' days passed from the beginning.'); ReadLn; END. 1. Перешел на английский, потому что приходится прыгать между Windows и DOS, а у них разные кодировки кириллицы. Транслит же терпеть не могу. 2. Один из общих принципов написания программ: идентификаторы следует, по возможности, использовать осмысленные, а не безликие a, b, c... |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
08.01.2010, 11:36 | #26 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Ну вот я написал фрагмент программы, который обрабатывает полученные данные и выводит их. Автор же принял это за весь раздел операторов.
Комментарии к комментариям: 1) писал код прямо здесь, на форуме, так что проблем с кодировками не было. Как будет в итоге - по-русски, по-английски или транслитом, решать автору; 2) переменные а, b и с были заявлены автором в первом посте. Сам же я тоже предпочитаю использовать более-менее осмысленные имена. ну кроме переменной i, которая на рынке счетчиков уже около 20 лет З.Ы. Проблем с кодировкой в Windows и DOS можно избежать, если использовать текстовый редактор AkelPad. С его помощью файл можно сохранить в такой кодировке, в которой и винда, и дос будут корректно отображать кириллицу |
08.01.2010, 12:06 | #27 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Вот это вряд ли, хотя им же можно и перекодировать в другую кодировку. А еще можно пользоваться Notepad++, тот вообще синтаксис подсвечивает
__________________
Убить всех человеков! |
09.01.2010, 15:34 | #28 (permalink) |
Member
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спс вам.. я тут многое узнал
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|