Discussion :

[killerteck]

Bonjour a tous ,
Voila je debute dans le Pascal et il se trouve que j'ai une erreur dans mon code que je ne comprend pas ! Mon programe s'arrete apres que j'ai entrer les deux chiffres a additionner alors qu'il devrait afficher le résultat !
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program CALCUL ;
 var N1, N2, CHOIX, RESULT : integer ;
 var N3, N4, RESUL : real ;
 
Begin
 
 writeln('Bienvenue, dans la calculatrice de Jeremy !') ; writeln('') ;
 writeln('Voici les differentes methodes de calculs :') ;
 writeln('1. Addition') ;
 writeln('2. Soustraction') ;
 writeln('3. Multiplication') ;
 writeln('4. Division') ; writeln('') ;
 write('Veuillez choisir une methode de calcul : ') ; read(CHOIX) ;
 
if CHOIX=1
then
    begin
    writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
    write('Veuillez entrer le second chiffre : ') ; read(N2) ;
    RESULT := N1 + N2 ;
    writeln('Le resultat de cette addition est :',RESULT) ;
    readln ;
    end ;
End.

J'espere que vous pourrez m'aider !
Merci d'avance

[killerteck]

Ps : c'est assez urgent je dois rendre la calculette parfaitement opérationnel demain a mon prof de MPI !

Aidez-moi s'il vous plait !

[Loceka]

déjà utilises readln() au lieu de read() (cf la FAQ pour voir la raison).

Aussi, change le nom de ta variable result car je crois que c'est un mot-clef du langage (en tout cas en Delphi si j'ai bonne mémoire).

Sinon je ne vois aucune erreur dans ce que tu as écrit.

[Alcatîz]

Bonjour et bienvenue !

Si tu exécutes ton programme depuis une console, tu verras que le résultat s'affiche et que tu es dans le cas typique décrit dans la FAQ :
http://pascal.developpez.com/faq/?pa...u-il-a-affiche

La solution est donc : un ReadLn à la fin.

[killerteck]

Merci , pour toute vos reponses voici mon nouveau code il marche nikel sauf que maintenant je voudrais que des qu'une opération est fini le programme demande si l'utilisateur veut fermer le programme ou recommencer (reprendre le programme du debut ) ! J'ai aussi un lèger beg avec la division la fenetre se ferme toute seul une fois les deux valeurs entrées !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
program CALCUL ;
 uses crt;
 var N1, N2, CHOIX, RESULT : integer ;
 var N3, N4, RESUL : real ;
 var Ch: Char;
 
Begin
 
 writeln('=== Calculatrice ===') ; writeln('') ;
 writeln('Voici les differentes methodes de calculs :') ;
 writeln('1. Addition') ;
 writeln('2. Soustraction') ;
 writeln('3. Multiplication') ;
 writeln('4. Division') ; writeln('') ;
 write('Veuillez choisir une methode de calcul : ') ; read(CHOIX) ;
 
if CHOIX=1
then
    begin
    writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
    write('Veuillez entrer le second chiffre : ') ; read(N2) ;
    RESULT := N1 + N2 ;
    writeln('') ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' = ', RESULT) ;
    Ch := ReadKey;
 
    end
else
if CHOIX=2
then
    begin
    writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
    write('Veuillez entrer le second chiffre : ') ; read(N2) ;
    RESULT := N1 - N2 ;
    writeln('') ; writeln('Le resultat de la soustraction ',N1 ,' - ',N2 ,' = ',RESULT) ;
    readln ;
    Ch := ReadKey;
 
    end
else
if CHOIX=3
then
    begin
    writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N3) ;
    write('Veuillez entrer le second chiffre : ') ; read(N4) ;
    RESUL := N3*N4 ;
    writeln('') ; writeln('Le resultat de la multiplication est ',RESUL) ;
    readln ;
    Ch := ReadKey;
 
    end
