определить время года..., 2 простых задачи Опции

[Sahsok]

1) Нужно написать программу,которая по введённой дате определяет время года, корректо, т.е. не должно быть 29 февраля в не высокосный год и т.д.
2)Нужно составить программу которая выводит на экран в обратном порядке символы английского языка из таблицы ASCII.

Просто времени нет, с учёбой напряги. Пожалуйста с описаниями подмогите.

Сообщение отредактировано: Sahsok - 10.10.2004 0:16

[Amro]

В смысле определяет время года??? Это типа ты пишешь дату месяц год и тебе выводится сезон: лето, зима или осень и т.д???? так это и так же понятно !!!! если сентябрь то это осень если январь то это.........и. т.д. этож просто.... поподробнее опиши!!!!
Можь ты просто имеешь ввиду проблему высокосного года???

2)

Код

var
ch:char;
k:byte;
begin
for k:=90 downto 65  do
begin
 ch:=chr(k);
 write(ch:2);
end;
end.

Сообщение отредактировано: Amro - 10.10.2004 2:11

[fms]

наверно имеется в виду что если например 29.02.2003 то д.б. ошибка т.к. такой даты нет.

[Sahsok]

наверно имеется в виду что если например 29.02.2003 то д.б. ошибка т.к. такой даты нет.

Именно так и есть, или допустим при вводе 99.99.99 то же выдовалась ошибка, а по месяцу там 5 секунд делов, я бы не спрашивал.

Сообщение отредактировано: Sahsok - 10.10.2004 8:51

[Amro]

Тагды можно сделать так:

Код

   uses crt;
   const Mes:array[1..12] of String[8]=
             ('Январь','Февраль','Март','Апрель','Май','Июнь','Июль',
              'Август','Сентябрь','Октябрь','Ноябрь','Декабрь');

   const Den:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
   var Day,Month,Year:integer;
   label 1;
   begin
   clrscr;
   write('Year='); readln(Year);
   if ((Year mod 4)=0) and ((Year mod 100)<>0) or ((Year mod 400)=0)  then
   Den[2]:=29
   else
   Den[2]:=28;
      write(' Month='); read(Month);
      if (Month>12) or (Month=0) then begin writeln('Ошибка'); goto 1; end;
      write(' Day='); read(Day);
      if (Day>Den[Month]) or (Day=0) then begin writeln('Ошибка'); goto 1; end;
      writeln(Mes[Month]);
 1:   readkey;
   end.

Врямя года сам напишешь :yes: