Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   ВОПРОС ПО ПАСКАЛЬ (https://forum.antichat.xyz/showthread.php?t=120874)

toross 16.05.2009 13:15
ВОПРОС ПО ПАСКАЛЬ
 
Помогите на счет задачи на паскале.

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

KentPol 16.05.2009 14:19
Цитата:
Выводит времЯ года по введеному с клавиатуры числу
Это как?

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

KentPol 16.05.2009 15:15
Цитата:
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


Время: 10:55