Tableaux en delphi
Fermé
komika
-
12 sept. 2008 à 16:55
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 25 sept. 2008 à 13:09
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 25 sept. 2008 à 13:09
A voir également:
- Tableaux en delphi
- Telecharger delphi - Télécharger - Langages
- Tableaux croisés dynamiques - Guide
- Afficher un tableau en c - Forum C
- Fusionner deux tableaux excel - Guide
- Numéro de série delphi 7 ✓ - Forum Delphi
1 réponse
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
25 sept. 2008 à 13:09
25 sept. 2008 à 13:09
const NBcases=10; // ou plus
type Coordonnees=record
x,y:integer;
end;
Tableau=array[1..NBcase] of Coordonnees;
function Remplir:Tableau;
var i:integer;
begin
for i:=1 to NBcases do
begin
write('x',i,' : ');
readln(result[i].x);
write('y',i,' : ');
readln(result[i].y);
writeln;
end;
end;
procedure Afficher(var t:Tableau);
var i:integer;
begin
for i:=1 to NBcases do
begin
writeln('x',i,' : ',result[i].x);
writeln('y',i,' : ',result[i].y);
writeln;
end;
end;