Bonjour !

Je voudrais faire un dessin qui relie les points d'une figure, comme on en trouve dans les livres de coloriage. J'ai besoin de mettre dans mon code les coordonnées des points.

J'ai essayé la déclaration d'un tableau de constantes, mais ça ne passe pas. Pourtant j'ai vérifié mon code et je crois qu'il est correct :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
const
 
  Figure: Array [1..82, 1..2] Of Integer=(
  (11,36),(11,35),(12,34),(12,33),(13,32),(14,31),(15,30),(16,29),(16,28),(17,27),
  (17,26),(17,25),(16,24),(14,24),(15,24),(14,23),(15,22),(16,21),(18,20),(19,19),
  (19,18),(18,17),(17,16),(17,15),(17,14),(17,13),(18,12),(19,11),(20,10),(21,10),
  (22,10),(23,10),(24,11),(25,12),(26,13),(26,14),(26,15),(26,16),(25,17),(24,18),
  (24,19),(25,20),(27,21),(28,22),(29,23),(27,24),(28,24),(29,24),(26,25),(26,26),
  (26,27),(27,28),(27,29),(28,30),(29,31),(30,32),(31,33),(31,34),(32,35),(32,36),
  (32,37),(31,37),(30,37),(29,37),(28,37),(27,37),(26,37),(25,37),(24,37),(23,37),
  (22,37),(21,37),(20,37),(19,37),(18,37),(17,37),(16,37),(15,37),(14,37),(13,37),
  (12,37),(11,37));
J'ai aussi essayé quelque chose comme ça, mais je n'ai pas trouvé la bonne façon de l'écrire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Var
  c: Array [1..82] Of Array [1..2] Of Integer;
 
begin
  c[01]:=(11,36);c[02]:=(11,35);c[03]:=(12,34);c[04]:=(12,33);
  c[05]:=(13,32);c[06]:=(14,31);c[07]:=(15,30);c[08]:=(16,29);
  c[09]:=(16,28);c[10]:=(17,27);c[11]:=(17,26);c[12]:=(17,25);
  {...}
Comment pourrais-je faire pour mettre dans mon code ce genre de données ?