Commit a76bf136 authored by Girard Simon's avatar Girard Simon
Browse files

Ajout de demander_taille

parent 3b6cf474
......@@ -3,9 +3,16 @@ unit inputs;
interface
uses types, crt;
procedure deplacement(taille: Integer; var pos: Pos);
procedure demander_taille(var taille: Integer);
implementation
procedure demander_taille(var taille: Integer);
begin
write('Taille de la grille :');
readln(taille);
end;
procedure afficher_demandes(taille: Integer; seulement_y: Boolean);
begin
if not(seulement_y) then begin
......
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