else
if CHOIX=4
then
    begin
    writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
    write('Veuillez entrer le second chiffre : ') ; read(N2) ;
    RESUL := N3/N4 ;
    writeln('') ; writeln('Le resultat de la division est ',RESUL) ;
    readln ;
    Ch := ReadKey;
 
 
    end
else
if CHOIX>5
then
    begin
    writeln('') ; write('Veuillez entrer un chiffre designant une methode de calcul ! ') ;
    readln ;
    Ch := ReadKey;
 
    end ;
End.

Merci d'avance

[Loceka]

Pour ta première question, utilise repeat ... until ou while.

Pour ta seconde, regarde ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
    write('Veuillez entrer le second chiffre : ') ; read(N2) ;
    RESUL := N3/N4 ;

Tu lis N1 et N2 et tu essayes de traiter N3 et N4.
Le copier/coller est dangereux en programmation, ça nous arrive à tous.

Par contre, pour la division il faut faire un test (sur N4 ici) pour voir si tu ne divises pas par 0.

[killerteck]

Merci pour ton aide ! Peux-tu plus me décrire comment faire le repeat et le systeme du test pour savoir si on divise par 0 .

Merci d'avance !

PS: désolé je debute

[Loceka]

exemple de code avec à la fois un repeat et un test (if) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
repeat
  Ch := ReadKey;
  if (Ch = 'q') then
    stop := true;
until stop;

ok, le test est totalement inutile vu qu'on pourrait le mettre directement dans le until, et même avant ça on pourrait directement écrire "stop := Ch = 'q';" mais c'était pour en faire un.

[killerteck]

Merci de ton aide , je vais essayer sa tout de suite ! Je vous tiens au courant . =)

[killerteck]

J'ai testé ce code pour la fonction repeat mais cela ne marche pas ou est mon erreur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program CALCUL ;
 uses crt;
 var N1, N2, CHOIX, RESULT, DEB : integer ;
 var N3, N4, RESUL : real ;
 var Ch: Char;
 
Begin
 DEB := 0
 repeat
 writeln('=== Calculatrice ===') ; writeln('') ;
 writeln('Voici les differentes methodes de calculs :') ;
 writeln('1. Addition') ;
 writeln('2. Soustraction') ;
 writeln('3. Multiplication') ;
 writeln('4. Division') ; writeln('') ;
 write('Veuillez choisir une methode de calcul : ') ; read(CHOIX) ;
 
if CHOIX=1
then
    begin
    writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
    write('Veuillez entrer le second chiffre : ') ; read(N2) ;
    RESULT := N1 + N2 ;
    writeln('') ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' = ', RESULT) ;
    writeln('') ; writeln('Voulez-vous refaire un calcul ? (oui=0 , non=1)') ; read(DEB) ;
    until deb = 1;
    Ch := ReadKey;
 
    end

Merci d'avance

[Loceka]

faut quand même respecter l'imbrication des blocs.

Comme ton code est correctement indenté je pensais que ça allait de soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(* possible : *)
repeat
  ...
    ...
  ...
until condition
 
(* pas possible : *)
repeat
  ...
    until condition
    ...
  ...

[killerteck]

Je suis désolé je ne comprend pas ...Pourrais-tu expliquer plus en detail ou me passer l'adresse d'un site ou je pourrais combler mes lacunes ! Cela ne presse pas sachant que je vais faire dodo maintenant !

Merci pour toute ton aide !
Bonne Soirée

[diden138]

Bonjour,
il suffit de faire un repeat until ch='n' c'est à dire tant que l'utilisateur tape 'O' le programme rebouclera.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
program CALCUL ;
 uses crt;
 var N1, 
      N2,
      CHOIX:integer;
      Result:real;
      Ch: Char;
 
Begin
  repeat
  Clrscr; //pour netoyer la sortie
  writeln('=== Calculatrice ===') ; writeln('') ;
  writeln('Voici les differentes methodes de calculs :') ;
  writeln('1. Addition') ;
  writeln('2. Soustraction') ;
  writeln('3. Multiplication') ;
  writeln('4. Division') ; writeln('') ;
  write('Veuillez choisir une methode de calcul : ') ; read(CHOIX) ;
  if CHOIX=1 then
                    begin
                     writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
                     write('Veuillez entrer le second chiffre : ') ; read(N2) ;
                     RESULT := N1 + N2 ;
                     writeln('') ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' = ', RESULT) ;
                     writeln('') ; writeln('Voulez-vous refaire un calcul ? (oui=0 , non=N)') ;    
                    end;
                    Ch := ReadKey;//lire le choix de l'utilisateur     
 until Ch = 'N';//tester le choix de l'utilisateur 
end.

Aussi, change le nom de ta variable result car je crois que c'est un mot-clef du langage (en tout cas en Delphi si j'ai bonne mémoire).

non result n'est pas un mot réservé en pascal "standard".

Je suis désolé je ne comprend pas ...Pourrais-tu expliquer plus en detail ou me passer l'adresse d'un site ou je pourrais combler mes lacunes ! Cela ne presse pas sachant que je vais faire dodo maintenant !

Merci pour toute ton aide !
Bonne Soirée

Personellement je te conseil de lire les tuto disponible sur dev y a pas mieux (en tous cas en français) pour bien apprendre les bases du pascal sinon je t'assure que tu n'ira pas loin je pense notament à ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if CHOIX=1 then...

qui peut être avantageusement remplacé par un joli case choix of 1:inst1;2:inst2...etc

Corialement @+

[killerteck]

Bonjour a tous , voila j'ai revu tout mon code grace a vous voila le nouveau cependant il ya un beg que je ne trouve pas pouvez vous m'eclairer !
Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
program CALCUL ;
 uses crt;
 var N1, N2, CHOIX, RESULT, DEB, NUMB, N5, N6, N7 : integer ;
 var N3, N4, RESUL, N8, N9, N10 : Double ;
 var Ch: Char;
 
Begin
 DEB :=0 ;
 repeat
 writeln('=== Calculatrice ===') ; writeln('') ;
 writeln('Voici les differentes methodes de calculs :') ;
 writeln('1. Addition') ;
 writeln('2. Soustraction') ;
 writeln('3. Multiplication') ;
 writeln('4. Division') ; writeln('') ;
 write('Veuillez choisir une methode de calcul : ') ; read(CHOIX) ;
 
 
Case CHOIX of
  1 : writeln('') ; write('Veuillez selectionner le nombre de chiffre a additioner : ') ; read(NUMB) ;
       Case NUMB of
         1 : writeln('') ; write('Veuillez entrer un chiffre superieur a 1 ! ') ; writeln('') ;
 
         2 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
             write('Veuillez entrer le second chiffre : ') ; read(N2) ;
             RESULT := N1 + N2 ;
             writeln('') ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' = ', RESULT)
 
         3 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
             write('Veuillez entrer le second chiffre : ') ; read(N2) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N5) ;
             RESULT := N1 + N2 + N5 ;
             writeln('') ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' + ',N5 ,' = ', RESULT) ;
 
         4 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
             write('Veuillez entrer le second chiffre : ') ; read(N2) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N5) ;
             write('Veuillez entrer le quatrieme chiffre : ') ; read(N6) ;
             RESULT := N1 + N2 + N5 + N6;
             writeln('') ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' + ',N5 ,' + ',N6 ,' = ', RESULT) ;
 
         5 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
             write('Veuillez entrer le second chiffre : ') ; read(N2) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N5) ;
             write('Veuillez entrer le quatrieme chiffre : ') ; read(N6) ;
             write('Veuillez entrer le cinquieme chiffre : ') ; read(N7) ;
             RESULT := N1 + N2 + N5 + N6 + N7;
             writeln('') ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' + ',N5 ,' + ',N6 ,' + ',N7 ,' = ', RESULT) ;
 
         else writeln('') ; write('Cette calculette ne prend pas en charge les additions de plus de 5 chiffres ! ') ; writeln('') ;
       end ;
 
  2 : writeln('') ; write('Veuillez selectionner le nombre de chiffre a soustraire : ') ; read(NUMB) ;
       Case NUMB of
         1 : writeln('') ; write('Veuillez entrer un chiffre superieur a 1 ! ') ; writeln('') ;
 
         2 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
             write('Veuillez entrer le second chiffre : ') ; read(N2) ;
             RESULT := N1 - N2 ;
             writeln('') ; writeln('Le resultat de la soustraction ',N1 ,' - ',N2 ,' = ', RESULT) ;
 
         3 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
             write('Veuillez entrer le second chiffre : ') ; read(N2) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N5) ;
             RESULT := N1 - N2 - N5 ;
             writeln('') ; writeln('Le resultat de la soustraction ',N1 ,' - ',N2 ,' - ',N5 ,' = ', RESULT) ;
 
         4 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
             write('Veuillez entrer le second chiffre : ') ; read(N2) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N5) ;
             write('Veuillez entrer le quatrieme chiffre : ') ; read(N6) ;
             RESULT := N1 - N2 - N5 - N6;
             writeln('') ; writeln('Le resultat de la soustraction ',N1 ,' - ',N2 ,' - ',N5 ,' - ',N6 ,' = ', RESULT) ;
 
         5 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N1) ;
             write('Veuillez entrer le second chiffre : ') ; read(N2) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N5) ;
             write('Veuillez entrer le quatrieme chiffre : ') ; read(N6) ;
             write('Veuillez entrer le cinquieme chiffre : ') ; read(N7) ;
             RESULT := N1 - N2 - N5 - N6 - N7;
             writeln('') ; writeln('Le resultat de la soustraction ',N1 ,' - ',N2 ,' - ',N5 ,' - ',N6 ,' - ',N7 ,' = ', RESULT) ;
 
         else writeln('') ; write('Cette calculette ne prend pas en charge les soustractions de plus de 5 chiffres ! ') ; writeln('') ;
       end ;
 
  3 : writeln('') ; write('Veuillez selectionner le nombre de chiffre a multiplier : ') ; read(NUMB) ;
       Case NUMB of
         1 : writeln('') ; write('Veuillez entrer un chiffre superieur a 1 ! ') ; writeln('') ;
 
         2 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N3) ;
             write('Veuillez entrer le second chiffre : ') ; read(N4) ;
             RESUL := N3 * N4 ;
             writeln('') ; writeln('Le resultat de cette multiplication est', RESUL) ;
 
         3 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N3) ;
             write('Veuillez entrer le second chiffre : ') ; read(N4) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N8) ;
             RESUL := N3 * N4 * N8 ;
             writeln('') ; writeln('Le resultat de cette multiplication est', RESUL) ;
 
         4 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N3) ;
             write('Veuillez entrer le second chiffre : ') ; read(N4) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N8) ;
             write('Veuillez entrer le quatrieme chiffre : ') ; read(N9) ;
             RESUL := N3 * N4 * N8 * N9;
             writeln('') ; writeln('Le resultat de cette multiplication est', RESUL) ;
 
         5 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N3) ;
             write('Veuillez entrer le second chiffre : ') ; read(N4) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N8) ;
             write('Veuillez entrer le quatrieme chiffre : ') ; read(N9) ;
             write('Veuillez entrer le cinquieme chiffre : ') ; read(N10) ;
             RESUL := N3 * N4 * N8 * N9 * N10;
             writeln('') ; writeln('Le resultat de cette multiplication est', RESUL) ;
 
         else writeln('') ; write('Cette calculette ne prend pas en charge les multiplications de plus de 5 chiffres ! ') ; writeln('') ;
       end ;
 
  4 : writeln('') ; write('Veuillez selectionner le nombre de chiffre a diviser : ') ; read(NUMB) ;
       Case NUMB of
         1 : writeln('') ; write('Veuillez entrer un chiffre superieur a 1 ! ') ; writeln('') ;
 
         2 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N3) ;
             write('Veuillez entrer le second chiffre : ') ; read(N4) ;
             RESUL := N3 * N4 ;
             writeln('') ; writeln('Le resultat de cette division est', RESUL) ;
 
         3 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N3) ;
             write('Veuillez entrer le second chiffre : ') ; read(N4) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N8) ;
             RESUL := N3 * N4 * N8 ;
             writeln('') ; writeln('Le resultat de cette division est', RESUL) ;
 
         4 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N3) ;
             write('Veuillez entrer le second chiffre : ') ; read(N4) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N8) ;
             write('Veuillez entrer le quatrieme chiffre : ') ; read(N9) ;
             RESUL := N3 * N4 * N8 * N9;
             writeln('') ; writeln('Le resultat de cette division est', RESUL) ;
 
         5 : writeln('') ; write('Veuillez entrer le premier chiffre : ') ; read(N3) ;
             write('Veuillez entrer le second chiffre : ') ; read(N4) ;
             write('Veuillez entrer le troisieme chiffre : ') ; read(N8) ;
             write('Veuillez entrer le quatrieme chiffre : ') ; read(N9) ;
             write('Veuillez entrer le cinquieme chiffre : ') ; read(N10) ;
             RESUL := N3 * N4 * N8 * N9 * N10;
             writeln('') ; writeln('Le resultat de cette division est', RESUL) ;
 
         else writeln('') ; write('Cette calculette ne prend pas en charge les divisions de plus de 5 chiffres ! ') ; writeln('') ;
       end ;
 
end ;
if CHOIX >=5
then
    begin
    writeln('') ; write('Veuillez entrer un chiffre designant une methode de calcul ! ') ; writeln('') ;
 
    end ;
 writeln('') ; write('Voulez-vous refaire un calcul ? (Oui=0 , Non=1) : ') ; read(DEB) ;
 Clrscr;
 until DEB >= 1;
End.

Merci d'avance

[killerteck]

Une aide serait la bienvenue cela fait deja 1h que je cherche lol ! Je deprime

[Loceka]

Lequel de bug ?

Celui dû au non respect des blocs (begin ... end) dans les cases ou au copier/coller de la multiplication dans le traitement de la division ?

Bon, voici un exemple de code avec des case :
http://pascalprogramming.byethost15.com/lesson5.php

voici aussi un exemple de code avec for, ce qui te serait utile pour pouvoir traiter une opération avec un nombre quelconque d'opérandes :
http://pascal.developpez.com/cours/c..._StructRep#LXI

Et aussi demande-toi quel est l'intérêt de faire une division à plusieurs opérandes...

[killerteck]

Tu marques un point pour la question de la division a plusieurs lol !
Merci pour ton aide j'ai pu corriger toutes les erreurs de mon code ! Il marche nikel , je vais maintenant rajouter une fonction qui permettera de decomposer un nombre en facteur premier ! Cependant , je voudrais vous demander avant comment mettre de la couleur a mon prog et comment faire qu'il soit au milieu de la fenetre et non sur le coté gauche ?

Merci d'avance

PS: si vous avez des idées de fonctions que je peut rajouter a la calculette car mon prof a augmenter le delai je dois la faire pour vendredi !

[krachik]

Bonjour

Une aide serait la bienvenue cela fait deja 1h que je cherche lol ! Je deprime

Si on prend ton post précedent ,je vois qu'il y a trop de writeln inutile qui trainent.
1-un writeln(''); <==>writeln; donc le deuxieme est préférable
2-

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 var N1, N2, CHOIX, RESULT, DEB, NUMB, N5, N6, N7 : integer ;
 var N3, N4, RESUL, N8, N9, N10 : Double ;
 var Ch: Char;

Pas la peine de mettre trois var pour tes déclarations un seul suffira

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
            var   variable11,variable12,..... :Type;
                   variable21,variable22,.....:Type;
                   variable31.................  :Type;
                    ..........

