|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T ┃
Length: 1307 (0x51b)
Types: TextFile
Names: »TEST_FACTORIELLE«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦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.