|
DataMuseum.dkPresents historical artifacts from the history of: RC3500 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC3500 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFileVerbose
Names: »beregntxt«
└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
└─⟦72244f0ef⟧
└─⟦this⟧ »beregntxt«
job j 1 perm disc1 1000 10
beregn=set 1 disc1
scope user beregn
beregn=algol
begin <* dette program bruges af hea til omregning
fra kr til dollar (incl. en faktor).
dollar=(kr*faktor)/kurs
programmeret 21.05.1981 af stb *>
real kr,dls,krsum,dlssum,kurs1,faktor1;
integer faktor,kurs;
faktor:=l{sfptal(<:faktor:>);
if faktor=0 then faktor:=105;
faktor1:=faktor/100;
kurs:=l{sfptal(<:kurs:>);
if kurs=0 then kurs:=725;
kurs1:=kurs/100;
krsum:=dlssum:=0.0;
<* udskriv parametre *>
write(out,<:faktor: :>, <<ddddd.dd>,faktor1,
_ <: kurs: :>,kurs1,"nl",2);
repeat <* main loop *>
read(in,kr);
dls:=(kr*faktor1)/kurs1;
krsum:=krsum+kr;
dlssum:=dlssum+dls;
write(out,<<ddddddd.dd>,kr,<: kr = :>,dls,<: dls:>,"nl",1);
until kr<=0.0;
write(out,"-",30,"nl",1,<<ddddddd.dd>,krsum,<: kr :>,dlssum,<: dls:>,"nl",1,"em",3);
end
finis
«eof»