1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
| Program Foot;
uses Crt;
Type Score=record
N,P,G,M,E,Ps:integer;
end;
Var Cpt,I,Min,Max,X:integer;
T: array[1..6] of Score;
Nom: array[1..6] of String;
Begin
randomize;
clrscr;
Nom[1]:=('Allemagne');
Nom[2]:=('Angleterre');
Nom[3]:=('Argentine');
Nom[4]:=('Brésil');
Nom[5]:=('Italie');
Nom[6]:=('Mexique');
For (I) := 1 to 2 Do
Begin
writeln ('L''equipe ',Nom[I]);
write ('Donnez le nombre de match gagné : ');
read(T[I].G);
write ('Donnez le nombre de match perdu : ');
read(T[I].P);
write ('Donnez le nombre de match nul : ');
read(T[I].N);
write ('Donnez le nombre de but marqué : ');
read(T[I].M);
write ('Donnez le nombre de but encaissé : ');
read(T[I].E);
End;
clrscr;
writeln ('');
write (' ╔════════════╦══════════╦══════════╦══════════╦══════════╦══════════╦═════════╗');
write (' ║ Equipes ║ Matchs G ║ Matchs P ║ Matchs N ║ Buts Mar ║ Buts Enc ║ Points ║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╚════════════╩══════════╩══════════╩══════════╩══════════╩══════════╩═════════╝');
Readln;
Readln;
end. |
Partager