Códigos Fuente de Pascal/Turbo Pascal

Solicitamos un numero y determinamos si es par o impar

Este programa es para resolver ecuaciones de segundo grado en pascal

Este programa es para hacer una factura de una tienda en incluye subtotal, total e iva

El siguiente programa permite ingresar :
-numero de folio del alumno
-nombre del alumno
-materias
-calificaciones
-dar el promedio final
-decir si el alumno esta APROBADO O REPROBADO

El programa sirve para indicar al usuario un elemento cualquiera de la tabla periódica.

El programa busca que el usuario pueda convertir fácilmente estas tres medidas:
mm de HG
Torriceles
Pascales

El programa esta diseñado para calcular ecuaciones de segundo grado y sus dos soluciones, raíz positiva y negativa.

Este programa esta creado para administradores de Whatsapp…

Objetivo
Mostrar por horarios, correspondientes al día especificado, la cantidad de veces que los usuarios de Whatsapp han participado (enviado mensajes), datos representados en una tabla con formato “.htm”.

Funcionamiento
El Programa lee un archivo de texto creado por la aplicación "Whatsapp", cuando el usuario usa la acción "Enviar chat por correo". Ese archivo resultante al día de hoy (2017) está en formato de texto, es asignado un nombre de archivo que inicia con "Chat de Whatsapp con....txt" y se guarda en la carpeta ".Shared" del dispositivo, o bien en el correo electrónico seleccionado.

Nota
Gracias a los emuladores de MS-DOS, funciona en un dispositivo con Sistema Android, de tal manera que la forma correcta de ejecutarlo; es alojando el programa y “montar la unidad C:\” en la carpeta “.Shared” de “Whatsapp”.

Código de un programa que desarrolle, en el que se ingresa un numero de 4 cifras y este lo pasa a texto, (ejemplo 551 = quinientos cincuenta y uno), tiene un solo problema que cuando se pone un numero de decena mayor a cero y unidad igual a 0 queda una Y de mas en el texto, (ejemplo: 530= quinientos treinta y), pero el cual es fácil de solucionar.

Saludos Herni.