|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1306 (0x51a)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦bfb27ef68⟧
└─⟦this⟧
pour factorielle prendre {
avec de: n.
n<1 siVrai: {
renvoyer 1
}
sifaux: {
renvoyer n*(factorielle de: n-1)
}.
}.
-- pour stylo_deux prendre stylo copieToi.
--
-- pour stylo_trois prendre stylo copieToi.
--
-- stylo_deux largeplume.
-- stylo_deux tonx:100 tonY:100 ecrire: "factorielle de: 6 =" capitalise.
-- stylo_deux ecrire:(factorielle de: 6) entexte.
--
-- stylo_trois moyenneplume.
-- stylo_trois tonx:200 tonY:200 ecrire: "factorielle de: 7 =" capitalise.
-- stylo_trois ecrire:(factorielle de: 7) entexte.
--
-- stylo_deux detruitToi.
-- stylo_trois detruitToi.
--
--
-- stylo_deux tonx entexte.
-- stylo petiteplume.
-- stylo tonx:300 tonY:300 ecrire: "factorielle de: 8 =" capitalise.
-- stylo ecrire:(factorielle de: 8) entexte.
--
-- stylo vaenx:380 y:389.
-- stylo ecrire: stylo tonx entexte ecrire: stylo tony entexte.
-- pour parcours prendre {
-- avec max:m pas:p.
--
-- stylo rentrecheztoi.
-- 1 a:m repeter: {
-- avec i.
--
-- stylo ecrire: i entexte.
-- stylo vaenx: stylo tonx+p y: stylo tony+p.
-- }.
-- }.
--
-- parcours max:100 pas:50.