Demander si oui ou nn de relancer prog pascal
hassen52
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
-
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
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??
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??
A voir également:
- Demander si oui ou nn de relancer prog pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Relancer spooler impression - Guide
- Robot prog - Télécharger - Édition & Programmation
6 réponses
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;
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;
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
Sinon tu peux utiliser une écriture plus fonctionnelle de ton programme, c'est plus clair et tu peux mieux t'en servir
program 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.
si il répond par oui, le programme se relance, il recommence depui le débu, s'il répond par non, le programme s'arrète