[ Foro de Pascal ]

Pirámide en Pascal

09-Mar-2020 00:08
Invitado (Loms)
0 Respuestas

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