Commit 3b6cf474 authored by Girard Simon's avatar Girard Simon
Browse files

Add testing file

parent 4b2d2bf4
*.o
*.ppu
memory
display_testing
program display_testing;
uses types, inputs, crt, display;
var p: Pos;
g: Grille;
function init_grille_de_test(taille: Integer): Grille;
var x, y: Integer;
begin
init_grille_de_test.taille := taille;
for x := 1 to taille do
for y := 1 to taille do begin
init_grille_de_test.lettres[x][y] := 'A';
init_grille_de_test.etats[x][y] := True;
end;
end;
begin
g := init_grille_de_test(5);
dsp(g);
deplacement(g.taille, p);
end.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment