IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> задачка на календарь старый-новый слить, помогите закончить прогу Здать надо завтро !!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


сама задача

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


то что сделал

Код
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);

помогите закончить пллз
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Клавиатурный тиран
**

Группа: Пользователи
Сообщений: 79
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  -2  +


сделаю. Пиши в личку. И объясни, что есть новый и старый стил даты?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2021 15:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name