[Problema] Dibujar cuadrado / matriz
Publicado por Polo (7 intervenciones) el 12/09/2015 19:32:23
Que tal, estoy haciendo un TP y me trabe en un error que me tiraba con un IF para bajar de fila en cada vuelta del For. La idea es que dibuje un cuadrado de 10x10, con todos espacios en azul; y llene los valores de la matriz en 0.
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
29
30
31
32
33
34
35
uses crt;
type mtablero = array[1..10, 1..10] of byte;
var
tablero1,tablero2 : mtablero;
nfila, ncolumna : integer;
{ Procedimiento para dibujar tablero }
procedure dibujar(tablero1,tablero2: mtablero);
var i, j: byte;
begin
clrscr;
for j:= 1 to 10 do
begin
for i:=1 to 10 do
begin
TextBackground(Blue);
writeln(' ');
tablero1[i,j]:=0;
readln;
end;
end;
end;
BEGIN
dibujar(tablero1,tablero2);
END.Valora esta pregunta
0