- Et pour le nom des identificateurs:pas la peine de tout mettre en majuscule,penses à la clarté de ton code
3-Je crois qu'on déja dit plus haut d'utiliser (et pourquoi utiliser) un readln au lieu de read pour lire tes données dans ce genre de cas
4-Inutile de precéder un writeln(''); d'un write('machaine'); il suffit de faire un writeln('machaine');
5-Pour faire un nombre donné d'addition ,de soustration, et comme tu l'aura remarqué que tu fais plusieurs write();readln(); sur plusieurs lignes alors il est preférable de faire une boucle (Imagines que l'utilisateur veuille additionner
30 nombres,tu comptes faire 60 lignes de codes pour ça )
6-Pour rendre ton code plus clair,tu peux ecrire des fonctions pour faire tes différentes opérations
7................

Ton code peut s'ecrire tres simplement en peu de ligne
En plus je crois que tu as oublié la division dans tes opérations et répéter deux fois la multiplication

Voila une proposition de structure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
program monProgramme;
uses crt;
var     ........
         ........
 
{Fonctions}
 
begin
  {repeat}
      {Menu}
      {Lecture du choix}
      {Lecture nombre d'operation}
      case choix of
            1: {Addition}
            2:........
            ...........
      end;
      {Lecture choix continuer ou pas} 
  {until continuer=true}
end;

Cordialement

[killerteck]

Bonjour a tous ,
Je vous remercie encore pour votre aide qui ma etait precieuse ! Cependant j'ai de nouveaux problemes , je n'arrive pas a faire des additions , des soustractions et des multiplications de plus de 5 chiffres enfin je peux mais je devrais réecrire tout a chaque fois le code va etre enorme n'ya t-il pas une solution autre ? J'aimerais aussi pouvoir rajouter des fonctions tel que le carré ,le cube d'un nombre , ainsi que le cosinus ,le sinus ou d'autres fonctions qu'une calculette acomplie en général ...

Voici mon nouveau code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
program CALCUL ;
 uses crt;
 var N1, N2, CHOIX, RESULT, DEB, NUMB, N5, N6, N7 : integer ;
     N3, N4, RESUL, N8, N9, N10 : EXTENDED ;
     nombre: integer;
     tableau: array[1..10] of integer;
     diviseur: integer;
     i, j: integer;
     Nbrelement: integer;
 
Begin
 DEB :=0 ;
 
 repeat
 Textcolor(8);
 Writeln('');
 Writeln('                       ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ');
 Writeln('                       Û                                Û');
 Writeln('                       Û        ==Calculatrice==        Û');
 Writeln('                       Û                                Û');
 Writeln('                       ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ'); writeln ; writeln ;
 writeln('                   Voici les differentes methodes de calculs :') ; writeln ;
 Textcolor(2);
 writeln('                                1. Addition') ;
 Textcolor(3);
 writeln('                                2. Soustraction') ;
 Textcolor(12);
 writeln('                                3. Multiplication') ;
 Textcolor(6);
 writeln('                                4. Division') ;
 Textcolor(9);
 writeln('                                5. Decomposition') ; writeln ;
 Textcolor(5);
 write('                     Veuillez choisir une methode de calcul : ') ; read(CHOIX) ;
 
 
Case CHOIX of
  1 : Begin
       Textcolor(2);
       writeln ; writeln ; write('Veuillez selectionner le nombre de chiffre a additioner : ') ; readln(NUMB) ;
       Case NUMB of
         1 : Begin
              writeln ; write('Veuillez entrer un chiffre superieur a 1 ! ') ; writeln('') ;
             End;
         2 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N1) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N2) ;
              RESULT := N1 + N2 ;
              writeln ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' = ', RESULT)
             End;
         3 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N1) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N2) ;
              write('Veuillez entrer le troisieme chiffre : ') ; readln(N5) ;
              RESULT := N1 + N2 + N5 ;
              writeln ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' + ',N5 ,' = ', RESULT) ;
             End;
         4 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N1) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N2) ;
              write('Veuillez entrer le troisieme chiffre : ') ; readln(N5) ;
              write('Veuillez entrer le quatrieme chiffre : ') ; readln(N6) ;
              RESULT := N1 + N2 + N5 + N6;
              writeln ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' + ',N5 ,' + ',N6 ,' = ', RESULT) ;
             End;
         5 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N1) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N2) ;
              write('Veuillez entrer le troisieme chiffre : ') ; readln(N5) ;
              write('Veuillez entrer le quatrieme chiffre : ') ; readln(N6) ;
              write('Veuillez entrer le cinquieme chiffre : ') ; readln(N7) ;
              RESULT := N1 + N2 + N5 + N6 + N7;
              writeln ; writeln('Le resultat de l''addition ',N1 ,' + ',N2 ,' + ',N5 ,' + ',N6 ,' + ',N7 ,' = ', RESULT) ;
             End;
         else writeln ; write('Cette calculette ne prend pas en charge les additions de plus de 5 chiffres ! ') ; writeln ;
       End ;
      End ;
  2 : Begin
       Textcolor(3);
       writeln ; writeln ; write('Veuillez selectionner le nombre de chiffre a soustraire : ') ; readln(NUMB) ;
       Case NUMB of
         1 : Begin
              writeln ; write('Veuillez entrer un chiffre superieur a 1 ! ') ; writeln ;
             End;
         2 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N1) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N2) ;
              RESULT := N1 - N2 ;
              writeln ; writeln('Le resultat de la soustraction ',N1 ,' - ',N2 ,' = ', RESULT) ;
             End;
         3 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N1) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N2) ;
              write('Veuillez entrer le troisieme chiffre : ') ; readln(N5) ;
              RESULT := N1 - N2 - N5 ;
              writeln ; writeln('Le resultat de la soustraction ',N1 ,' - ',N2 ,' - ',N5 ,' = ', RESULT) ;
             End;
         4 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N1) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N2) ;
              write('Veuillez entrer le troisieme chiffre : ') ; readln(N5) ;
              write('Veuillez entrer le quatrieme chiffre : ') ; readln(N6) ;
              RESULT := N1 - N2 - N5 - N6;
              writeln ; writeln('Le resultat de la soustraction ',N1 ,' - ',N2 ,' - ',N5 ,' - ',N6 ,' = ', RESULT) ;
             End;
         5 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N1) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N2) ;
              write('Veuillez entrer le troisieme chiffre : ') ; readln(N5) ;
              write('Veuillez entrer le quatrieme chiffre : ') ; readln(N6) ;
              write('Veuillez entrer le cinquieme chiffre : ') ; read(N7) ;
              RESULT := N1 - N2 - N5 - N6 - N7;
              writeln ; writeln('Le resultat de la soustraction ',N1 ,' - ',N2 ,' - ',N5 ,' - ',N6 ,' - ',N7 ,' = ', RESULT) ;
              End;
         else writeln ; write('Cette calculette ne prend pas en charge les soustractions de plus de 5 chiffres ! ') ; writeln ;
       End;
      End;
  3 : Begin
       Textcolor(12);
       writeln ; writeln ; write('Veuillez selectionner le nombre de chiffre a multiplier : ') ; readln(NUMB) ;
       Case NUMB of
         1 : Begin
              writeln ; write('Veuillez entrer un chiffre superieur a 1 ! ') ; writeln ;
             End;
         2 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N3) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N4) ;
              RESUL := N3 * N4 ;
              writeln ; writeln('Le resultat de cette multiplication est', RESUL) ;
             End;
         3 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N3) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N4) ;
              write('Veuillez entrer le troisieme chiffre : ') ; readln(N8) ;
              RESUL := N3 * N4 * N8 ;
              writeln ; writeln('Le resultat de cette multiplication est', RESUL) ;
             End;
         4 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N3) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N4) ;
              write('Veuillez entrer le troisieme chiffre : ') ; readln(N8) ;
              write('Veuillez entrer le quatrieme chiffre : ') ; readln(N9) ;
              RESUL := N3 * N4 * N8 * N9;
              writeln ; writeln('Le resultat de cette multiplication est', RESUL) ;
             End;
         5 : Begin
              writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N3) ;
              write('Veuillez entrer le second chiffre : ') ; readln(N4) ;
              write('Veuillez entrer le troisieme chiffre : ') ; readln(N8) ;
              write('Veuillez entrer le quatrieme chiffre : ') ; readln(N9) ;
              write('Veuillez entrer le cinquieme chiffre : ') ; read(N10) ;
              RESUL := N3 * N4 * N8 * N9 * N10;
              writeln ; writeln('Le resultat de cette multiplication est', RESUL) ;
             End;
         else writeln ; write('Cette calculette ne prend pas en charge les multiplications de plus de 5 chiffres ! ') ; writeln ;
       End;
      End;
  4 : Begin
       Textcolor(6);
       writeln ; writeln ; write('Veuillez entrer le premier chiffre : ') ; readln(N3) ;
       write('Veuillez entrer le second chiffre : ') ; readln(N4) ;
       RESUL := N3 / N4 ;
       writeln ; writeln('Le resultat de cette division est', RESUL) ;
      End;
  5 : begin
        Textcolor(9);
        NbrElement := 0;
        diviseur := 2;
        writeln ; writeln ; write('Entrez le nombre dont vous voulez la decomposition : '); readln(nombre);
 
        while (nombre <> 1) do
        begin
          if ((nombre mod diviseur) = 0)
          then
          begin
            tableau[NbrElement + 1] := diviseur;
            nombre := nombre div diviseur;
            NbrElement := NbrElement + 1;
          end
          else
            diviseur := diviseur + 1;
        end;
        i := 1;
        while (i < NbrElement) do
        begin
          write(tableau[i], '*');
          i := i + 1;
        end;
       writeln(tableau[i]);
      end ;
