aide pour programme de calcul

Question

Bonjour, qui peut m'aider, je veux ecrire un programme de calcul(addition), mais c'est l'ordinateur qui pose la question, ex:  -posez la question(20 question max)
-entrer reponse
-bonne reponse (afficher resultat cumuler et continuer)
-mauvaise reponse (ajouter erreur-afficher ressultat cumuler - afficher bonne reponse)
-6 erreur fin
-10 question repondu avec 6 bonnes reponse(choisir d'arreter ou non)
_afficher score finale(bonne reponses et nombre de question)

J'arrive a comprendre le cheminement , pour ce qui est d'ecrire le programme c'est autre chose, envoyer moi des idees, ou des lien qui vont m'aider.

Merci d'avance.

Mat$on · Answer

Dans quel langage veux tu le faire déjà?

kill4m · Answer

tu veux le faire en quelle language ton programme ?

undebutant · Answer

Oups en effet  je n'ai pas preciser, en langage pascal....

kill4m · Answer

Je vais pas pouvoir t'être d'une grande aide alors désolé.

Mat$on · Answer

https://pascal.developpez.com/

Tu devrais trouver comment faire tes boucles itératives et de conditions ;) !

undebutant · Answer

Merci pour le lien, je vais aller le lire...

undebutant · Answer

Bonjour, j'ai reussi a ecrire le progragramme pour que l'ordi me donne le calcul a faire(merci pour le lien), mais a chaque fois que j'entre la reponse, bonne ou mauvaise, l'ecran se ferme, que dois faire pour que l'ordi me dise si le calcul est bon?

undebutant · Answer

Voici, mon programme(c'est juste un debut), je suis completement bloquer pour se qui est d'ecrire les boucles, alors si quelqu'un peut m'aider se serais grandement apprecier, 






program Addition_de_base;

uses forms;
 const
 NbrErreurMax:integer=6;


var x,y,resultat,tentative:integer;
     erreur:integer;
     z,S:integer;
      C,F,BR,NQ:integer;
begin

randomize;

  repeat
  tentative:=tentative + 1;
   erreur:=0;
  Write('Tentative  : ');

  write(tentative);
  writeln;
  writeln;
  x:=random(100)+1;
  write(' Generer un nombre x  : ');{le programme genere un nombre aleatoire x}
  writeln(x);
  writeln;
  y:=random(100)+1;
  write(' Generer un nombre y : ');{le programme genere un nombre aleatoire y}
   writeln(y);
   writeln;
  writeln('Calculez x + y = ? ');
  writeln;
  write('La reponse est (z) :  '); {entrez la reponse du calcul}
   read(z);
  readln;
  writeln;

       write('Le score cumulatif l''etudiant est (C): ');
        write(z);
       writeln;



      write('Le bon résultat est (S) : ');
      write(x+y);
    readln;


     if x+y =  resultat then
  begin
   writeln('le score cumulatif de l''etudiant est (C): ');
   writeln;
    writeln('le bon resultats est (S): ');
    writeln;
    end

         Else
    begin
     writeln;
    writeln('la reponse est fausse ');
    writeln;
    writeln('le score cumulatif de l''etudiant est (C): ');
    writeln;
    writeln('le bon resultat est (S): ' , (x+y));
    end;
    readln;
    until tentative = 20;
    writeln;
    writeln('Le score Final est (F): ');
    Writeln;
    Writeln('Les bonnes reponses sont (BR): ');
    writeln;
    Writeln('Le nombre de questions est (NQ): ');
    Writeln;
    writeln('Votre Test est Terminer ....Aurevoir');
    readln;

end.

Aide pour programme de calcul

8 réponses

Discussions similaires

Newsletters