|
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: »tekst«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tekst«
Ilttryk
begin
integer n,i;
real b;
array K(1:4),AR,AI(0:4);
write(out,<:K(1),K(2),K(3),K(4):>);
outendcur('nl');
read(in,K);
n:=4;
HA:
b:=readr(<:bindingsgrad:>);
AR(4):=b;
AR(3):=K(1)*(b-1);
AR(2):=K(1)*K(2)*(b-2);
AR(1):=K(1)*K(2)*K(3)*(b-3);
AR(0):=K(1)*K(2)*K(3)*K(4)*(b-4);
spercre(AR,n,AI);
for i:=1,2,3,4
do
if AI(i)=0 and AR(i)>0
then write(out,AR(i),"nl",1);
if readb(<:flere b:>) then goto HA;
end
▶EOF◀