[PAS] appel de procédure
Slt à tous mon prof m'a donné un pg à faire en langage pascal et j'arrive pas à écrire cette procédure donc je voudrais bien la réponse. Voici le sujet :
création du fichier 'resultat.txt'(donnees)
pour chaque élève: nom de l'élève n°:
note n°1=
note n°2=
note n°n=
moyenne=
il faut que je passe par une procedure et que je fasse appel à elle dans le programme principal
merci pour votre aide et @ bientôt
création du fichier 'resultat.txt'(donnees)
pour chaque élève: nom de l'élève n°:
note n°1=
note n°2=
note n°n=
moyenne=
il faut que je passe par une procedure et que je fasse appel à elle dans le programme principal
merci pour votre aide et @ bientôt
2 réponses
-
Tu ne trouves pas que tu abuses un peu ?
Et ton diplôme tu nous le donne à la fin ?
Sur l'échiquier de la vie, j'ai choisi d'être le Fou,
parce que je ne suis pas Cavalier. Xadrez -
question habituelle (c'en est lassant): qu'as-tu fait jusqu'à présent? où cales-tu? pourquoi? messages d'erreur du compilateur?
par ailleurs, d'intéressantes instructions là:
http://www.commentcamarche.net/forum/affich.php3?cat=0&ID=82700&page=2
kinder.surprise,
le maton du matou-
Slt kinder.surprise merci d'avoir répondu voici ce que g écrit :
{declaration}
const fichier='c:\resultat.txt';
type chaine=string[20];
tabnote=array[1..15] of integer;
groupe=record
nom:chaine;
note:tabnote;
moyenne:real;
end;
tabeleve=array[1..30] of groupe;
var eleves:tabeleve;
nbeleve,nbnote:integer;
donnees:text;
procedure ecrire_fichier(var donnee:text;elev1:tabeleve;nbel1,nbnt1:integer);
var i,j:integer;
begin
assign(donnee,fichier);
rewrite(donnee);
for i:=1 to nbel1 do
begin
with eleves[i] do
begin
writeln(donnee,'nom de l élève n°:',i);
for j:=1 to nbnt1 do
begin
write(donnee,'note',j,'=',note[j])
end;
writeln(donnee,'moyenne=',moyenne)
end;
end;
close(donnee);
readln
end;
{appel de la procedure}
ecrire_fichier(donnees,eleves,nbeleve,nbnote);
-
