[rájöttünk] Hová lett Damon Hill?

Kylix/Pascal

Napkelte, napnyugta számolása.
Ebben a programban
http://www.sci.fi/~benefon/SUNDAY.PAS
hol a bánatban kap értéket kk és pp
- vagy mit nem tudok?Kiragadott részlet:


PROCEDURE SunUpDown(lat:real;lon:real);
{Sunrise and Sunset times}
CONST DayOffs = 10.0;
      HoCor   = 0.033;
MDays: array[1..12] of Integer =
(31,28,31,30,31,30,31,31,30,31,30,12);

VAR dekl,fo,Nousu,Lasku:real;
    DayNr,j:              Integer;

BEGIN
     lon:=-lon; lat:=pi*lat/180;
     DayNr:=0;

for j:= 1 to kk-1 do DayNr:=DayNr+MDays[j];

    DayNr:= DayNr+pp;

Átírnám bash scriptbe, de TP 6.0 után (Delphi-be már nem másztam bele) már nincs gyakorlatom pascalban.

  • 79380 megtekintés

( Szenti v | 2012. 06. 15., p – 18:21 )

Tipikus példa arra, hogy:
* miért szívás a globális változók használata.
* miért kellene beszédes változóneveket használni.

A KK és a PP a központi blokkban (a begin és az end. között) kap értéket:
GetDate(VV,KK,PP,VD);