|
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: 768 (0x300)
Types: TextFile
Names: »kkakant«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »kkakant«
kkakan=algol
begin
integer i,j,n,ni,ns,side,sidem,sidestart;
real procent,p,r;
write(out,<:antal sider, n-start, n-slut, 1. side <10>:>);
setposition(out,0,0);
read(in,sidem,ni,ns,sidestart);
procent:=0.5;
for side:=sidestart step 1 until sidem+sidestart-1 do
begin
outchar(out,12);
write(out,false add 32,60,<:side:>,<< ddd>,side,<:<10><10>:>);
procent:=procent+0.5;
for i:=0 step 1 until 4 do
write(out,<< ddd.d>,procent+i/10,<:%:>);
write(out,<:<10>:>);
for n:=ni step 1 until ns do
begin
write(out,<:<10>:>,<< ddd>,n);
for p:=procent step 0.1 until procent+0.45 do
write(out,<< ddd.dddddd>,p/(1-(1+p/100)**(-n)));
end;
end;
outchar(out,12);
end;
▶EOF◀