|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1280 (0x500)
Types: TextFile
Names: »SPIL.SCL«
└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
└─ ⟦this⟧ »SPIL.SCL«
; Kurt Fleckner 6. juli 1985
;
; HØJ LAV spil
; ============
;
høj_lav hvis
skriv('Høj-Lav spil. Gæt et tal på færrest forsøg.'),
nylinie,
tilf_tal(KODE) og
find_een(int(Antal_gæt),skriv('Et tal mellem 0 og 99 (eller stop) ? '),
læs(Gæt) og test_gæt(KODE,Gæt,Antal_gæt)).
vælg_een test_gæt
test_gæt(Kode,Gæt,Gange) hvor
heltal(Gæt) og
Kode = Gæt hvis
Z = værdi_af(Gange+1),
skriv('Du gættede det på',Z,'gæt') og
nylinie.
test_gæt(Kode,Gæt,Gange) hvor
heltal(Gæt) og
Kode < Gæt hvis
skriv('For højt'),
nylinie og
falsk.
test_gæt(Kode,Gæt,Gange) hvor
heltal(Gæt) og
Kode > Gæt hvis
skriv('For lavt'),
nylinie og
falsk.
test_gæt(Kode,Gæt,Gange) hvor
Gæt = stop hvis
skriv('Tallet var ',Kode).
slut.
; Reglen genererer pseudotilfældige tal
; Det forudsættes, at der er en generator regel
tilf_tal(Tilf) hvis
glem(generator(X)),
Tilf = værdi_af(((42*X) mod 101)-1),
Ny_X = værdi_af((42*X) mod 101) og
husk(generator(Ny_X)).
int(0).
int(N) hvis
int(M) og
N = værdi_af(M+1).
generator(45).
«eof»