Calculatrice en Pascal

Version imprimable

Bonjour,

J'aimerais faire une calculatrice, mais quand je compile mon code, il y a certaines erreurs.

Code:

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
MODULE calculette;
IMPORT Dialog; 
	VAR a,b,r: real; 
 
	PROCEDURE addition;
	BEGIN 
		function addition(var a,b: real):real; 
		r:=a+b;
	END addition;
 
	PROCEDURE soustraction;
	BEGIN
		function soustraction(var a,b: real):real;
		r:=a-b;
	END soustraction;
 
	PROCEDURE multiplication;
	BEGIN
		function multiplication(var a,b: real):real;
		r:=a*b;
	END multiplication;
 
	PROCEDURE division(a,b:real);
	BEGIN
		function division(var a,b: real):real;
		r:=a/b;
	END division;
 
	BEGIN
		writeln('r');
		readln(a);
		readln(x);
		readln(b);
		case x of
		'+':addition(a;b);
		'-':soustraction(a,b);
		'*'multiplication(a,b);
		'/':division(a,b);
 
	END;
 
	writeln(r);
 
END calculette.

(l'erreur récurrente est undeclared identifier)

Merci d'avance.

04/03/2011, 12h35
droggo

Jai,

Il faut commencer par apprendre les bases de la syntaxe du Pascal, que ton programme ne respecte pas du tout.

Code:

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
MODULE calculette;
IMPORT Dialog; 
	VAR a,b,r1*,r2*,r3*,r4*: REAL; 
 
	PROCEDURE addition;
		BEGIN 
			r1:=a+b;
			Dialog.UpdateReal(r1);
		END addition;
 
	PROCEDURE soustraction;
		BEGIN	
				r2:=a-b;
				Dialog.UpdateReal(r2);
		END soustraction;
 
		PROCEDURE multiplication;
		BEGIN
				r3:=a*b;
				Dialog.UpdateReal(r3);
		END multiplication;
 
		PROCEDURE division;
			BEGIN
					r4:=a/b;
					Dialog.UpdateReal(r4);
		END division;
			BEGIN
			a:=0;
			b:=0;
			addition;
 
		END calculette.

Maintenant il me semble que le code est bon, puis que le compilateur n'affiche pas d'erreur. (désolé je suis débutant en pascal). Cependant quand je fais New Form, il ne me charge pas le module Dialog.
Que faire?

04/03/2011, 18h22
Paul TOTH

Citation:

Envoyé par droggo

Jai,

Il faut commencer par apprendre les bases de la syntaxe du Pascal, que ton programme ne respecte pas du tout.

il semblerait que ce soit du GNU Pascal ...
04/03/2011, 19h39
droggo

Jai,

C'est ce que j'avais compris, mais pour moi, ce langage ne devrait pas s'appeler Pascal, la syntaxe est trop différente.
06/03/2011, 08h27
batyann811

La syntaxe de GNU Pascal n'est pas vraiment différente elle est surtout étendue. Ce compilateur supporte deux syntaxes différentes pour les "unités" : les unités classiques (unit) et les modules du pascal ISO étendu (modules). Et il y a des choses vraiment intéressantes : WriteStr et ReadStr (ajouté depuis peu dans FPC), les schema types (http://www.gnu-pascal.de/gpc/Schema-...l#Schema-Types), la possibilité de donner une valeur initiale à un type.

Malheureusement l'encéphalogramme est plat depuis quelques années du côté de GNU Pascal...
06/03/2011, 09h47
darrylsite

Citation:

Envoyé par batyann811

les schema types (http://www.gnu-pascal.de/gpc/Schema-...l#Schema-Types), la possibilité de donner une valeur initiale à un type.

interessant les schema. Si je comprend bien, c'est un peu comme les Template en C++ !?

Dans ce sens, il existe aussi la programmation des générique en Free Pascal :http://wiki.freepascal.org/Generics

En fait le but est plutôt un moyen d'imiter les types avec discriminants d'Ada. Ça permet par exemple de créer un type matrice (paramétré par une largeur et une hauteur) sans avoir à gérer soit même la mémoire par MemAlloc ou SetLength.

Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 type TMatrix (N, M: PositiveInteger) = array [1 .. N, 1 .. M] of Integer; var M1, M2 : TMatrix(3,3); M3 : TMatrix(6,3); begin // ici ont peut utiliser M1,M2,M3 directement // la mémoire est déjà allouée et sera libérée // sans qu'on s'en occupe M1[2, 2] := 7; // on peut acceder aux discriminants WriteLn('M1.N=', M1.N); end.