Pomoc s programkem – Pascal – Fórum – Programujte.com

ahoj,mam takovej problem s jednim programkem,podobne programy s daty mi sly v pohode,ale tady nejak nevim,moc dekuju za kazdy prispevek:
program nacte d,m,r-datum(den,mesic,rok),cislo N a urci,jake datum bude za N dni od zadaneho data(neprestupny rok ma 365 dni,prestupny 366;prestupny je takovy rok,jehoz cislo je delitelne 4 a neni delitelne 100 nebo je delitelne 400

potreboval by som poradiť ako stiahnuť Hide ip premium nejde mi to

To kikinka : a jaký máš přesně problém?

To milos12701 : zkus s tím jít do nějaké jiné sekce tohohle fóra, tady se řeší Pascal.

To mircosoft: nak moc nevim jak na to :-[

To Mircosoft : Ber na neho ohlad. Nevidis, ze milos12701 je "novacek"? Je to jeho prvy prispevok ;)

Jestli děláš ve Freepascalu nebo v Delphi, tak je to úplně jednoduché:

uses Sysutils;

var f:Tdatetime;

    den,mesic,rok,p:word;

begin

write('den: ');readln(den);

write('mesic (cislem): ');readln(mesic);

write('rok: ');readln(rok);

write('Kolik dnu pripocitat?: ');readln(p);

writeln;

writeln('Vychozi dadum je:');

writeln(den,'.',mesic,'.',rok);



f:=EncodeDate(rok,mesic,den);

f:=f+p;

DecodeDate(f,rok,mesic,den);



writeln;

writeln('Cilove datum je:');

writeln(den,'.',mesic,'.',rok);

readln;

end.