Programación General => Pascal => Mensaje iniciado por: Hubologista en Martes 13 de Octubre de 2009, 01:27
Título: Ejercicios Resueltos
Publicado por: Hubologista en Martes 13 de Octubre de 2009, 01:27
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 :)
Título: Ejercicio #1
Publicado por: Hubologista en Martes 13 de Octubre de 2009, 03:09
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.
Título: Re: Ejercicios Resueltos
Publicado por: Hubologista en Martes 13 de Octubre de 2009, 03:31
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.
Título: Re: Ejercicios Resueltos
Publicado por: Hubologista en Martes 13 de Octubre de 2009, 03:53
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)thenbegin
writeln('El número es mayor a 21');
endelse
writeln('El número no es mayor a 21');
end.
Título: Re: Ejercicios Resueltos
Publicado por: Hubologista en Martes 13 de Octubre de 2009, 04:06
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.
Título: Re: Ejercicios Resueltos
Publicado por: Hubologista en Martes 13 de Octubre de 2009, 05:46
Ejercicio 5
Enunciado
Crear un programa que permita al usuario ingresar 50 números enteros. El programa deberá realizar lo siguiente:
Calcular y mostrar cuántos números 0 (cero) ingresó el usuario.
Calcular y mostrar el promedio de todos los números positivos ingresados.
Calcular y mostrar la sumatoria de los números negativos ingresados.
Codificación
Código: Pascal
program 50numeros;
var n,cantceros,cantpos,totpos,totneg,i:integer; prompos:real;
begin
cantceros:=0;
cantpos:=0;
totpos:=0;
totneg:=0;
for i:=1to50dobegin
writeln('Ingrese un numero');
readln(n);
if(n=0)thenbegin
cantceros:=cantceros+1;
endelse
if(n>0)thenbegin
cantpos:=cantpos+1;
totpos:=totpos+n;
endelse
totneg:=totneg+n;
end;
prompos:=totpos/cantpos;
writeln(cantceros,prompos,totneg);
end.
Título: Re: Ejercicios Resueltos
Publicado por: eternity en Miércoles 14 de Octubre de 2009, 14:35
creo que esta de mas decir que si hay "programadores" que no saben hacer eso, entonces seria mejor que se dediquen a otra cosa no? :bad:
Título: Re: Ejercicios Resueltos
Publicado por: elchamby en Miércoles 14 de Octubre de 2009, 18:34
¿tu cuando empezaste sabias hacer todo eso? :argh:
Título: Re: Ejercicios Resueltos
Publicado por: eternity en Miércoles 14 de Octubre de 2009, 18:37
si, yo nací sabiendo :angry:
vos no?
Título: Re: Ejercicios Resueltos
Publicado por: Hubologista en Miércoles 14 de Octubre de 2009, 20:01
Bueno, también hay que tener en cuenta lo siguiente:
Citar
creo que esta de más decir que si hay "programadores" que no saben hacer eso, entonces seria mejor que se dediquen a otra cosa no?
En eso estoy de acuerdo, está más que claro. Justamente estos ejercicios no están hechos para programadores, están hechos para gente que quiera aprender a programar. Y como dijo elchamby, para aprender a programar es necesario empezar con ejercicios fáciles. A algunas personas les costarán menos que a otras, pero nadie empieza con lo avanzado. Por otra parte, aunque no sea tan relevante para el caso, no todo el que tiene que aprender a programar se va a dedicar a la programación.
Saludos :hola:
Título: Re: Ejercicios Resueltos
Publicado por: epayan en Miércoles 14 de Octubre de 2009, 23:09
creo qe deberiamos disculpar al eternity, no le han salido bien las cosas y es un manera de demostrarlo
Título: Re: Ejercicios Resueltos
Publicado por: eternity en Jueves 15 de Octubre de 2009, 03:10
Cita de: "epayan"
creo qe deberiamos disculpar al eternity, no le han salido bien las cosas y es un manera de demostrarlo