program essai; var k, n, i, a : integer; begin For a:= 1 to 100 do writeln; writeln ('Entrez un nombre SVP'); readln(n); For k:= 1 to n do begin For i:= 1 to k do write ('*'); writeln; end; write ('Etonnant, non'); For a := 1 to 1000 do end.
Télécharger le zip
eee......pas vraiment étonnant, bien franchement!2k, ça se passe de commentaire...
Ca doit drôlement fatiguer le C++...
D'accords, d'accords, c'est nul...Je voulais juste mettre mon 1er prog en TP.Pour prévenir, je vais donc l'indiquer dans le titre(que c nul).Comme ça vous serez prévenu!!!
enfin franchement, si tu fais du C++, tu sais faire un boucle for dans n'importe quel langage...for a:= 1 to 100 do writeln;ca c pas bo, tu pourrait faire un clear screen a la place, ca serait plus propre...=> USES crt;=> Clrscr;je dirai rien sur la sorti du prog...
Ce prog est absolument merveilleux !! Enfin... presque.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 903 486 membres 55 nouveaux aujourd'hui 16 195 membres club