Programación en Pascal

Resolucion de Problemas

1.     Algoritmo

2.     Diagrama de flujo

3.     Codificar (Programa fuente)

Seccion del programa:

v  Write

              I.        Despliega texto:

Write (‘C’)

             II.        Valor de una variable

Write (C)

v  Read

v  Readln

4.     Compilardor (Textocompliado)

Interprete (Por lineas)

5.     Correr prorama

Guardar: F2

Correr: Ctrl+F9

Compilar: Alt+F9

Programacion en Pascal

·         Encabezado

·         Seccion de Declaración

·         Seccion del programa:

Begin

     Instruccines

End.

Funciones en Pascal

·         ABS (valor absoluto de un número)

·         SQR (El cuadrado de un número)

·         SQRT (Raiz cuadrada)

Ejemplos de Programas en Pascal

Case

Program Comida

Uses crt;

Var opc:char;

Begin

  Clrscr;

  Writeln (‘1) Pollo’9;

Writeln (‘2) Cordero’);

Writeln (‘3) Pescado’9;

Writeln (‘4) Res’);

Writeln (’59 Nunguno’);

  Writeln (‘Elija una opción’);

  Read (Opc);

  Case opc of

  ‘1’: Writeln (‘Eligió pollo’);

  ‘2’:Writeln (‘Eligió Cordero’);

  ‘3’: Writeln (‘Eligió Pescado’);

  ‘4’: writeln (‘Eligió Res’);

  End;

  Delay(5000);

End.

For

Program Cohete;

Var i:integer;

Begin

 For I:=100 Down To 1 Do

  Writeln (I);

  Writeln (‘¡¡Despegue!! Adiós tierra’);

End

Repeat Until

Program HolaXD;

    ------------------ (Declaraciones)

    ------------------

Opc:char;

Begin

    ------------------- (Cuerpo del Programa)

    -------------------

    --------------------

Write (‘Desea hacer otra suma: S/N’);

Read (opc);

Until opc=’N’;

Reloj

Program Reloj;

Var

  Hora

  Minuto

  Segundo: Integer;

Begin

  For Hora:=0 To 23 Do

    For Minuto:=0 To 59 Do

      For Segundo:= 0 To 59 Do

      Begin

      Write (Hora,’:’,Minuto,’:’, Segundo);

      If Hora <=7 Then

         Writeln (‘Por la mañana’)

      Else If (Hora >=7) and (Hora<12) Then

         Writeln (‘Por la tarde’)

     Else writeln (‘Por la noche’);

     End;

End.