написать функцию,сравнивающую две даты.функция должна возвращать(-1) если первая...

June 2021 1 17 Report

написать функцию,сравнивающую две даты.функция должна возвращать(-1) если первая дата меньше второй ,0- если первая и вторая даты одинаковы и 1 -если первая дата больше второй.паскаль.тема записи

Answers & Comments

ubunt Type date = record day: 1..31; month: 1..12; year: integer ; end;var a: date := (day: 8; month: 7; year: 2012); b: date := (day: 6; month: 7; year: 2012); c:integer;
procedure OutDate(d: date);begin with d do writeln(day, '.', month, '.', year);end;begin if a.year > b.year then c:=1 else c:=-1 ; if a.year = b.year then if a.month > b.month then c:=1 else c:=-1; if a.year = b.year then if a.month = b.month then if a.day > b.day then c:=1 else c:=-1; if a.year = b.year then if a.month = b.month then if a.day = b.day then c:=0; OutDate(a); OutDate(b); writeln('otwet:', c);end.

0 votes Thanks 0

Answers & Comments

soobshenie o tom chto lift doehal do 7 etazha neset 39 bitov informaciiskolko et

kakoe kolichestvo informacii neset soobshenie o tom chto poezd pribyvaet 22 yanvarya

dany vershiny treugolnika avs a 15 v 12 s 32sostavit uravnenie vys

u menya est fajl s dannymi o 10 studentahmne nuzhno vyvesti informaciyu o samoj m

opredelit kolichestvo dnej mezhdu dvumya zadannymi datamipaskaltema zapisi

napishite programmu pechatayushuyu na ekrane zadannoe chislo i chetyre predydushih nechet

dano celoe chislo v diapazone 100 999vyvesti stroku slovesnoe opisanie dannogo

рекомендуемые вопросы

Helpful Links

Helpful Social