uses crt;
var i, j, x : integer;
begin
// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis
{
Desenhando um quadrado com o caractere -X- em pascal, utilizando
o comando for e o gotoxy. O quadrado irá ter lados 20 por 20, o
quadrado não vai contér preenchimento interno.
}
writeln; // Quebra de linha.
// Lado superior do quadrado.
for i := 1 to 20 do
write('X');
writeln;
{
Utilizando o gotoxy(COLUNA, LINHA)
A variável x irá conter o valor da coluna, alternando entre 1 e 20.
A variável i irá conter o valor da linha.
}
for i := 3 to 20 do begin
x := 1;
for j := 1 to 2 do begin
gotoxy(x, i);
write('X');
x := 20;
end;
writeln;
end;
// Lado inferior do quadrado.
for i := 1 to 20 do
write('X');
writeln;
writeln;
writeln;
readkey;
end.
Palavras-Chaves: gotoxy, quadrado, Pascal.
Artigos relacionados em Pascal:
- Calculando o IMC em Pascal
- Quadrado e Cubo dos números entre 1 e 20 em Pascal.
- Somando duas matrizes em Pascal
- Programa que imprimi os divisores de n entre A e B em Pascal.
- Desenhando um triângulo em Pascal
- Calculadora Simples em Pascal
- Simulador do Jogo da Mega Sena em Pascal
- Determinante da matriz em Pascal
 |
Feito no Dev-Pascal 1.9.2 | Executável
|
*Obs.: Para que realmente pareça um quadrado é preciso modificar a fonte para 8X8.
