прикладная математика

Добавлено (10.11.12, 18:30)
---------------------------------------------
program schotchik_shisni;
uses crt,dos;
var ned,d,m,g : word;
ch,min,s,ms ,ch1,min1,s1: word;
g1,g2,g3,day,dney , ab,ac,bc ,chas,mino,sek: real ;

{======================================================}
procedure dney_mes;
begin
case m of
1 : day := 1;
2 : day := 32;
3 : if g/4 = int(g/4) then day := 61
else
day := 60;
4 : if g/4 = int(g/4) then day := 92
else
day := 91;
5 : if g/4 = int(g/4) then day := 122
else
day := 121;
6 : if g/4 = int(g/4) then day := 153
else
day := 152;
7 : if g/4 = int(g/4) then day := 183
else
day := 182;
8 : if g/4 = int(g/4) then day := 214
else
day := 213;
9 : if g/4 = int(g/4) then day := 245
else
day := 254;
10 : if g/4 = int(g/4) then day := 275
else
day := 274;
11 : if g/4 = int(g/4) then day := 306
else
day := 305;
12 : if g/4 = int(g/4) then day := 336
else
day := 335;
end;
end;
{======================================================}
{}
{}
{======================================================}
procedure dney_god ;
begin
g3 :=(g-1900);
g1 :=(g3)*365;
g2 :=g3/4;
g2 :=round(int(g2));
dney := g1+g2 ;
end;
{======================================================}
begin
clrscr;
writeln('введите дату рождения в формате дд.мм.гггг записуя день месяц и год через пробел');
readln(d,m,g);
dney_mes;
dney_god;
ab := dney + day + d;

getdate(g,m,d,ned);
dney_mes;
dney_god;
ac := dney + day + d;
bc := ac-ab;

writeln('введите час минуту и секунду рождения');
readln(ch,min,s);
gettime(ch1,min1,s1,ms);
chas := bc*24+(ch1-ch);
mino := (chas*60)+(min-min1);
sek := mino*60+(s-s1);

writeln('ви прожили ',bc:9:0,' дней ');
writeln('ви прожили ',chas:9:0,' часов ');
writeln('ви прожили ',mino:9:0,' минут ');
writeln('ви прожили ',sek:9:0,' секунд ');
readln;
end.