demander si oui ou nn de relancer prog pascal Fermé

Question

Bonjour,
je voudrai savoir que doit-on écrir pour demander à l'utilisateur si oui ou nn il  veut redémarer le programme.
par exemple:
program Moyenne;
uses
wincrt;
var
   dc,ds,ch,m:real;

begin

 writeln('saisir votre note du devoir de controle'); 
 read (dc) ;
 writeln('               merci');
 writeln('saisir votre note du devoir de synthèse');
 readln(ds);
 m:=(dc+2*ds)/3;
 writeln('voila votre note');
 write(m:5:2)
end.


comment demander à l'utilisateur s'il veut refaire le calcule de sa moyenne dans une autre matière??

sadektlili · Answer

je ne compri pas ton quistion

sadektlili · Answer

tu fais une bouqle avec une "for" et une valeur de test  pour la condition d'arrer

tu a comprie ?

sadektlili · Answer

readln(n);  ___________n est le taille de tableau et la condition d'arrer
for i:=1 to n do___________le bougle 'for'  s'arret si n=0 le bougle se fait avec automatiquement n:=n-1; 
begin
write('saisie element');
readln(A[i]);
and;

sadektlili · Answer

program Moyenne; 
uses 
wincrt; 
var 
dc,ds,ch,m:real; 

begin 
n :=1;
for i:=0 to n do 
begin 
writeln('saisir votre note du devoir de controle'); 
read (dc) ; 
writeln(' merci'); 
writeln('saisir votre note du devoir de synthèse'); 
readln(ds); 
m:=(dc+2*ds)/3; 
writeln('voila votre note'); 
write(m:5:2); 
writeln('tu ve entre une autre note si oui  taper:2 si non taper :1 '); 
read (n) ; 
end;
end.

spoophy · Answer

non désolé Mr SEDI...machin pour demander la reexecution d'un programme il faut utilisé les label comme ça

program Moyenne;
label 10;
var
l:integer;
dc,ds,m:real;

begin

10:writeln('saisir votre note du devoir de controle');
read (dc) ;
writeln(' merci');
writeln('saisir votre note du devoir de synthèse');
readln(ds);
m:=(dc+2*ds)/3;
writeln('voila votre note');
write(m:5:2);
writeln('taper 1 pour reexecuter les programme ou 2 pour sortir');
readln(l);
if l=1 then goto 10  else writeln('fin du travail');
end.

voila je l'ai tester et il fonctionne pense au resolu

KX · Answer

Sinon tu peux utiliser une écriture plus fonctionnelle de ton programme, c'est plus clair et tu peux mieux t'en servirprogram Moyenne;

procedure Calcul;
var dc,ds,m:real;
begin
write('Note du devoir de controle : '); readln(dc);
write('Note du devoir de synthese : '); readln(ds);
m:=(dc+2*ds)/3; writeln('Moyenne : ',m:0:2);
end;

function Fin:boolean;
var ch:real;
begin
writeln;
write('Recommencer le calcul ? (oui=2 non=1) : '); readln(ch);
result:=(ch=2);
writeln;
end;

begin
repeat Calcul until (not Fin);
write('Fin du programme. Appuyer sur Entree pour terminer'); readln;
end.

Demander si oui ou nn de relancer prog pascal

6 réponses

Discussions similaires