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;
2007-05-16
22:09:29
·
6 réponses
·
demandé par
Hidy
1
dans
Programmation