[TP] Création d'une matrice

Je veux créer une matrice, une vraie matrice qui affichera une image avec les pixels. J'ai le programme en c++.

Pouvez-vous me le traduire en Pascal

Code:

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
#include<stdio.h>
#include<conio.h>
#include<graphics.h>
void dessiner(int M[10][10],int nl,int nc){
	for(int l=0;l<nl;l++){
		for(int c=0;c<nc;c++){
			putpixel(200+c,200+l,M[l][c]);
		}
	}
 
}
void main(){
	int pg=0,mg;
	initgraph(&pg,&mg,"c:\\tc\\bgi");
	int M[10][10]={{15,15,15,15,15,15,15,15,15,15},
		       {15,0,0,0,0,0,0,0,0,15},
		       {15,0,0,0,0,0,0,0,0,15},
		       {15,0,0,0,0,0,0,0,0,15},
		       {15,0,0,0,0,0,0,0,0,15},
		       {15,0,0,0,0,0,0,0,0,15},
		       {15,0,0,0,0,0,0,0,0,15},
		       {15,0,0,0,0,0,0,0,0,15},
		       {15,0,0,0,0,0,0,0,0,15},
		       {15,15,15,15,15,15,15,15,15,15}};
	//line(0,0,100,100);
	 dessiner (M,10,10);
	getch();
}

et merci mes frères;) :)