Programación General > Pascal

 Ejercicios Resueltos

(1/3) > >>

Hubologista:
La idea de este tópico es crear un espacio de discución sobre los ejercicios, así tanto ustedes como yo vamos aprendiendo a manejar este lenguaje. Voy a ir realizando varios ejercicios de Pascal (de diversas dificultades, comenzando por los más fáciles) a lo largo de este thread, al mismo tiempo que podremos discutir cualquiera de ellos. Los ejercicios están enfocados a un curso de algoritmos y bases de datos, y por tanto voy a priorizar en la codificación los conceptos que hacen a esta materia. No es mi objetivo poner códigos optimizados para crear mejores programas, con porciones de lenguaje que puedan confundir al lector, sino poner el código esencial para ilustrar las ideas principales. Sin embargo, cualquier optimización del código es bienvenida y la podemos incluir junto a la codificación original  :)

Hubologista:
Parte A


Ejercicio 1

Enunciado

Crear un programa que permita al usuario ingresar tres números enteros; el programa debe sumarlos y mostrar el resultado.


Codificación



--- Código: Pascal ---program suma3;var a,b,c,r:integer; begin    writeln('Ingrese tres numeros enteros');    readln(a,b,c,r);    r:=a+b+c;    writeln('El resultado es',r);end. 

Hubologista:
Ejercicio 2

Enunciado

Crear un programa en Pascal que permita al usuario ingresar dos números reales; el programa debe sumar, restar, multiplicar y dividirlos y mostrar los resultados de estas operaciones.


Codificación



--- Código: Pascal ---program sumarestamultiplicadividedos;var a,b,s,r,m,d:real; begin    writeln('Ingrese dos numeros reales');    readln(a,b);    s:=a+b;    r:=a-b;    m:=a*b;    d:=a/b;    writeln('Los resultados son',s,r,m,d);end. 

Hubologista:
Ejercicio 3

Enunciado

Crear un programa que permita al usuario ingresar un número; el programa debe determinar si el número ingresado es mayor a 21 o no.


Codificación



--- Código: Pascal ---program mayora21;var n:real; begin    writeln('Ingrese un numero');    readln(n);    if(n>21) then begin        writeln('El número es mayor a 21');    end else        writeln('El número no es mayor a 21');end. 

Hubologista:
Ejercicio 4

Enunciado

Crear un programa que permita al usuario ingresar el nombre de una persona y que luego escriba la leyenda "Le doy la bienvenida a SoloCodigo" seguida del nombre ingresado.


Codificación



--- Código: Pascal ---program bienvenidasolocodigo;var nombre:string; begin    writeln('Ingrese su nombre');    readln(nombre);    writeln('Le doy la bienvenida a SoloCodigo',nombre);end. 

Navegación

[0] Índice de Mensajes

[#] Página Siguiente