Para programar en Turbo Pascal, antes hemos de conocer los siguientes dígitos para saber como ponerlos en los algoritmos ( así se llama el contexto de los programas ):

Este programa se usa en inglés, así que siempre hemos de escribir en este idioma en la programación excepto en los textos, que pueden ser de cualquier idioma.

Para poder hacer las siguientes opciones, se escriben de la siguiente forma:

LEER:

Se escribe "read" y luego entre paréntesis se pone la variable o variables que se han de leer

ESCRIBIR:

Se escribe "write" y luego entre paréntesis y comillas ('Texto Opcional') se escribe el texto que se ha de escribir. Ej: ('Hola, me llamo Rafael')

ESTRUCTURA DE UN ALGORITMO

Cuando queremos hacer un algoritmo, siempre empezanos con estre estructura:

program nombre;

uses crt;[Esto se pone siempre^]

var

    [ Escribimos las variables, que pueden ser de diferentes tipos:

            1-Integer: Para cálculos con números enteros

            2-Real: Para cálculos con números reales

            3-Boolean: Para cuando se trata de verdadero o falso

            4-Char: Cuando se trata de trabajar con 

            caracteres  ( Ej.: letras en vez de números ). ^]                 

^{Como ejemplo, usaremos:}

^{a, b, res: integer;}

 Begin [ Comienza el programa^]

CLRSCR;

 ^{readln (a,b);}

^res:=a+b;

^{writeln ('El resultado ha sido',res');}

^{repeat until keypressed [Esto se pone siempre}]

end;

Este programa sirve para sumar números.

Ahora aprenderemos a usar los bucles:

1-Si...Entonces...Sino ( If...Then...Else )

Este bucle sirve para: si tal varible es tal cosa, entonces hacer o escribir tal cosa, sino pues hacer o escribir tal cosa

ej: if x <= 12

         then writeln ('Es menor o igual que 12')

         else writeln ('Es mayor que 12');

2-Para tal variable:= desde tal valor hasta tal valor hacer...( for (variable):= variable1 to variable2 do )

ej: for x:=1 to 100 do

          begin

            x:=x+1;

            writeln (x,'_');

          end;

[En este programa pues hace que se escriban los números del 1 al 100: desde el 1 hasta el 100 hacer tal cosa, y para escribirlos se va sumando de uno en uno y cada resultado se va escribiendo quedando así:

1_2_3_4_5_6_7_8_9_10_11_...

3-Mientras que tal variable sea tal cosa, hacer tales cosas ( while (variable) do )

ej:

x:=1;

while (x<=20) do

           begin

               res:=x + 2

               writeln (res,'_');

            end;

[Se introduce el valor 1 y mientras que sea menor o igual que 20, se van sumando de dos en dos y escribiendose y cuando supera el valor 20, se detiene el programa^]

^{4-Repetir tal operación o cosa hasta que sea tal cosa ( repeat (variable) until (opción) )}

^{ej: x:=0}

     ^{repeat (x:=x+1}

                ^{writeln (x,'_') )}

                    ^{until (x=100)}

 ^{[Empezando por cero, repetir la suma de sumandole uno al valor x hasta que sea igual que 100}]

^{Ejercicios de Práctica:}

^{1-Hacer un algoritmo que al introducirle una letra te diga si es vocal o consonante:}

PROGRAM LETRA;

USES CRT;

VAR

   X: CHAR;

BEGIN

CLRSCR;

WRITE (‘ DAME UNA LETRA Y TE DIRÉ SI ES VOCAL O CONSONANTE’); 

READLN (X);

IF (X=’A’) OR (X=’E’) OR (X=’I’) OR (X=’O’) OR (X=’U’)

       THEN WRITELN (X,’ES UNA VOCAL’);

      ELSE WRITELN (X,’ES UNA CONSONANTE’);

REPEAT UNTIL KEYPRESSED;

END.

^2-Hacer un algoritmo que te diga los números pares que hay entre dos cualesquieras:

PROGRAM NUMEROS_PARES;

USES CRT;

VAR

   A,B,X: INTEGER;

BEGIN

CLRSCR;

WRITE (‘ DAME DOS NÚMEROS Y TE DIRÉ LOS PARES QUE HAY ENTRE ELLOS’);

READLN (A);

READLN (B);

FOR X:=A TO B DO

         BEGIN

              IF X MOD 2=0

                    THEN WRITELN (X,’_’);

         END;

REPEAT UNTIL KEYPRESSED;

END.

Descargate el Turbo Pascal 7.0, pero has de tener el WinZip o el WinAce para poder descomprimirlo

Descargate mas de 100 ejercicios resueltos en Acrobat Reader

Volver a la anterior página