godan13
Messages postés7Date d'inscriptionmardi 8 mai 2007StatutMembreDernière intervention 2 juillet 2007
-
23 mai 2007 à 14:24
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 2021
-
24 mai 2007 à 21:38
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) ;
godan13
Messages postés7Date d'inscriptionmardi 8 mai 2007StatutMembreDernière intervention 2 juillet 2007 24 mai 2007 à 19:37
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
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 24 mai 2007 à 21:38
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;