Re: programation

Page principale

Répondre à ce message
Auteur: Tim Walker
Date:  
À: guilde
Sujet: Re: programation
smallProgram = TEXT
largeprogram = TEXT

PROC tryItAndSee(smallProgram)
BEGIN
    UNTIL CORRECT
        DO
            WRITE(smallProgram)
            TEST(smallProgram)
        DONE
    RETURN HAPPY
END 



PROC happtTodoSomeMore(Program):BOOLEAN
FUN = 100
BEGIN
    UNTIL CORRECT
        DO
            WRITE(largeProgram)
            TEST(largeProgram)
            FUN = FUN - 1
        DONE


    IF FUN <= 10 THEN
        RETURN FALSE
    ELSE
        RETURN TRUE
    END IF
END 



MAIN Program()
BEGIN

    tryItAndSee(smallProgram)

    
    WHILE happyToDoSomeMore(largeProgram)= TRUE
        CONTINUE
    ELSE    
        STOP
END
















Michel Teissedre wrote:
>
> La discussion sur la CAO orientée Architecture, m'a interpellé
> Je me dit que peut' être je pourrais apporter ma pierre à Linux,
> Mais et le Mais est de taille: je n'ai programmé que 5 lignes pour une
> commande  F1 sur Atari (en deux jours) il y à 12 ans.
> Pouvez vous me dire:
> 1)Si se lancer dans l'aventure de la programmation "efficace" relève:
> de l'enfantin
> du facile
> du possible,
> du politiquement correcte,
> de la gageure,
> de l'utopie,
> de la folie
> 2)Pour les cinq premières réponses, peut on décemment apprendre seul
> avec des livres, ou faut 'il envisager des cours pousses?
>     Pour les deux dernière, J'oublie l'idée, j'aime pas me taper la tête
> contre les murs: ça doit faire trop mal, ( j'ai jamais essayé).
> 2 bis) quelqu'un a essayé?
> 2 bis,bis)si vous avez essayé, est ce que ça fait vraiment mal?
> 3)Et dernière question découlant de "2)" qui découle de "1)": Que, Quoi,
> Où? me conseillez vous.
> merci d'avance pour votre franchise
> CADment votre
> Michel


-- 
----------------------------------------------------------------------
Tim Walker                                             Hewlett-Packard
Tel:     (+33) 04.76.14.12.33          Telecom Infrastructure Division
Fax:     (+33) 04.76.14.14.88            38053 Grenoble Cedex 9 FRANCE


HamNet:   f4jhd@??? (44.151.38.17)
      f4jhd@???
----------------------------------------------------------------------