[pascal]Zadanie z pascala, pomocy.

Wszystko opisane jest w tym kodzie:

---
{ program pt4 }
{ program porownuje dwie podane z klawiatury daty i wypisuje wczesniejsza}
{ z nich}

{ZADANIA:}
{1. uzupelnic program}

program porownaj_daty ;

uses crt ; { biblioteka standardowa }

var dzien1, dzien2, miesiac1, miesiac2, rok1, rok2: integer;

{ program glowny }
begin
clrscr ; {czysc ekran }

write(' podaj pierwsza date (dzien, miesiac, rok): ') ;
readln(dzien1, miesiac1, rok1 ) ;

write(' podaj druga date (dzien, miesiac, rok): ') ;
readln(dzien2, miesiac2, rok2 ) ;

{ czy pierwsza data jest wczesniejsza chronologicznie od daty drugiej }
if rok1 < rok2 then writeln('data pierwsza jest wczesniejsza')
else if rok1 > rok2 then writeln('data druga jest wczesniejsza')
else if miesiac1 < miesiac2 then
{ ... TU UZUPELNIJ ! ...}

writeln ;
writeln(' ENTER konczy dzialanie programu ') ;
readln ;
end.
---

Nie mam pojecia co zrobic aby porownal mi daty, moje proby sie nie udaly wiec prosze Was o pomoc.

---

[code]
if rok1 < rok2 then
writeln('Pierwsza data jest wcześniejsza');
if rok1 > rok2 then
writeln('Druga data jest wcześniejsza');
if rok1 = rok2 then
begin
if miesiac1 < miesiac2 then
writeln('Pierwsza data jest wcześniejsza');
if miesiac1 > miesiac2 then
writeln('Druga data jest wczescniejsza');
if miesiac1 = miesiac2 then
begin
if dzien1 < dzien2 then
writeln('Pierwsza data jest wczesniejsza');
if dzien1 > dzien2 then
writeln('Druga data jest wcześniejsza');
if dzien1 = dzien2 then
writeln('Dwie daty są takie same.');

if rok1 < rok2 then writeln('data pierwsza jest wczesniejsza')
else if rok1 > rok2 then writeln('data druga jest wczesniejsza')
else if miesiac1 < miesiac2 then
{ ... TU UZUPELNIJ ! ...}
if....else.... możesz stosować do jednego warunku np rok1<rok2,czyli:
if rok1<rok2 then ...... else ......;
potem musisz dać drugą instrukcję if....else.... dla następnego warunku np if dzien2<dzien1 then.....else......;, itd.Inaczej kompilator głupieje.

Ed

Wielkie dzieki za pomoc :cheesy:
Jestem bardzo wdzieczny.
Jeszcze raz THX.

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl