Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ определить время года...
Автор: Sahsok 10.10.2004 0:07
1) Нужно написать программу,которая по введённой дате определяет время года, корректо, т.е. не должно быть 29 февраля в не высокосный год и т.д.
2)Нужно составить программу которая выводит на экран в обратном порядке символы английского языка из таблицы ASCII.
Просто времени нет, с учёбой напряги. Пожалуйста с описаниями подмогите.
Автор: Amro 10.10.2004 1:44
В смысле определяет время года??? Это типа ты пишешь дату месяц год и тебе выводится сезон: лето, зима или осень и т.д???? так это и так же понятно !!!! если сентябрь то это осень если январь то это.........и. т.д. этож просто.... поподробнее опиши!!!!
Можь ты просто имеешь ввиду проблему высокосного года???
2)
var
ch:char;
k:byte;
begin
for k:=90 downto 65 do
begin
ch:=chr(k);
write(ch:2);
end;
end.
Автор: fms 10.10.2004 3:13
наверно имеется в виду что если например 29.02.2003 то д.б. ошибка т.к. такой даты нет. 
Автор: Sahsok 10.10.2004 8:50
Именно так и есть, или допустим при вводе 99.99.99 то же выдовалась ошибка, а по месяцу там 5 секунд делов, я бы не спрашивал.
Автор: Amro 10.10.2004 17:11
Тагды можно сделать так:
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: