DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T

⟦76d8d5470⟧ TextFile

    Length: 1307 (0x51b)
    Types: TextFile
    Names: »TEST_FACTORIELLE«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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.