SRL Archive - Other Scripts

well since my dad had birthday today .. and he got 50!
i made him a present lol :) in SCAR! …!

well he told me a story just few days ago that his brothers heart has stopped beating a few times (he still lives). but my dads never stopped or anything. so i made a script! that counts how many times his heart has beated..! its not accurate but it was fun :)

theres also how many milliseconds there is in a YEAR!

[PHP]
program New;
var
Second,Minute,Hour,day,year,year2:Integer;
Procedure Msec;
begin
second:= 1000;
Minute:= second * 60;
Hour:= Minute * 60;
Day:= Hour * 24;
year:= Hour * 365;
year2:= Year * 10;
writeln('***** Msec In Minutes and Hours and YEARS *****')
writeln('')
Writeln('One Second Is: '+inttostr(Second)+ ' Msec')
Writeln('One Minute Is: '+inttostr(Minute)+ ' Msec')
Writeln('One Hour Is: '+inttostr(Hour)+ ' Msec')
Writeln('One Day Is: '+inttostr(Day)+ ' Msec')
Writeln('One Year is: '+inttostr(year)+ ' Msec')
end;

Procedure HeartBeat;
begin
Minute:= 80;
Hour:= Minute * 60;
Day:= Hour * 24;
Year:= Day * 365;
year2:= year * 50;
writeln('***** Heart Beats Per Hour, day, year, 50 years! *****')
writeln('')
Writeln('Heart Beats : '+inttostr(Hour)+ ' Per Hour')
Writeln('Heart Beats : '+inttostr(Day)+ ' Per Day')
Writeln('Heart Beats : '+inttostr(Year)+ ' Per year')
Writeln('Heart Beats : '+inttostr(Year2)+ ' Per 50 years')
end;

Begin
Cleardebug;
Msec;
HeartBeat;
end.
[/PHP]

Progress report:

[PHP]
***** Msec In Minutes and Hours and YEARS *****

One Second Is: 1000 Msec
One Minute Is: 60000 Msec
One Hour Is: 3600000 Msec
One Day Is: 86400000 Msec
One Year is: 1314000000 Msec
***** Heart Beats Per Hour, day, year, 50 years! *****

Heart Beats : 4800 Per Hour
Heart Beats : 115200 Per Day
Heart Beats : 42048000 Per year
Heart Beats : 2102400000 Per 50 years
[/PHP]

Cool script. What did your dad say when you showed him? :)

Is this based on the average beats throughout life? Because to be more accurate you would need to find your average heart beats as a child and how it slows as your age progresses.

well we took his heart beat in one minute.

so this is not accurate, because ur heart beat also changes when u sleep, and when ur borned, ur heart beat is faster than normally, but then it slows down as u go forward in life. so this is not accurate at all… sadly though.

My dad said something like: im shooked!

Well maybe not accurate -_- But approximately.