Discussion :

[bababam]

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]

Jai,

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

[richard]

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]

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]

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

Cordialement,

Bam

[droggo]

Gao,

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 ?