[ Foro de Pascal ]

Como poner sangrias en pascal?

06-Apr-2018 05:41
Invitado (andre)
1 Respuestas

Hola a todos! Necesito hacer un programa mas o menos asi:

Realiza un programa que contenga un procedimiento que muestre un margen de asteriscos donde el usuario proporcione el tamaño de la sangria.

Ya logre hacer el margen, pero no se como ponerle sangrias, les agradeceria mucho si me ayudaran.
Gracias.

Este es mi programa:


program ejercicio4_unidad3;
uses
  crt;
var
  san:integer;
function margen(j:integer):integer;
var
  i:integer;
  begin

    for i:=20 to 60 do
    begin
      gotoxy(i,5);
      writeln('*');
      delay(10);
      end;

    for i:=5 to 20 do {lado}
    begin
      gotoxy(60,i);
      write('*');
      delay(10);
      end;

    for i:=60 downto 20 do
    begin
      gotoxy(i,20);
      writeln('*');
      delay(10);
      end;

    for i:=20 downto 5 do  {lado}
    begin
      gotoxy(20,i);
      write('*');
      delay(10);
      end;

    end;


begin
  write(' Sangria: ');
  readln(san);
  write(margen(san));
  readkey;
end.                        


 


09-Apr-2018 12:22
Nacho Cabanes (+83)

No entiendo bien... ¿la sangría con los asteriscos? ¿debes dejar espacios en blanco antes de los asteriscos? ¿no hay que mostrar datos tras esa sangría?  ¿realmente te dejan emplear GotoXY?






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