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...
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
