j'ai besoin d'aide un tp informatique?

Question

program tp5;
const maxequipe=25;
maxmatch=1000;
type nom_t=string[63];
tabnom_t=array[1..maxequipe] of nom_t;
type match_t=record
n_loc,n_ext,s_loc,s_ext:integer;
end;
tabmatch_t =array[1..maxmatch]of match_t;

var n_loc,n_ext,s_loc,s_ext,choix,nN,nM:integer;
tn:tabnom_t;
tm:tabmatch_t;
m:match_t;
procedure saisienoms(var tn:tabnom_t;var nN:integer);
var s:nom_t;
begin
nN:=0;
readln(s);
while s<>' ' do
begin
nN:=nN+1;
TN[nN]:=s;
readln(s);
end;
end;
procedure saisiescore(var tm:tab match_t , var j : integer);
var i : integer ;
Begin
writeln (‘ entrez le nombre des match :’);
read ln(j) ;
for i :=1 to j do
begin
writeln (‘ entrez le numero de l’equipe local :’);
readln ( tM[i].n_loc);
writeln (‘ entrez le score de l’equipe local :’);
readln ( tM[i].s_loc);
writeln (‘ entrez le numero de l’equipe exterieur :’);
readln ( tM[i].n_ext);
writeln (‘ entrez le score de l’equipe exterieur :’);
readln;

la question est :
le selectioneur de l'equipe veut faire des statistique sur les match de 1ere division .Il dispose des type suivants pour mémoriser le nom des equipe
CONST Maxequipe=25;
TYpe nom_t=string[63]
TabNom_t=array [1..MaxEquipe] of nom_t
1-ecrire la procedure Saisie Nom
2- ecrire la fonction qui gagne
3-ecrire la procedure affigagnant
le pgm principal ????,

Answer 1

Ok mais tu veux savoir quoi ?

Answer 2

à mon avis, il y a des morceaux qui manquent
(le message est trop long ça l'a tronqué)

Answer 3

c'est fournie avec tps ou canal plus?

Answer 4

Ce mini programme est sensé faire quoi au juste? Si tu ne t'en sors pas à ce niveau, plus loin ce sera la brasse coulée!

Answer 5

lol ! Tu as aussi besoin d'aide pour apprendre à poser une question !! Que peut on faire avec un morceau de programme Pascal ?? Quelle est la question :-))

Answer 6

Tiens, du PASCAL, il y avait longtemps que je n'en avais pas vu.
C'est quoi la question ?