Discussion :

[driver]

salut
je suis debutant en pascal

voila le code de mon petit programme

Code :

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

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
merci a vous

[Ultima]

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

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
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.

[driver]

merci Ultima ca marche tres bien
merci encore une fois