A voir également:
- [PAS] appel de procédure
- Appel masqué - Guide
- Renvoi d'appel ooredoo ✓ - Forum Mobile
- Le point d'entrée de procédure setdefaultdlldirectories est introuvable ✓ - Forum Windows 7
- Votre appel ne peut aboutir - Forum Mobile
- Appel externe - Forum telephonie fixe
2 réponses
xadrez
Messages postés
149
Date d'inscription
samedi 3 novembre 2001
Statut
Membre
Dernière intervention
23 mai 2003
16
20 mai 2002 à 02:06
20 mai 2002 à 02:06
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);