|
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: 947 (0x3b3)
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«
└─⟦38876e83d⟧
└─⟦this⟧
fenetre cacheToi.
fenetre tonX:0 tonY:0 taLargeur:1280 taHauteur:1024
tonNom:"Un peu de calculs...".
fenetre AfficheToi.
1 attend.
Pour eleve Prendre {
Avec LaValeur:N ALaPuissance:P.
Pour s Prendre N.
Pour i Prendre 1.
{i<P} TantQueVrai: {
Pour s Prendre s*N.
Pour i Prendre i+1
}.
Renvoyer s
}.
stylo taFenetre:fenetre.
stylo GrandeTaille.
stylo tonX:250 tonY:250.
stylo ecris:"2 a la puissance 5 donne "+ (eleve LaValeur:2 ALaPuissance:5) image
+",".
Pour factorielle Prendre {
Avec De:n.
n<1 SiVrai: {
Renvoyer 1
} SiFaux: {
Renvoyer n*(factorielle De: n-1)
}
}.
stylo tonX:450 tonY:300.
stylo ecris:"et la factorielle de 8 donne "+ (factorielle De: 8) image+".".
stylo tonX:410 tonY:700.
stylo MoyenneTaille.
stylo ecris:"voila, c'est fini vous pouvez eteindre la tele,".
stylo tonX:480 tonY:750.
stylo ecris:"ou vous faire un petit unparse...".