pajautaa

« previous entry | next entry »
Maijs. 17., 2006 | 10:06 pm
posted by: taapati in pajautaa

ar kādu funkciju var (ja vispār var) pārvērst dienu (kā datumu un mēnesi) dienas numurā pēc kārtas (gadā)? nu tā, lai no 01.01 iegūtu 1, bet no 01.02 iegūtu 32? turklāt 29.februāri var ignorēt :)
Tags:

# | jā, ir doma! | Add to Memories

Comments {14}

from: [info]octo
date: Maijs. 18., 2006 - 09:20 am
#

function diena(d,m:integer):integer;
var x:integer;
begin
case m of
1: x:=0;2: x:=31;3: x:=59;
4: x:=90;5: x:=120;6: x:=151;
7: x:=181;8: x:=212;9: x:=243;
10: x:=273;11: x:=304;12: x:=334;
else
x:=0;
end;
diena:=x+d;
end;


begin
writeln(diena(1,2));
end.

Atbildēt | Diskusija

from: [info]octo
date: Maijs. 18., 2006 - 09:22 am
#

jaa un te nav njemts veeraa garais gads - ja tomeer vajag - tad viens ifs ar diviem nosaciijumiem klaat...

veel te nav chekoshana uz korektiem ievaddatiem...

Atbildēt | Iepriekšējais