Visites aujourd'hui : 912 Top visites par jour : 71940 Le 09 novembre 2024 Visiteurs en ligne: 9 |
la structure itérative (Pour)
Corrigé : Rappel :
gotoxy(x,y) Exemple: |
program ex1; uses wincrt; var nom:string; i:integer; j:longint; begin Writeln('Donner votre nom :');readln(nom); for i:=80-length(nom)+1 downto 1 do {parcours de x avec i de 80-length(nom)+1 à i=1} begin clrscr; {Pour effacer tout l'écran } gotoxy(i,12); {y est fixe =12 pour afficher sur la ligne du milieu de l'écran.} write(nom); for j:=1 to 5000000 do ; { Pour générer un ralentissement } { Dans les autres version du Pascal, On peut aussi utiliser delay} { Delay(nb de millisecondes) Exemple : delay(1000) ; } end; end. |
Exemple d'exécution :
Date d'ajout de la page: 10/11/2013 Dernière mise à jour de la page: 10/11/2013 |
Dernière modification: 24 mai 2024
K i t e b . n e t © 2008-2024