ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу ВОПРОС ПО ПАСКАЛЬ
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

ВОПРОС ПО ПАСКАЛЬ
  #1  
Старый 16.05.2009, 13:15
toross
Banned
Регистрация: 11.12.2008
Сообщений: 37
Провел на форуме:
178592

Репутация: 35
Отправить сообщение для toross с помощью ICQ
По умолчанию ВОПРОС ПО ПАСКАЛЬ
Помогите на счет задачи на паскале.

Выводит времЯ года по введеному с клавиатуры числу, выходи при нажатии 0.
 
Ответить с цитированием

  #2  
Старый 16.05.2009, 14:19
KentPol
Участник форума
Регистрация: 03.06.2008
Сообщений: 111
Провел на форуме:
911872

Репутация: 36
Отправить сообщение для KentPol с помощью ICQ
По умолчанию
Цитата:
Выводит времЯ года по введеному с клавиатуры числу
Это как?
 
Ответить с цитированием

  #3  
Старый 16.05.2009, 14:29
slesh
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241

Репутация: 3349


Отправить сообщение для slesh с помощью ICQ
По умолчанию
считываешь дату в формате каомнить типа день/месяц/год
отделяеш месяц от всего что введено вереподишь его в integer и делаешь
case i of
3..5: writeln("весна");
6..8:writeln("лето");
9..11:writeln("осень");
12,1,2:writeln("зима");
end;
 
Ответить с цитированием

  #4  
Старый 16.05.2009, 15:15
KentPol
Участник форума
Регистрация: 03.06.2008
Сообщений: 111
Провел на форуме:
911872

Репутация: 36
Отправить сообщение для KentPol с помощью ICQ
По умолчанию
Цитата:
program data;
Uses crt;
var d,m,g:integer;
begin
Clrscr;
m:=1;
while m<>0 do
begin
Write('Дата в формате [день, месяц, год]:');
readln(d,m,g);
case m of
3..5: writeln('весна');
6..8:writeln('лето');
9..11:writeln('осень');
1,2,12:writeln('зима') ;
end;
end;
end.
Проверки валидности нет.
Ехе'шник и исходник тут: _ttp://slil.ru/27661212
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по паскаль toross Болталка 17 17.05.2009 14:13
Proxy FAQ foreva Чужие Статьи 12 04.01.2008 12:15
У меня такой вопрос got_666 E-Mail 3 28.01.2007 15:13
Интернетчики задали российскому президенту очень странные вопросы podkashey Мировые новости 4 07.07.2006 16:53



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