End ;
if CHOIX >=6
then
    begin
    writeln ; write('Veuillez entrer un chiffre designant une methode de calcul ! ') ; writeln ;
 
    end ;
 Textcolor(15) ;
 writeln ; write('Voulez-vous refaire un calcul ? (Oui=0 , Non=1) : ') ; readln(DEB) ;
 Clrscr;
 until DEB >= 1;
End.

Merci d'avance pour votre aide !

PS : je dois rendre la calculette pour vendredi ce qui me laisse encore du temps pour l'ameliorer

[Loceka]

je n'arrive pas a faire des additions , des soustractions et des multiplications de plus de 5 chiffres enfin je peux mais je devrais réecrire tout a chaque fois le code va etre enorme n'ya t-il pas une solution autre ?

Je crois que j'avais anticipé ta question dans mon post précédent :
Utilises des boucles (for ou while) dont voici un exemple d'utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var i, n, res : int;
(* ... *)
n := 5;
res := 0;
for i := 1 to n do
  res := res + 1;
writeln(res);
 
res := 0;
i := 1;
while (i <= n) do
begin
  res := res + 1;
  i := i + 1;
end;
writeln(res);

J'aimerais aussi pouvoir rajouter des fonctions tel que le carré ,le cube d'un nombre , ainsi que le cosinus ,le sinus ou d'autres fonctions qu'une calculette acomplie en général ...

Pour les puissances, il est très facile de les calculer en se servant des boucles (cf plus haut).
Par contre pour les fonctions trigonométriques, soit tu les calcules à partir de leurs développements limités (recherche sur google si tu ne les connais pas), soit tu utilises l'unité Math.

Personnellement je ne l'ai jamais utilisée donc je ne peux pas t'en dire plus mais je suis sûr qu'il y'a plein de doc dessus : recherche sur google ou sur le forum.