Помощь - Поиск - Пользователи - Календарь
Полная версия: определить время года...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Sahsok
1) Нужно написать программу,которая по введённой дате определяет время года, корректо, т.е. не должно быть 29 февраля в не высокосный год и т.д.
2)Нужно составить программу которая выводит на экран в обратном порядке символы английского языка из таблицы ASCII.

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

2)
Код

var
ch:char;
k:byte;
begin
for k:=90 downto 65  do
begin
 ch:=chr(k);
 write(ch:2);
end;
end.
fms
наверно имеется в виду что если например 29.02.2003 то д.б. ошибка т.к. такой даты нет. smile.gif
Sahsok
Цитата(fms @ 9.10.04 23:13)
наверно имеется в виду что если например 29.02.2003 то д.б. ошибка т.к. такой даты нет. smile.gif

Именно так и есть, или допустим при вводе 99.99.99 то же выдовалась ошибка, а по месяцу там 5 секунд делов, я бы не спрашивал.
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:
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.