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.