DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »beregntxt«

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »beregntxt« 

TextFile

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◀