problème avec free pascal

[invited5efedfa]

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 :

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


Raptor77
-----

[invite2d7144a7]

Bonjour,

Tu tournes en rond.

Après exécution, comme il n'y a rien pour mettre en attente, le programme se termine.

En faisant à nouveau Ctrl F9, tu relances l'exécution, et ce qui était précédemment affiché dans la console apparaît, d'où la possibilité pour toi de voir le résultat .... et la nouvelle demande d'entrée, etc.

à faire :

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');

  ReadLn;

end.

Le ReadLn va mettre ton programme en attente d'une entrée, et tu pourras lire le résultat, puis terminer en faisant ENTER.

ps : prend l'habitude de bien présenter ton code, ce sera tout bénéfice pour toi, et pour ceux qui seront appelés à le lire/corriger.

[invited5efedfa]

Merci pour ta réponse!
Je crois que je vais souvent avoir besoin d'aide je suis nouveau en pascal.

Merci aussi pour les conseils