Aquí unos ejemplos básicos de algoritmos en Turbo Pascal 7.0 (hechos por mi :P). Ten en cuenta que en la programación cada programador tiene su estilo.
Ejercicio 1) Realice un programa en Turbo Pascal que indique si eres mayor o menor de edad.
Bien para resolver este ejercicio lo primero que debemos hacer es saber que variables vamos a utilizar, en este caso nuestra variable sera la edad, ya que el programa debe decir si somos o no mayores de edad, también usaremos una condición del tipo if para que el programa sepa cuando es mayor o menor, una vez entendido esto procedemos al algoritmo.
Program Edad;
Uses crt;
Var ed: integer;
Begin
Clrscr;
writeln ('¿Cual es su Edad: ?');
read (ed);
If ed<18 Then writeln ('Usted es Menor de Edad')
Else writeln ('Usted es Mayor de Edad');
Readkey;
End.
Compilamos nuestro algoritmo con Alt + F9 para comprobar que no hay errores.
Una vez comprobado podemos ejecutar nuestro algoritmo presionando Ctrl + F9.
Y listo ya tenemos un programa que nos dice si somos mayores o menores de edad jeje.
