Dibujar formas en pantalla
Publicado por sergio (1 intervención) el 02/06/2018 21:31:59
Necesitaria dibujar en pantalla lo siguiente con procedimiento
procedure identificador ( t:byte ; c :char);
t <= 5
t = 5
xxxxx
xxxxxxxxx
xxxxxxxxxxxx
xxxxxxxxxxxxxx
xxxxxxxxxxxxxxx
xxxxxxxxxxxxxx
xxxxxxxxxxx
xxxxxxxx
xxxxx
t= 4
xxxx
xxxxxxx
xxxxxxxxx
xxxxxxxxxx
xxxxxxxxx
xxxxxxx
xxxx
t = 3
xxx
xxxxx
xxxxxx
xxxxx
xxx
t= 2
xx
xxx
xx
t = 1
x
procedure identificador ( t:byte ; c :char);
t <= 5
t = 5
xxxxx
xxxxxxxxx
xxxxxxxxxxxx
xxxxxxxxxxxxxx
xxxxxxxxxxxxxxx
xxxxxxxxxxxxxx
xxxxxxxxxxx
xxxxxxxx
xxxxx
t= 4
xxxx
xxxxxxx
xxxxxxxxx
xxxxxxxxxx
xxxxxxxxx
xxxxxxx
xxxx
t = 3
xxx
xxxxx
xxxxxx
xxxxx
xxx
t= 2
xx
xxx
xx
t = 1
x
Valora esta pregunta
0