Bonjour,
Voici mon code source, pouvez vous me dire ce qu'il cloche? C'est pour faire une calculatrice .
merci d'avance.
Code : Pascal
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
Program Calculatrice;
Var a: integer; b, c, d: real;
Begin
WriteLn
('-------------------Calculatrice-----------------
--');
WriteLn;
WriteLn ('1. Addition');
WriteLn ('2. Soustraction');
WriteLn ('3. Division');
WriteLn ('4. Multiplication');
WriteLn;
WriteLn ('Entrer le chiffre qui correspond a ce que vous voulez faire:');
ReadLn (a);
Case a of
1: WriteLn (' Entrez un premier nombre:');
WriteLn (' Entrez un second nombre:');
ReadLn (c);
d:=a+b;
WriteLn ('La réponse est:');
WriteLn (d);
2: WriteLn (' Entrez un premier nombre:');
ReadLn (b);
WriteLn (' Entrez un second nombre:');
ReadLn (c);
d:=a-b;
WriteLn ('La réponse est:');
WriteLn (d);
3: WriteLn (' Entrez un premier nombre:');
ReadLn (b);
WriteLn (' Entrez un second nombre:');
ReadLn (c);
d:=a/b;
WriteLn ('La réponse est:');
WriteLn (d);
4: WriteLn(' Entrez un premier nombre:');
ReadLn (b);
WriteLn(' Entrez un second nombre:');
ReadLn (c);
d:=a*b;
WriteLn ('La réponse est:');
WriteLn (d);
End;
ReadLn
End.
Si vous comprenez pas bien le code il est plus claire ici:
http://www.siteduzero.com/forum-83-329375-pascal-probleme-de-code.html
merci d'avance