[ Foro de Pascal ]
Buen dia. Hoy diseñe este codigo para mostrar una pirámide dado la cantidad de niveles con asteriscos, utilizando condiciones. Resulta que luego del nivel 40 se genera un bug visual por el tamaño predeterminado de la consola. No habrá alguna forma de decir "if nivel dado >=40 aumentar el tamaño de la consola". Saludos.
CODIGO:
program Piramide;
var
i,n,m,mcontador,jcontador:integer;
j:double;
begin
write('Cuantos niveles desea?: ');readln(n);
m:=n*2;
j:=1;
writeln();
if (n>0) then
for i:=1 to n do
begin
mcontador:=1;
repeat
write(' ');
mcontador:=mcontador+1;
until(mcontador=m);
m:=m-1;
jcontador:=0;
if (i=1)then
write('*');
if(i>1)then
begin
j:=j+2;
repeat
write('*');
jcontador:=jcontador+1;
until(jcontador=j);
end;
writeln();
end;
if (n<1)then
writeln('La piramide no puede tener menos de un nivel');
readln();
end.
(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)