[probleme] case of

voila j ai essayer de programmer ca et il me dit qu il y a des erruer et je ne vois pas lesquels si quelqu un pourrait m aider ca serait gentil

program exo2;

var operation:integer;
nbre1,nbre2:integer;
begin

repeat
writeln('entrer 1 pour additionner');
writeln('entrer 2 pour soustraire');
writeln('entrer 3 pour diviser');
writeln('entrer 0 pour quitter');
writeln('*******************************"');
writeln;
repeat
writeln('entrer un nbre entre 1 et 100 compris:');
readln(nbre1);
until nbre1 in ['1'..'100'];
writeln('entrer une operation: ');
readln(operation);

case operation of


1 : writeln('entrer un 2eme nbre :');

readln ( nbre2);

writeln('addition:', nbre1 + nbre2);
readln;
writeln;


2 :
writeln('entrer un 2eme nbre :');
readln(nbre2);

writeln('soustracrion: ',nbre1-nbre2);
readln;
writeln;


3 :



writeln('entrer un 2eme nbre :');
readln(nbre2);

writeln('division: ',nbre1 div nbre2);
readln;
writeln;


case nbr1 of

0 :

writeln('voulez-vous quitter ? (O/N): ');
readln(confirm);
if (confirm ='N') then
begin
writeln('on continue');
writeln;
end;

until (confirm ='O');
end.

Pq tu dmande le ièm nombre à chaque point du menu?
Tu fais choisir les nombres puis tu répètes le menu et ensuite tu utilises le case of non?

oui mais ce ke je vx c qu il doit obligatoirement rentrer 0 ou 1 ou 2 ou 3 avant que le program lui demande le deuxieme nbre

Je sais pas si il y a moyen ça mais apparement l'erreur est là

voila une possibilité... regarde bien...
J'ai du corriger pas mal de faute par rapport a ton code initial...
Mais je n'ai fais que modifier le tien !!!

Code:


program exo2;

var operation,nbre1,nbre2:integer;
    confirm : char;
    statut : string;

begin

while(statut<>'Je veux quitter') do begin

writeln('entrer 1 pour additionner');
writeln('entrer 2 pour soustraire');
writeln('entrer 3 pour diviser');
writeln('entrer 0 pour quitter');
writeln('*******************************"');
writeln;
repeat
writeln('entrer un nbre entre 1 et 100 compris:');
readln(nbre1);
until nbre1 in [1..100];
writeln('entrer une operation: ');
readln(operation);

case operation of


1 : begin
    writeln('entrer un 2eme nbre :');
    readln(nbre2);

    writeln('addition:', nbre1 + nbre2);
    readln;
    writeln;
    end;

2 : begin
    writeln('entrer un 2eme nbre :');
    readln(nbre2);

    writeln('soustracrion: ',nbre1-nbre2);
    readln;
    writeln;
    end;

3 :  begin
    writeln('entrer un 2eme nbre :');
    readln(nbre2);

    writeln('division: ',nbre1 div nbre2);
    readln;
    writeln;
    end;

0 : begin
  repeat
  writeln('voulez-vous quitter ? (O/N): ');
  readln(confirm);
  until upcase(confirm) in ['O','N'];
  if (confirm ='N') then begin
    writeln('on continue');
    writeln;
    end
  else statut:='Je veux quitter';


  end;


  end;
  end;


end.


j'avais aussi commencer jay :p

il ne me manquait que le until (confirm ='O');


sinon personellement je suis pas un grand fan du repeat :-) je préfère largement un while qui est largement plus clair comme tu as ta condition tout en haut a coté du while et tu dois pas chercher quoi va avec quoi lorsque tu as plusieur repeat imbriqué

oui mais vu qu'il a mis des repeat et que j'ai garder son code de base ...

JE ne l'ai pas modifier...

C'est vai que nous par habitude on ne les emploi pas vu qu'en java on ne l'avais pas vu l'année dernier (ca existe po je pense) !

Mais pour ceux qui l'emploi on ne peu pas leur reprocher vu que ca marche ^^

si tu as changer :p il y a un repeat pour la boucle principale :-)

d'ailleur je ne parvient pas a faire fonctionner avec le repeat...

en gros :

j'ai a la fin :

until confirm in ['O'];

j'avais pas vu le until pour ca...

tellement d'erreur avant et d'oublie, que j'avais pas compris qu'il voulais que ca serve a ca...

Enfin de tte facon on c'est compris par msn ^^

yrejk a écrit:j'avais pas vu le until pour ca...

tellement d'erreur avant et d'oublie, que j'avais pas compris qu'il voulais que ca serve a ca...

dsl mais c ma premiere année de programmation j avais jamais touché a la programmation avaant donc un peu d indulgence svp
by the way merci pr la correction:)

mc4 a écrit:
dsl mais c ma premiere année de programmation j avais jamais touché a la programmation avaant donc un peu d indulgence svp
by the way merci pr la correction:)

Il n'y avait rien de méchant dans ce message...
On cherchait juste avec gee a quoi servait le until la tout en bas ...
Car j'avais pas penser comme toi ...
Mais tu n'avais pas tord... il doit etre tres possible de programmer avec un until la ...

Soit ... Je ne critique en rien ta manière de programmer mais juste ma manière de ne pas avoir su dechiffrer ton code !

mais non t a mal conpris c etait juste pr dire ke jsuis debutant dc c normal ke jfaisse des fautes
et t as raison on ne programme pas ts de la meme maniere

et sinon a part ca ta compris ton erreur ?

oui tkt j avais doubler inutilement le cas of sur le 0 et oublier les begin et end; et aussi le upcase pour la confirmation mais jme pose une question si c des signes ke l'utilisateur doit rentrer au lieu de 1,2,3 je dois declarer l'operation comme quelle type de variable et jdois aussi mettre les '' '' sur chaque signe kand jfais le case of ou les laisser comme ca?

declarer alors en char


var choix : char;

case choix of
'+' : begin ...end;
'-' : begin ...end;
'...' : begin ...end;

ok thanks you