|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4608 (0x1200)
Types: TextFile
Names: »betaling«
└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
└─⟦72244f0ef⟧
└─⟦this⟧ »betaling«
begin
integer
i,
j,
række,
søjle,
måned;
boolean
sp,
nl,
ff;
long
total_hw,
pl_ext_ialt,
pl_int_ialt,
sw_ptid_ialt,
hw_ptid_ialt,
total_sw,
extern_pl,
intern_pl,
sw_persontid,
hw_persontid,
total_måned,
acc_betaling;
long array
tabel (1:16,1:5),
pristal (1:16);
begin
acc_betaling := 0;
pl_ext_ialt:= 0;
pl_int_ialt :=0;
sw_ptid_ialt :=0;
hw_ptid_ialt := 0;
sp := false add 32;
nl := false add 10;
ff := false add 12;
for række := 1 step 1 until 16 do
for søjle := 1 step 1 until 5 do
tabel (række,søjle) := case 5*række + søjle - 5 of
<* antal dage extern pl intern pl sw pers hw pers *>
( 22 , 0 , 0 , 300 , 200 , <* jan 80 *>
21 , 75 , 100 , 200 , 125 , <* feb 80 *>
21 , 75 , 100 , 200 , 125 , <* mar 80 *>
19 , 75 , 100 , 700 , 125 , <* apr 80 *>
19 , 75 , 100 , 700 , 125 , <* maj 80 *>
20 , 75 , 100 , 700 , 225 , <* jun 80 *>
23 , 75 , 100 , 700 , 225 , <* jul 80 *>
21 , 75 , 100 , 700 , 325 , <* aug 80 *>
22 , 75 , 100 , 700 , 325 , <* sep 80 *>
23 , 75 , 100 , 700 , 325 , <* okt 80 *>
20 , 75 , 100 , 700 , 325 , <* nov 80 *>
20 , 75 , 100 , 700 , 325 , <* dec 80 *>
21 , 75 , 100 , 700 , 325 , <* jan 80 *>
20 , 75 , 100 , 700 , 325 , <* feb 80 *>
22 , 75 , 100 , 700 , 325 , <* mar 80 *>
19 , 75 , 100 , 700 , 325 , <* apr 80 *>
19 , 75 , 100 , 700 , 325 );<* maj 80 *>
for i := 1 step 1 until 6 do pristal (i) := 1455;
for i := 7 step 1 until 12 do pristal (i) := 1490;
for i := 13 step 1 until 16 do pristal (i) := 1520;
writeint (out,ff,1,sp,16,
<:pl extern pl intern sw ptid hw ptid hw i alt sw i alt i alt md:>, nl,1);
for måned := 1 step 1 until 16 do
begin
extern_pl := tabel (måned,1) * 6 * (tabel (måned,2)/100) * 320 * (pristal (måned)/1000);
intern_pl := tabel (måned,1) * 6 * (tabel (måned,3)/100) * 320 * (pristal (måned)/1000);
sw_persontid := tabel (måned,1) * 6 * (tabel (måned,4)/100) * 259 * (pristal (måned)/1000);
hw_persontid := tabel (måned,1) * 6 * (tabel (måned,5)/100) * 259 * (pristal (måned)/1000);
total_måned := extern_pl + intern_pl + sw_persontid + hw_persontid;
total_hw := extern_pl + hw_persontid;
total_sw := sw_persontid + intern_pl;
pl_ext_ialt := pl_ext_ialt + extern_pl;
pl_int_ialt := pl_int_ialt + intern_pl;
sw_ptid_ialt := sw_ptid_ialt + sw_persontid;
hw_ptid_ialt := hw_ptid_ialt + hw_persontid;
write (out,nl,1,sp,3,case måned of (
<:jan 80:>,<:feb 80:>,<:mar 80:>,<:apr 80:>,<:maj 80:>,<:jun 80:>,
<:jul 80:>,<:aug 80:>,<:sep 80:>,<:okt 80:>,<:nov 80:>,<:dec 80:>,
<:jan 81:>,<:feb 81:>,<:mar 81:>,<:apr 81:>),sp,7,
<<d ddd ddd>,extern_pl,sp,4,intern_pl,sp,4,
sw_persontid,sp,4,hw_persontid,sp,4,total_hw,sp,4,
total_sw,sp,4,total_sw + total_hw);
end;
write (out,nl,2,sp,5,<:ialt:>,sp,8,
<<d ddd ddd>,
pl_ext_ialt,sp,4,pl_int_ialt,
sp,4,sw_ptid_ialt,sp,4,hw_ptid_ialt,sp,4,pl_ext_ialt+hw_ptid_ialt,sp,4,
pl_int_ialt+sw_ptid_ialt,sp,4,
sw_ptid_ialt+hw_ptid_ialt+pl_int_ialt+pl_ext_ialt);
write (out,ff,1);
end;
end;
end;
▶EOF◀