prog pascal Fermé

Question

Bonjour, 

je voudrai que kk1 me dise kelle est l erreur ds le code suivant
ben voilà je voudrai ajouter des enregistrements a une liste chainée avec turbo pascal, j ai ecris une procedure et j y ai fait l appel ds le programme principal mais ya bcp d erreur de compilation du ganre unknown identifier, merci de m aider car c urgent
voici le code:
program userinput1(Input,output);
type
ppatient=^patient
patient=record
      codemal:Integer;
end;
procedure ajouter (var liste:ppatient;valeur:integer);
var p:ppatien;
begin
clrscr;
new(p);
p^.valeur:=valeur;
p^.suivant:=liste;
liste:=p;
end;

     ** ici on fé l appel, c le pgm pricipal**

var liste:ppatient; codemal:integer;
begin
writeln('code malade:');
readln(codemal);
ajouter (liste,codemal);
and.

KX · Accepted Answer

Très franchement, pas besoin de compilateur pour voir les erreurs.
Qu'il puisse y avoir des problèmes quand on touche aux pointeurs je comprends.
Mais là, c'est n'importe quoi, il suffirait de te relire pour corriger la majorité des problèmes !

1) Les ";" sont impératifs entre chaque instruction !
2) Quand tu définis un nom (pparent ici), la moindre des choses est de respecter la notation que tu utilises. Tu peux te permettre de faire des écarts avec la langue française, mais la syntaxe de ton programme ne peux se permettre aucun écart.
3) Tu ne peux utiliser que les notations que tu définis, si tu en as besoin de plus, définis les (valeur, suivant...)
4) Après le français passons à l'anglais, ne pas savoir faire la différence entre and et end, c'est grave ! Pour faire de la programmation, même en Pascal, il faut au moins apprendre les mots-clés du langage et leurs utilisations !

Une fois que tu auras purifié ton code, tu verras que le programme en lui même est correct, il faut juste t'investir plus dans la relecture.

program userinput1(Input,output);

type 
	ppatient=^patient;
	patient=record 
		valeur:integer;
        suivant:ppatient;
		end; 
		
procedure ajouter (var liste:ppatient; valeur:integer); 
var p:ppatient; 
begin 
	new(p); 
	p^.valeur:=valeur; 
	p^.suivant:=liste; 
	liste:=p; 
end; 

// ici on fait l'appel, c'est le programme principal

var liste:ppatient;
	codemal:integer; 
begin 
	writeln('Code malade : '); 
	readln(codemal); 
	ajouter(liste, codemal); 
end.

Prog pascal

1 réponse

Discussions similaires