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

30 respuestas a Código en Pascal

  1. David Medina dice:

    Qué tal Fran
    Muy útiles tus packs de código. Yo conozco la sintáxis general de Pascal ya que uso Delphi (y me gusta mucho), pero alguna vez intenté hacer un programa en Pascal como tal (usando FreePascal) y fui un completo fracaso.
    Solo sabía lo de program ; la cláusula uses y begin y end. pero no tenía más detalles sobre la estructura de un código fuente en Pascal lo cual me generó errores de sintaxis y bastante tristeza, jeje.
    Al ver los códigos de tus packs entiendo mucho mejor la estructura y además he aprendido algunos otros detalles de la sintaxis de Pascal que me resultan muy interesantes y útiles.
    Gracias por publicar estos packs. Espero que vengan más en un futuro.

  2. Jorge dice:

    Chever tu sitio web pero quisiera saber si tienes el pseudocodigo de este algoritmo:

    hallar el 5 numeros introducidos por teclado

  3. MONSE dice:

    holoa quisiera me ayudaras a Realizar un programa que sume los cien primeros números naturales.

    gracias

  4. jose dice:

    quisiera saber si me podrias hacer este
    desarrollar un programa, que permita suministrar un conjunto de n numeros naturales, para determinar cuantos estan comprendidos entre 0 y 15 y cuantos son mayores o iguales a 17

    • hola jose para determinar cuantos numeros estan comprendidos entre 0 y 15 lo haces a traves del condicionas IF. y dos contadores eso quieres decir q cuando introduscas el numero el va a chequear si (if) es mayor o igual a 0 (N>=0) y si (if) (N=17)y ahi pones el otro contador si pasa el contador vale 1 y asi cada vez q metas un numero el contador va aumentando si pasa por el d ultimo mandas a escribir por pantalla los contadores con la explicacion “contador 1” hay X numeros entre 0 y 15 y hay X numeros “contador 2” mayores e iguales a 17…
      donde contador 1=a=0
      y contadro 2=B=0

      lo declaras
      a:=0
      b:=0
      N= numero introducido por teclado

  5. maria dice:

    h00la yo kisiera saber si me puedes explicar mas a f0ndo este tip0 de c0digos

  6. se la comen toda jejejejejeeee

  7. se la comen ghdfgdhgvy jjejejejejejeu7y8uyh9i

  8. sosy dice:

    ala,porfa ayudenme a hacer un programa que halle el mayor y el menor de 25 numeros m urge porfa ayudenme!!!!!!!
    sosy d guatemala…

  9. Erick dice:

    Hola amigo disculpa la molestia pero tengo una duda y quisiera saber si me podrias ayudar, quisiera crear un programa que me diga si el numero que yo coloco es positivo o negativo, me podrias ayudar, muchas gracias de antemano…

  10. antonio dice:

    este es el mejor sitio

  11. antonio dice:

    eric quieres ser mi mejor migo yes o no

  12. elizabetha rosas dice:

    muchas gracias por orientarnos, te lo agradezco mucho y ya pude desarrollarel programa de numeros primos.

  13. robert dice:

    perra su pajina ….
    y muchas gracias por la ayuda ….
    te agradesco mucho ….

  14. octavio dice:

    graciass me sera de mucha utilidad muy bueno segui asi

  15. Ever dice:

    Hola queria saber si me podias ayudar con un programa, necesito hacer un programa que me diga cuantos pares hay entre A y B que son mayores a C y menos a C*2, y cuanto suman esos pares.

    muchas gracias!

  16. cuantos numeros naturales estan comprendidos entre 20y 25

  17. Puede alguien ayudarme con la matemática

  18. Frank dice:

    Buen día, quien me puede orientar en la elaboración de un banner en pascal, es decir, el usuario ingresa un texto y empieza a girar en pantalla en un loop que uno pueda definir su duración o hacerlo interminable.

    Muy amables por su atención y espero no haberlos molestado

    Gracias

  19. oscar rivera dice:

    me la pelan pendejos

  20. jostick dice:

    necesito que programas se an realizado con pascal

  21. MARIA dice:

    HOLA SERA QUE ME PUDES AYUDAR A ELABORAR UN ALGORITMO QUE CONSIGA EL M.C.M?

  22. maria dice:

    esta super bn me gustaria q me enseñaras si se puede

  23. Josefina Espinoza dice:

    disculpa me podrias explicar lo del mcd en el teorema de euclide

  24. grecia gomez dice:

    es genial pero cuando alguien deja algo porfa si no es mucha molestia responder rapido es genial lo q haces

  25. lory dice:

    hola me pueden decir cuantos números naturales están
    comprendido entre 20 y 25

  26. yesi dice:

    hola necesito ayuda…con un ejercicio :ingresar 10 números,si el mayor es divisible por el menor

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: