Discussion :

[Raptor77]

Bonjour les ami(e)s,

je suis nouveau en programmation Pascal (j'ai mis FP sous Windows) et récemment j'ai mis en place le programme suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
program CERCLE;
const pi=3.14;
var r,air,perim : real
begin
       writeln('Tape un rayon en cm');
       readln(r);
       perim :=2*pi*r;
       air :=pi*r*r;
       writeln('Le cercle a une circonférence de', perim, 'cm');
       writeln('le cercle a une aire  de ', air, 'cm2');
end.

Ma compilation se fait très bien. Ensuite je fais ctrl+F9 pour exécuter et c'est là que les problèmes commencent.

Pascal me marque bien Tape un rayon en cm, je tape un nombre (par exemple 5) et là le programme s'arrête il revient à la console. Je dois alors de nouveau faire ctrl+F9 pour voir le résultat et après le résultat il me demande de nouveau de taper un nombre.

Est-ce normal si il revient à la console après que j'ai tapé un nombre ?
Ca me paraîtrait bizarre parce que à la fac sous Linux il ne fait pas ça.

Merci d'avance pour votre aide.
Cordialement

Raptor

[Alcatîz]

Bonjour et bienvenue !

En ajoutant l'unité Crt dans la clauses Uses, le programme s'exécute correctement depuis l'IDE Free Pascal. Sans cette unité, le programme s'exécute tout de même correctement directement sur la console.

[Raptor77]

Merci de ta réponse Alcatiz
Tu veux dire que je dois mettre uses crt avant le var ?
Je viens de le faire mais j'ai toujours le même problème

[Alcatîz]

La clause uses se met dans l'en-tête du programme :

Code :

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

1
2
3
4
5
program CERCLE;
Uses Crt;  { <---------- }
const pi=3.14;
var r,air,perim : real;
begin

[Raptor77]

C'est exactement ce que j'ai fais mais je dois toujours refaire ctrl+F9 pour voir le résultat

[droggo]

Boe,

Mets un ReadLn à la fin de ton programme.