Ma fenetre se ferme tt seule

Résolu
Signaler
Messages postés
7
Date d'inscription
mardi 8 mai 2007
Statut
Membre
Dernière intervention
2 juillet 2007
-
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
 Bonjour, c'est mon premier code et ma fenetre se ferme tt seule apres affi duresultat
voici le code

var pi : real
var rep : real

begin
   var pi := 3.1415 ;
   write ("saisissez le diametre de votre cercle et appuyez sur entrer") ;
   readln (rep) ;
   writeln (rep * pi) ;

end.

Merci de m'aider.

4 réponses

Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
5
Bonjour,
Ajoute un readln;
Avant le end.

Dom
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,


c'est parce que c'est une application console ...

il faut donc le gerer soit même.


ensuite quelle version de Delphi tu utilises ?

Il y a quand même quelques erreurs dans le code ( enfin pour compiler sous Delphi)


exemple :

program Project1;

 {$APPTYPE CONSOLE}

var  rep : Extended;

begin

   write ('saisissez le diametre de votre cercle et appuyez sur entrer') ;

   readln (rep) ;

   writeln (rep * pi) ;

   write ('appuyez sur entrer pour terminer') ;

   readln  ;
end.

 
@+
Cirec

<hr size="2" />

 
@+
Cirec

<hr size="2" />
Messages postés
7
Date d'inscription
mardi 8 mai 2007
Statut
Membre
Dernière intervention
2 juillet 2007

Re, je suis desolé mais pour le writeln, le programme ne se fermerais pas, c'est mieux qu'avant mais ce que je voudrais vraiment c'est que ça reparte en redemandant un nouveau diametre, etc
Merci.
Godan 
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
Salut,

Je ferais quelque chose dans le genre :

program Cercle;

{$APPTYPE CONSOLE}

const
  Yes = ['o', 'O', 'y', 'Y'];

var
  Diam: Extended;
  OneMore: Char = 'o';

procedure Reset;
begin
  Write('Saisissez le diametre de votre cercle et appuyez sur entree : ');
  Readln(Diam);
  Writeln(Diam * Pi);
  Write('Un autre calcul ? (o/n) : ');
  Readln(OneMore);
end;

begin
  while OneMore in Yes do
    Reset;
end.

Moi, j'aime pas programmer en mode console...