■ Estructura de un programa en Pascal

• Estructura más simple:

Program { Nombre_Programa }

Uses { Librerias a utilizar }

Const/Var { Constantes o Variables }

Begin { Inicio del programa }

     { Bloque de instrucciones }

End. {Fin del programa}

• Estructura compuesta:

Program

Uses

Procedure/Function { Procedimientos o Funciones }

Const/Var

Type { Tipos definidos por el usuario }

Begin

     { Bloque de instrucciones }

End.

• Ejemplo en Pascal.

♦ Pedir dos números enteros y mostrar la suma de ellos.

1) Simple

Program Sumar;

Uses crt;

Var

     n1, n2, suma : integer;

Begin

     Write ('Ingresa primer número');

     ReadLn (n1);

     WriteLn ('Ingresa segundo número');

     ReadLn (n2);

     suma := n1 + n2;

     Write ('La suma es: ',suma);

     ReadKey;

End.

2) Usando procedimientos

Program Sumar;

Uses crt;

Var
     n1, n2, suma : integer;

Procedure Sumando (num1, num2 : integer);

Begin

     suma := num1 + num2;

     Write ('La suma es: ',suma);

End;

Begin

     Write ('Ingresa primer número');
     ReadLn (n1);
     WriteLn ('Ingresa segundo número');

     ReadLn (n2);

     Sumando (n1, n2);

     ReadKey;
End.

3) Usando funciones

Program Sumar;
Uses crt;

Var

     n1, n2, resultado : integer;
Function Suma (num1, num2 : integer) : integer;
Begin
     Suma := num1 + num2;
End;
Begin
     Write ('Ingresa primer número');
     ReadLn (n1);
     WriteLn ('Ingresa segundo número');
     ReadLn (n2);
     resultado := Sumando (n1, n2);
     Write ('La suma es: ',resultado);
     ReadKey;
End.