Programa en Pascal

[Amon]

{ }
(* ROMBO : Imprime un rombo con asteriscos *)

{necesito ayuda con este programa, no se los que significan las siguientes lineas de codigo, (tampoco salen en la ayuda)}

---> MODULE rombo;
---> FROM InOut IMPORT WriteString,WriteLn,ReadInt;

VAR lado,bucle,bucle2 : INTEGER;

BEGIN
WriteString("¨Lado? ");
ReadInt(lado);
WriteLn;WriteLn;
FOR bucle := 1 TO lado DO
FOR bucle2 := 1 TO lado-bucle DO
WriteString(" ");
END;
FOR bucle2 := 1 TO bucle DO
WriteString("* ");
END;
WriteLn;
END;
FOR bucle := lado-1 TO 1 BY -1 DO
FOR bucle2 := 1 TO lado-bucle DO
WriteString(" ");
END;
FOR bucle2:= 1 TO bucle DO
WriteString("* ");
END;
WriteLn;
END;
END rombo.


{ gracias}

[rmilano]

MODULE Rombo significa que estas creando este programa como un modulo, Pascal te permite crear Unidades, Modulos y Programas, las Unidades son como las clases, o programas de funciones (grupos de funciones incluso), que pueden ser utilizadas en otras partes (algo asi como llamar a una libreria de funciones), los Modulos funcionan de manera similar, pero llamando directamente desde otro programa cualquiera al modulo y ya. En el caso de las Unidades para hacer el llamado se utiliza la instruccion Units xxxx. Y los programas son los que generalmente usamos.

From InOut.... Esto lo que hace es como un include, exporta de la libreria de funciones InOut las funciones que mencionas despues para ser usadas en tu programa.

Saludos, y espero haberte ayudado en algo.

[unoce]

Programe mucho con Pascal (Turbo Pascal) y nunca lei nada sobre modulos.
No quiero equivocarme... pero me parece que eso no es Pascal sino Modula-2

Modula-2 tiene una sintaxis parecida... va codigo pa mostrar...

MODULE exemplo;
VAR x, y : REAL; (*somente x e y são visíveis*)
MODULE local;
IMPORT x;
VAR z : REAL; ( *somente z e x são visíveis*)
END local;
END exemplo.