Código en Pascal

En esta sección iré introduciendo todo el código de todos los programas que voy haciendo en Pascal, y más adelante haré lo mismo con los de C.

Creo esta sección porque sé lo difícil que es encontrar código de referencia en las páginas web españolas, ya que siempre nos bombardean con publicidad y descargas que no funcionan.

El primer pack de código de programas contiene el código de los primeros quince programas:

1. Suma de dos números introducidos por teclado

2. Comparación de dos números introducidos por teclado

3. Establecer si un número introducido por teclado es par o impar

4. Establecer si un número introducido por teclado es divisible o no entre tres

5. Introducir una serie de números hasta teclear un 0 y obtener su suma

6. Introducir una serie de nombres de personas con sus edades correspondientes hasta teclear un 0 y obtener el nombre y la edad de la más vieja.

7. Introducir una serie de personas con sus nombres y edades hasta teclear un 0 y obtener el nombre del más joven

8. Introducir una serie de números hasta teclear un 0 y obtener la suma de los que son pares

9. Introducir una serie de números por teclado hasta introducir un 0 y obtener la suma de los números impares

10. Realizar un programa que sume los cien primeros números naturales

11. Realizar un programa que introduzca números con el mensaje: ¿Hay más números (S=SI y N=NO)? Y obtener la suma de los números pares y de los números impares

12. Realizar un programa que introduzca el nombre y la edad de una serie de personas con el mensaje: ¿Hay más nombres (S/N)? y obtenga el nombre del más joven con su edad y el nombre del más viejo con la suya.

13. Realizar un programa que introduzca numeros enteros con el mensaje: ¿Hay más números (S/N)? y obtenga el mayor y el menor de los números introducidos.

14. Realizar un programa que introduzca números enteros con el mensaje: ¿Hay más números? S/N. Y obtenga la suma de los números pares por un lado y de los impares por otro

15. Realizar un programa que obtenga la suma de los primeros seis números naturales

:: Primer pack de código en pascal

El Segundo pack de código:

16. Realizar un programa que obtenga el producto de los primeros seis números naturales

17. Realizar un programa que obtenga la suma de los N primeros números naturales. (N se introduce por teclado)

18. Realizar un programa que obtenga el producto de los N primeros números naturales y obtenga el producto de dichos números (N se introduce por teclado).

19. Realizar un programa que introduzca un número N por teclado y diga si dicho número es primo.

20. Introducir números con el mensaje: ¿Hay más números? (S/N) y obtener la suma de los comprendidos entre 5 y 10.

21. Introducir números con el mensaje “¿Hay más números? (S/N)” y obtener el producto de los números comprendidos entre 5 y 10.

22. Dada la base y la altura obtener el área de un triángulo.

23. Introducir una serie de números con el mensaje “¿Hay más números? (S/N)” y obtener la media de todos ellos.

24. Introducir dos números y obtener el producto sin utilizar la instrucción de multiplicar, que es: (*)

25. Introducir un número y calcular su factorial.

26. Introducir un año y decir si es bisiesto.

27. Introducir un número y que lo invierta (ej: 123 saldrá 321).

28. Disponemos de una relación de personas con indicación del Nombre, Edad y Sexo (V=Varón y M=Mujer). Obtener el soltero más joven. El final nos viene indicado con el mensaje: ¿Hay más personas?

29. Disponemos de una relación de personas con indicación del Nombre, Edad, Sexo y Estado Civil. Obtener el soltero más viejo, Obtener la media de las edades de los divorciad@s, obtener la cantidad de casadas, viudas y divorciadas.

30. Calcular el máximo común divisor de dos números por el algoritmo de Euclides.

:: Segundo pack de código en pascal