[PAS] appel de procédure
Calber91
-
Calber91 -
Calber91 -
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
A voir également:
- [PAS] appel de procédure
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Appel privé - Guide
- Redmi appel entrant bloqué - Forum Xiaomi
- Double appel - Guide
- Appel externe - Forum telephonie fixe
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
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
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);
{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);
