Discussion :

[ahmedzarga]

Bonjour,
Je veux écrire un programme Pascal permettant de défiler le nom et le prénom de l'utilisateur de droite à gauche sur la ligne du milieu de l'écran ; je ne sais pas comment utiliser la commande cursorto.

[ahmedzarga]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program ahmed;
uses wincrt;
var ch:string; i:integer;
begin
  writeln ('donnez un nom et un prénom');readln(ch);
  clrscr;
  i:=1;
  Repeat
 
    GotoXY(04, 07); Write(ch);
    clrscr;
    GotoXY(20, 07); Write(ch);
    clrscr;
    GotoXY(36, 07); Write(ch);
    clrscr;
    GotoXY(52, 07); Write(ch);
    clrscr;
    GotoXY(67, 07); Write(ch);
  until (i<>1);
 
end.

J'ai essayé mais le nom et le prénom passent très vite ; comment fais-je pour les ralentir ?

[rabDev]

bonjour,
rajoutes delay(100); avant chaque clrscr;

[l_autodidacte]

Dans ton code la variable i ne change pas de valeur, elle vaut toujours 1. Donc tu ne sortiras jamais de la boucle Repeat ......Until. Essaie avec ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program ahmed;
uses WinCrt;
var ch:string; i:integer;
begin
  write('Donnez un nom et un prénom : ');Readln(ch);
  clrscr;
  i:=80-Length(Ch); {On commence tout à fait à droite}
  Repeat
    GotoXY(i, 20); Write(ch);
    i:=i-1; {On décrément de 1 la variable i pour avancer vers la gauche}
    Delay(100);{On attend 1/10 de seconde}
    clrscr;
  until (i<=0);{Condition de sortie de la boucle}
 If i<=0 Then Readln;{On attend une action, tu peux enlever cette ligne}
end.