Помощь - Поиск - Пользователи - Календарь
Полная версия: задачка на календарь старый-новый слить
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
DestroyeR986
сама задача

Дана дата в виде день, месяц и год.
Проверить, является ли дата корректной.
Если дата корректная, то спросить у пользователя из какого в какой стиль перевести дату (старый-новый, новый-старый).
Вывести дату в соответствии с выбором пользователя.


то что сделал

Код
Program kalendareg_new_or_old;
Var d,m,g:longint;
new,old:boolean
e:boolean;
Begin
Writeln('VESTI DEN MES GOD:');
Readln(d,m,g);
Case m of
1,2,5,7,8,10,12:e:=(d>+1)and(d<=31);
4,6,9,11:e:=(d>=1)and(d<=30);
2:e:=(((g mod 400 = 0)OR((g mod 4 = 0)AND(g mod 100 <> 0)))and(d>=1)and(d<=29)
or(not(((g mod 400 = 0)OR(g mod 4 = 0)AND(g mod 100 <> 0)))and(d>=1)and(d<=28)));
else e:=False;
end;
{proverka}

writeln('kakoy stile you need ?');
writeln('dla novogo stila nagmi 1');
writeln('dla starogo stila nagmi 2');
readln (new,old);

помогите закончить пллз
Sozialist
сделаю. Пиши в личку. И объясни, что есть новый и старый стил даты?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.