[Débutant] Réalisation d'une calculatrice

**bababam** · 26/01/2009, 22h02

Bonjour !

Je débute en Pascal, et je me suis lancé dans l'écriture de Pasculatrice (notez la finesse du jeu de mots), une calculatrice traitant les 5 opérations.
Pourriez-vous m'aider à rendre ce code correct s'il vous plaît ? M'expliquer mes erreurs.

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
program calculator (output);
var op1 : integer; {On définit les variables. op1=opération, nbr1=premier nombre à opérer, nbr2: 2e nombre à opérer}
    nbr1: real;
    nbr2: real;
 
begin
 
writeln ('Bonjour. Bienvenue dans Pasculatrice ALPHA par Bam. Veuillez choisir une opération');
        writeln ('Multiplication, tapez 1.');
        writeln ('Division tombant juste, tapez 2');
        writeln ('Division donnant un nombre à virgule, tapez 3');
        writeln ('Modulo, tapez 4');
        writeln ('Addition, tapez 5');
        writeln ('Soustraction, tapez 6');  {On dit à l'user les opérations disponibles}
        writeln ('Appuyez sur ENTREE pour confirmer');
readln (op1); {On demande à remplir la variable de l'opération. Jusque là rien de compliqué}
 
end.
 
if op1=1 {si l'user tape 1}
   then {On lui demande de choisir les deux nombres à multiplier}
begin
 
     writeln ('Choisissez le premier réel à multiplier');
        readln (nbr1);
     writeln ('Choisissez le deuxième réel à multiplier');
        readln (nbr2);
     writeln (' ',nbr1,'*',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=2 {si l'user tape 2}
   then
begin
 
writeln ('Choisissez le premier réel à diviser');
        readln (nbr1);
writeln ('Choisissez le deuxième réel à diviser');
        readln (nbr2);
write (' ',nbr1,'div',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=3 {si l'user tape 3}
   then
begin
 
writeln ('Choisissez le premier réel à diviser');
        readln (nbr1);
writeln ('Choisissez le deuxième réel à diviser');
        readln (nbr2);
write (' ',nbr1,'/',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=4 {si l'user tape 4}
   then
begin
 
writeln ('Choisissez le premier réel pour le modulo');
        readln (nbr1);
writeln ('Choisissez le deuxième réel pour le modulo');
        readln (nbr2);
write (' ',nbr1,'mod',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=5 {si l'user tape 5}
   then
begin
 
writeln ('Choisissez le premier réel pour l''addition');
        readln (nbr1);
writeln ('Choisissez le deuxième réel pour l''addition');
        readln (nbr2);
write (' ',nbr1,'+',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=6 {si l'user tape 6}
   then
begin
 
writeln ('Choisissez le premier réel pour la soustraction');
        readln (nbr1);
writeln ('Choisissez le deuxième réel pour la soustraction');
        readln (nbr2);
write (' ',nbr1,'-',nbr2,'=');         {On effectue l'opération}
 
end.
 
{Faut que je trouve une formule pour qu'une fois ENTREE pressé, on retourne au début}

Merci d'avance.

Cordialement,

Bam'

**droggo** · 26/01/2009, 22h55

Jai,

La première chose à faire est de diviser tout ça en fonctions (au sens large : fonctions ou procédures).

**richard** · 27/01/2009, 00h01

1) Tes "end" sont terminés par des points, ça ne peut pas compiler. Seul le "end" principal, donc le dernier qui correspond au "BEGIN" du programme doit comporter un point. Les autres doivent se terminer par ';'

2) Il est plus logique de remplacer tes 'IF' par un 'CASE' dans ce type de conditions.

3) Fais ce que te dit Droggo.

**krachik** · 27/01/2009, 00h26

Bonjour

Des réponses précédentes auxquelles j'ajoute :
1.Que tu ne fais aucune opération du tout

( c'est juste un simple affichage de l'opération à faire, il y a pas de calcul)

Code :

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

1
2
3
4
5
 
 writeln (' ',nbr1,'*',nbr2,'=');  {On effectue l'opération}
 write (' ',nbr1,'div',nbr2,'=');
 write (' ',nbr1,'/',nbr2,'=');
 ......

2.Que tu peux utiliser un char plutôt qu'un entier pour op1
3.

Code :

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

{Faut que je trouve une formule pour qu'une fois ENTREE pressé, on retourne au début}

Il s'agit de mettre tout ça dans une boucle

Bon courage
Cordialement

**bababam** · 27/01/2009, 21h23

Désolé de mon noobisme mais je ne vois pas à quoi les procédures peuvent servir là dedans.

Cordialement,

Bam

**droggo** · 28/01/2009, 03h38

Gao,

Envoyé par bababam

Désolé de mon noobisme mais je ne vois pas à quoi les procédures peuvent servir là dedans.

Elles servent comme de partout, c'est à dire à découper le problème en sous-problèmes.

Cela amène à avoir un code plus clair, plus lisible, plus compréhensible ...

Si chaque fois que tu veux calculer disons .... un sinus, serais-tu d'accord pour écrire le code du calcul effectif de la valeur correcte ?

**richard** · 28/01/2009, 07h54

Même réponse et j'ajoute en sus qu'elles permettent d'éviter au maximum les variables globales donc un certain nombre de bugs.

**droggo** · 28/01/2009, 12h13

Gao,

Envoyé par richard

Même réponse et j'ajoute en sus qu'elles permettent d'éviter au maximum les variables globales donc un certain nombre de bugs.

S'il n'y a pas de procédures ou fonctions, alors il n'y a pas de variables globales.

**richard** · 28/01/2009, 12h45

Exact ; il eût été plus exact de dire que les procédures et les fonctions permettent une localité plus importante à la fois pour le code et les données.

**Mercenaire** · 05/01/2010, 15h55

Je sais que le sujet date d'un ans mais je voudrais contribuer à la survie de ce langage.
Donc je met ce code que j'ai réaliser y a pas longtemps pour les personnes qui comme moi débute, ça peux servir de base.
J'ai pas mis la soustraction, c'est le même principe que les autres.

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
Program calculer;
 
uses crt;
 
procedure addition;
 
var
 
a,b,somme : integer;
 
begin
 
writeln;
write('1er nombre : ');
readln(a);
write('2eme nombre : ');
readln(b);
somme := a+b;
writeln;
writeln('resultat : ',a,' + ',b,' = ',somme);
 
end;
 
procedure multi;
 
var
 
a,b,somme : integer;
 
begin
 
writeln;
write('1er nombre : ');
readln(a);
write('2eme nombre : ');
readln(b);
somme := a*b;
writeln;
writeln('resultat : ',a,' * ',b,' = ',somme)
 
end;
 
procedure division;
 
var
 
a,b,somme : real;
 
begin
 
writeln;
write('1er nombre : ');
readln(a);
write('2eme nombre : ');
readln(b);
somme := a/b;
writeln;
writeln('resultat : ',a:2:2,' / ',b:2:2,' = ',somme:2:2);
 
end;
 
 
var
 
choix : char;
ok : boolean;
 
BEGIN
 
 
clrscr;
writeln('[A]dditionner , [M]ultiplier , [D]iviser');
writeln;
ok := false;
 
readln(choix);
 
repeat
if (choix = 'a') OR (choix='m') OR (choix = 'd') then ok := true
else if ok = false then
begin
writeln('mauvais choix, recommencer');
readln(choix);
end;
until ok;
 
 
case choix of
 
'a' : addition;
'm' : multi;
'd' : division;
 
end;
 
writeln(' ');
writeln('Merci, appuyez sur Entree pour continuer...');
readln;
 
END.

**droggo** · 05/01/2010, 18h22

Boe,

Envoyé par Mercenaire

Je sais que le sujet date d'un ans mais je voudrais contribuer à la survie de ce langage.
Donc je met ce code que j'ai réaliser y a pas longtemps pour les personnes qui comme moi débute, ça peux servir de base.
J'ai pas mis la soustraction, c'est le même principe que les autres.

Ton programme est assez mal conçu : tu vois bien que tu as du code très répétitif (lecture des données à gérer), et d'autre part, au lieu de procédures, tu devrais utiliser des fonctions, qui retourneront le résultat de l'opération désirés.

**darrylsite** · 05/01/2010, 19h24

Envoyé par droggo

Boe,

Ton programme est assez mal conçu : tu vois bien que tu as du code très répétitif (lecture des données à gérer), et d'autre part, au lieu de procédures, tu devrais utiliser des fonctions, qui retourneront le résultat de l'opération désirés.

Aussi, il faudra gérer les erreurs pouvant survenir dans les calculs telles que division par 0.

**droggo** · 05/01/2010, 21h16

Hei,

Envoyé par darrylsite

Aussi, il faudra gérer les erreurs pouvant survenir dans les calculs telles que division par 0.

Bien entendu, mais ça fait partie du travail de base : un programme bien conçu et bien réalisé se doit de résister aux erreurs de l'utilisateur, ainsi qu'à tous les problèmes prévisibles, et aux autres ...