Programación General > Pascal

 Triangulo Pascal

(1/1)

Rai:
Hola tengo un problema en este codigo en pascal extendido, que se trata que a partir de un lado dado, que dibuje un triangulo cuadrado y rombo.

Mi problema es el triangulo que me sale un triangulo rectangulo, y deberia salir un triangulo equilatero.

Alguien me podria ayudar es urgente...



--- Código: Text --- program figuras  (input, output); var   fila, a,lado: integer;      begin   writeln('Escribe el lado de la figura: ');    readln(lado);          writeln('Cuadrado');    for fila:= 1 to lado do begin     for a:= 1 to lado do write('$ ');           writeln;   end;    writeln('Triangulo');    for fila:=1 to lado do begin     for a:=1 to fila do write('$ ');              writeln;   end;    writeln('Rombo');    for fila:=1 to lado do begin         for a:=1 to fila do write('$ ');       writeln;   end;   for fila:=lado-1 downto 1 do begin     for a:=fila downto 1 do write('$ ');                     writeln;   end;        end.  
gracias de antemano.

Saludos Rai

Rai:
Por favor y luego me podrian decir como hacer el cuadrado, triangulo y rombo vacios, es decir solo que dibuje los laterales.





Gracias de antemano
Saludos Rai

Navegación

[0] Índice de Mensajes