[Débutant] Programmer une boucle

Version imprimable

25/02/2007, 17h51
driver

[Débutant] Programmer une boucle
salut
je suis debutant en pascal

voila le code de mon petit programme
Code:

1 2 3 4 5 6 7 8 9 10 program suite; var i ,n:integer; begin write('donne une valeur a N : '); read(n); for i:=1 to n do begin write(' ',i); end; readln;readln; end.
ce que je veux c'est qu'apres affichage du resultat le program me demand a nouveau de donne la valeur n

je crois qu'il faut une boucle mais je ne sais pas comment faire :cry:
merci a vous

Salut;
Utilises une boucle while(), ou repeat/untile ;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program suite;
var i ,n:integer;
Begin
//____________________methode 1________________
  repeat
    write('(methode1) donne une valeur a N : '); readln(n);
    for i:=1 to n do begin
      write(' ',i);
    end;
    readln;
  until n=0;
  //____________________methode 2________________
  n:=1;
  while n<>0 do begin
    write('(methode2)donne une valeur a N : '); readln(n);
    for i:= 1 to n do
      write(' ',i);
    readln;
  end;
End.

25/02/2007, 20h59
driver

:king: merci Ultima ca marche tres bien
merci encore une fois