CoursTPW a¡‹\ ¡ \ ?` LL a¡‹\ ¡ \ _£«\ M¦›« LL QR QUT SXR LL P Structures alternatives PM h¢?MMM?s⁄¡‹?MMM?d ¡?Z QM b\ ¡?MMM?n¢?MMM?d‹ ?Z PM?h¢?MMM?s⁄¡‹?MMM?d ¡ Cette commande est similaire au basic, elle se traduit par : SI … ALORS … SINON … Program...
More
CoursTPW a¡‹\ ¡ \ ?` LL a¡‹\ ¡ \ _£«\ M¦›« LL QR QUT SXR LL P Structures alternatives PM h¢?MMM?s⁄¡‹?MMM?d ¡?Z QM b\ ¡?MMM?n¢?MMM?d‹ ?Z PM?h¢?MMM?s⁄¡‹?MMM?d ¡ Cette commande est similaire au basic, elle se traduit par : SI … ALORS … SINON … Program exemple3a ; Var chiffre:integer ; BEGIN Write('d‹ ‒¡ ?·‹?¡‹ ¡‒?fi\ ? ‒›fi £‒\‹ ?Y ') ; Readln(¦⁄ ¢¢‒¡) ; If ¦⁄ ¢¢‒¡ < 100 then writeln(¦⁄ ¢¢‒¡, ' ¡ ? ‹¢"‒ ¡·‒?Ÿ?¦¡‹ M') else writeln(¦⁄ ¢¢‒¡, ' ¡ ? ·fi"‒ ¡·‒?›·?"£\ ¡?Ÿ?¦¡‹ M') ; END. Ce programme exemple3a compare un chiffre entré par l'utilisateur au scalaire 100. Si le chiffre est inférieur à 100, alors il affiche cette information à l'écran, sinon il affiche que le chiffre entré est supérieur ou égale à 100. Program exemple3b ; Var chiffre:integer ; BEGIN Write('d‹ ‒¡ ?·‹?¡‹ ¡‒?fi\ ? ‒›fi?£‒\‹ ?Y ') ; Readln(¦⁄ ¢¢‒¡) ; If ¦⁄ ¢¢‒¡ < 100 then begin writeln(¦⁄ ¢¢‒¡, ' ¡ ? ‹¢"‒ ¡·‒?Ÿ?¦¡‹ M') ; end else begin writeln(¦⁄ ¢¢‒¡, ' ¡ ? ·fi"‒ ¡·‒?›·?"£\ ¡?Ÿ?¦¡‹ M') ; end ; END. Ce programme exemple3b fait
Less