Para que no se aburran

1.- Que acepte dos valores enteros desde el teclado, los compare y los ordene, de mayor a menor y que aparezcan en pantalla ya ordenados.

2.- Que acepte dos valores enteros desde el teclado, los compare y los ordene, de menor a mayor y que aparezcan en pantalla ya ordenados.

3.- Que acepte una calificación en LETRA (A-B-C-D-E) y según la calificación ingresada, aparezca su equivalente en número (10-9-8-7-6).

4.- Que acepte un valor real, que calcule el iva (16%) y lo muestre en pantalla, el programa debe desplegar en pantalla lo siguiente Valor introducido IVA

5.- Que imprima en pantalla 'Precio del artículo', te permita leer el precio, si el precio es mayor a 10,000, que aparezca en pantalla 'Excelente compra, te mereces un descuento, cuanto descuento quieres 10%, 20%, 30% o 40 %?' te debe permitir escribir un valor (10-20-30 o 40) y según el valor que escribas, debe calcular el descuento elegido. Si el precio del artículo es menor o igual a 10,000 solo debe aparecer en pantalla el mensaje 'No es suficiente para descuento, nos vemos luego'.

6.- Que calcule la siguiente expresión:
(a+5*c)/(b+4-a)+4*b 
Siendo que:
a = 2,b = 8,c = 4

7.- Que calcule la incógnita positiva de una ecuación de segundo grado 
(Fórmula del chicharronero (-b + √(b2-4*a*c)/(2*a) )
Siendo que:
a= 10, b=5, c=2

8.- Que calcule el área y el volumen de un cilindro dadas las siguientes fórmulas:
A = (2 * (PI * r2)) + ((2 * PI * r) * h) (r2 es r CUADRADA)
V = (PI * r2) * h (r2 es r CUADRADA)

Actividad 3

Actividad 2

FreePascal 1

Program: Define un bloque de código como constituyente  de un programa

Uses: Declara el uso de una o mas unidades

Crt: es una unidad estándar de Turbo Pascal

Var: Es una palabra reservada de turbo pascal

String:  Identifica la variable como una cadena e indica que la longitud de esa cadena no pueda acceder de 1 a 255 caracteres.

Interger: Pueden contener números 

Char: Pueden Contener caracteres simples 

Begin: Bloque de programa

Repeat: se utiliza en estructuras de control Repeat-Until

Clrscr: Borra la pantalla y el programa muestra en el monitor: Introduzca el numero 

TextColor: Cambia el color de primer plano al indicado en color

Textbackground: Cambia el color de fondo por defecto al indicado Color

Writeln: En un procedimiento estándar de Turbo Pascal 

ReadKey: Lee un carácter del teclado sin hacer eco

Sound:  Genera un tono en el altavoz del PC con la frecuencia especificada en Frec.

Random: Devuelve un numero generado aleatoria-mente por Turbo Pascal.

Delay: Produce un retardo en la ejecución del programa durante ms mili-segundos 

Until: Se usa en los bucles Repeat-Until 

If: Se utiliza en sentencia If-Then

Then: Se usa en las sentencias If-Then 

While: Se utiliza en los bucles While-Do

Do: Se utiliza  en estructuras de control de bucles.

End: Identifica el final de un bloque de código  el final de una sentencia Case, el final  de un identificación de registro o el final de un programa.

End; se puede realizar un manejo de la excepción en varias capas, realizando sucesivas acciones en cada una de ellas. 

bibliografía: Turbo pascal 6 autor: Stephen O'Brien

Program: Define un bloque de código como constituyente  de un programa

Uses: Declara el uso de una o mas unidades

Crt: es una unidad estándar de Turbo Pascal

Var: Es una palabra reservada de turbo pascal

String:  Identifica la variable como una cadena e indica que la longitud de esa cadena no pueda acceder de 1 a 255 caracteres.

Interger: Pueden contener números 

Char: Pueden Contener caracteres simples 

Begin: Bloque de programa

Repeat: se utiliza en estructuras de control Repeat-Until

Clrscr: Borra la pantalla y el programa muestra en el monitor: Introduzca el numero 

TextColor: Cambia el color de primer plano al indicado en color

Textbackground: Cambia el color de fondo por defecto al indicado Color

Writeln: En un procedimiento estándar de Turbo Pascal 

ReadKey: Lee un carácter del teclado sin hacer eco

Sound:  Genera un tono en el altavoz del PC con la frecuencia especificada en Frec.

Random: Devuelve un numero generado aleatoria-mente por Turbo Pascal.

Delay: Produce un retardo en la ejecución del programa durante ms mili-segundos 

Until: Se usa en los bucles Repeat-Until 

If: Se utiliza en sentencia If-Then

Then: Se usa en las sentencias If-Then 

While: Se utiliza en los bucles While-Do

Do: Se utiliza  en estructuras de control de bucles.

End: Identifica el final de un bloque de código  el final de una sentencia Case, el final  de un identificación de registro o el final de un programa.

End; se puede realizar un manejo de la excepción en varias capas, realizando sucesivas acciones en cada una de ellas. 

bibliografía: Turbo pascal 6 autor: Stephen O'Brien