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




Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...