Discussion :

[Adymadio]

J'ai fait l'exercice puissance de 2 du "Le langage Pascal" de Patrick Trau sous Free Pascal, en essayant d'entrer un integer de valeur 17000 comme valeur maximum, Free Pascal boucle infiniment...😬😱, j'ai essayé le même algorithme en C.. tout se passe bien...
Je run dans l'ide de Fpc sous Ubuntu et franchement ce n'est pas la classe...

[JP CASSOU]

J'ai fait l'exercice puissance de 2 du "Le langage Pascal" de Patrick Trau sous Free Pascal, en essayant d'entrer un integer de valeur 17000 comme valeur maximum, Free Pascal boucle infiniment...😬😱, j'ai essayé le même algorithme en C.. tout se passe bien...
Je run dans l'ide de Fpc sous Ubuntu et franchement ce n'est pas la classe...

Un exemple de ton code ?

[Adymadio]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
PROGRAM puiss2 (input,output);
VAR
valeurmini,valeurmaxi : integer ;
BEGIN
writeln ('Entrez une valeur maxi:');
readln(valeur maxi);
valeur mini:=1;
WHILE valeurmini<=valeurmaxi do
Bégin
Writeln(valeurmini);
valeurmini:=valeurmini*2;
End;
END.

[Adymadio]

Ne faites pas attention au faute de saisie: valeur mini, valeur maxi, Bégin...

[acaumes]

Bonjour,

1/ utilises la balise code (# en haut de la fenêtre de saisie)

2/ Après correction du programme qui ne compile pas (valeur mini et valeur maxi sans espace ainsi que begin sans accent... j'obtiens ceci:

1
2
4
8
16
32
64
128
256
512
1024
2048
4096
8192
16384

soit ce qui me semble être attendu...

OK? J'ai corrigé directement...
Cordialement

[Adymadio]

C'est exactement le code que j'ai saisie, à part le valeur maxi et valeur mini et le Bégin, qui je le répète est une faute de frappe dû à Androïd..., mais PAS dans le fichier source, mais chez moi, dès que j'entre une valeur supérieure à 17000 mon compilateur fait une boucle infinie...

[acaumes]

Ah bon?
Avec ce programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PROGRAM puiss2 (input,output);
VAR
valeurmini,valeurmaxi : integer ;
BEGIN
writeln ('Entrez une valeur maxi:');
readln(valeurmaxi);
valeurmini:=1;
WHILE valeurmini<=valeurmaxi do
Begin
Writeln(valeurmini);
valeurmini:=valeurmini*2;
End;
ReadLn
END.

J'obtiens

Entrez une valeur maxi:
124000
1
2
4
8
16
32
64
128
256
512
1024
2048
4096
8192
16384
32768
65536

NB: LAZARUS 3.6 FPC 3.2.2 sous Windows 11