Prog pascal
wissou14
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
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.
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.
A voir également:
- Prog pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Robot prog - Télécharger - Édition & Programmation
- Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées. - Forum Pascal
1 réponse
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.
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.
