uses crt;
var
i, j, altura, espaco, quantidadeDeX : integer;
begin
// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis
// Inicializando as variáveis.
espaco := 0;
quantidadeDeX := 0;
altura := 0;
// A variável altura só aceitará valores entre 0 e 22.
while ( (altura <= 0) or (altura >= 22) ) do begin
write('Altura do triangulo: ');
readln(altura);
end;
writeln;
{
Caso se deseje exibir no executável somente o
triângulo (sem a estrutura acima), basta ativar
o comando abaixo que está na forma de comentário.
}
//clrscr;
// Desenhando o triângulo.
for i := 1 to altura do begin
// Espaços em branco.
for j := 1 to ( (altura - 1) - espaco ) do
write(' ');
// Escrevendo X's.
for j := 1 to (1 + quantidadeDeX) do
write('X');
// Incrementando os contadores.
espaco := espaco + 1;
quantidadeDeX := quantidadeDeX + 2;
writeln;
end;
readkey;
end.
Palavras-Chaves: Altura, Desenhar, Triângulo, Pascal.
Artigos relacionados em Pascal:
- Calculando o IMC em Pascal
- Quadrado e Cubo dos números entre 1 e 20 em Pascal.
- Programa que imprimi os divisores de n entre A e B em Pascal.
- Programa que calcula o fatorial de um número em Pascal
- Programa que verifica se um número é primo em pascal
- MDC em Pascal
- Desenhando um quadrado em Pascal
- Calculadora Simples em Pascal
 |
| Feito no Dev-Pascal 1.9.2 | Executável |
