Discussion :

[emultion]

Bonjour,


Dans le cadre d'un mini-projet pour mes études, j'ai besoin de réaliser un programme qui construit un ensemble de 4 nombre (entiers). J'ai décidé de classer ceux-ci dans une liste chaînée (structure dynamique) afin , dans un exercice subséquent, pouvoir reprendre ce code en demandant à l'utlisation la taille du code (5,,6 ou plus) qu'il souhaite choisir.

Le problème est que lors de ma compilation, le code me donne une erreur de syntax concernant la dernière ligne (appel de procédure). L'erreur étant la suivante: "Fatal: Syntax erreor, ")" expected but ":" found.

... Pouvez vous m'aider ? (j'utilise le compilateur fpc 2.4 sur Ubuntu). Voici le code:

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
PROGRAM Codednumber(input,output);
 
TYPE 
	MMCodePtr = ^MMCode;
	MMCode=RECORD
		ElementCode : Integer;
		NextElementCode: MMCodePtr
		END; 
 
VAR CodeSize: Integer;
    ComputedCode: MMCodePtr;
 
 
PROCEDURE CodeGeneration(ListSize: Integer ; VAR GeneratedCode: MMCodePtr);
VAR FirstPtr, PreviousPtr, ActualPtr : MMCodePtr;
	    RandomNumber, i: Integer;
BEGIN
RandomNumber:=Random(9);
new(FirstPtr);
FirstPtr^.ElementCode:= RandomNumber;
PreviousPtr:= FirstPtr;
for i:=2 to ListSize DO BEGIN
	new(ActualPtr);
	RandomNumber:=Random(9);
	ActualPtr^.ElementCode:= RandomNumber;
	PreviousPtr^.NextElementCode:=ActualPtr;
	PreviousPtr:= ActualPtr;
	END;
PreviousPtr^.NextElementCode:=NIL;
ActualPtr:=FirstPtr;
END;
 
 
BEGIN
Randomize;
CodeSize:=4;
CodeGeneration(CodeSize: Integer ; VAR ComputedCode: MMCodePtr)
END.

[Roland Chastain]

Bonjour !

Il faudrait peut-être commencer par apprendre les bases du langage.

http://pascal.developpez.com/cours/

En attendant voici un exemple qui devrait t'aider.

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
program Exemple;
 
procedure MettreAZero(var i: Integer); // déclaration
begin
  i := 0;
end;
 
var
  j: Integer;
 
begin
  j := 3;
 
  MettreAZero(j); // usage
 
  WriteLn(j);
  ReadLn;
end.

[e-ric]

Allez, je suis + généreux que Roland... (ou disons mieux disposé) : le mot clé VAR ne s'utilise que dans la déclaration d'une procédure pas dans l'appel à celle-ci.

Mais Roland a raison, potasses les cours sur le langage.

@+