Tutorial sobre programa en pascal que calcula la velocidad, tiempo y distancia de un objeto

Buen día, a continuación explicare la realización de un programa en Free Pascal que calcule la velocidad, tiempo y distancia de un objeto.

Las palabras que utilizaremos para la codificación de este programa son: 

Program: darle título al programa.

Uses crt: debe de ir obligatoriamente en el programa, ya que es para poder leer desde el teclado y enseñarlo en la pantalla. 

Var: donde se almacenan las variables que se utilizarán.

String: sirve para leer las variables para leer datos.

Real: se coloca cuando el resultado de los datos dará decimales. 

Begin: para darle inicio al programa.

Clrscr: para borrar la pantalla es obligatorio.

Writeln: muestra el mensaje al usuario.

Readln: lee los datos que ingresa el usuario.

Readkey: detiene la ejecución del programa, hasta que se presione cualquier tecla del teclado.

End: para darle fin al programa.

Punto y coma (;): esto va al final de escribir cada línea de la codificación 

Apostrofo ('): se colocan para mostrar el mensaje en pantalla donde va la palabra writeln.

Paréntesis (): van en la palabra writeln esto para poder mostrar el mensaje junto con apostrofo adentro de los paréntesis.

El programa se ejecutaría de la siguiente manera: 

Program velocidad_tiempo_distancia;

Uses crt;

Var no,ap,tel,dire:string; 

Var ve,ti,dis,tol,esp,tal:real;

Begin

clrscr;

writeln ('******************');

writeln ('Bienvenido, este programa calcula la velocidad, tiempo y distancia de un objeto');

writeln ('Ingrese su nombre') ;

readln (no);

writeln ('Ingrese su apellido');

readln (ap);

writeln ('Ingrese su numero de telefono');

readln (tel);

writeln ('Ingrese su direccion');

readln (dire);

writeln('********************************');

writeln ('Ingrese la velocidad del objeto');

readln (ve);

writeln ('Ingrese el tiempo del objeto');

readln (ti);

tol:= ve*ti;

writeln ('La distancia del objeto es: ' , tol);

writeln ('************************');

writeln ('Ingrese el tiempo del objeto');

readln (ti);

writeln ('Ingrese la distancia del objeto');

readln (dis);

tal:= ti/dis; 

Writeln ('La velocidad del objeto es: ', tal);

Writeln ('*****************'); 

writeln (*Ingrese la distancia del objeto');

readln (dis);

Writeln ('Ingrese la velocidad del objeto');

Readln (ve);

esp:= dis/ve;

writeln ('El tiempo del objeto es: ' , esp);

writeln('*****************************');

readkey;

End. 

Eso es todo el programa, los asteriscos no son obligatorios, únicamente es como adorno. 

Para comprobar si está bien el programa se le da en la función compile, que se encuentra en la parte superior del programa, solamente se ingresa un nombre para registrar el programa, a continuación un ejemplo de cómo debe de aparecer para que ejecute bien el programa: 

Si es Total errors aparece 0, lo siguiente será en presionar donde dice run, se encuentra a la par de lado izquierdo de compile y si aparece una pantalla negra es que si está ejecutado correctamente el programa, pero si en cambio en Total errors aparece cualquier número que no sea el cero hay que corroborar donde se encuentra el error por el cual no deja ejecutarlo.