Discussion :

[Elyphany]

Bonjour,

J'aimerais faire une calculatrice, mais quand je compile mon code, il y a certaines 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
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.

[droggo]

Jai,

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

[Elyphany]

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
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?

[Paul TOTH]

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 ...

[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.

[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...

[darrylsite]

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

[batyann811]

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 :

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
 
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.