• Miércoles 29 de Enero de 2020, 11:55

Autor Tema:  Ejercicios Resueltos  (Leído 8274 veces)

Hubologista

  • Nuevo Miembro
  • *
  • Mensajes: 7
  • Nacionalidad: ar
    • Ver Perfil
Ejercicios Resueltos
« en: Martes 13 de Octubre de 2009, 01:27 »
0
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

  • Nuevo Miembro
  • *
  • Mensajes: 7
  • Nacionalidad: ar
    • Ver Perfil
Ejercicio #1
« Respuesta #1 en: Martes 13 de Octubre de 2009, 03:09 »
0
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
  1. program suma3;
  2. var a,b,c,r:integer;
  3.  
  4. begin
  5.     writeln('Ingrese tres numeros enteros');
  6.     readln(a,b,c,r);
  7.     r:=a+b+c;
  8.     writeln('El resultado es',r);
  9. end.
  10.  

Hubologista

  • Nuevo Miembro
  • *
  • Mensajes: 7
  • Nacionalidad: ar
    • Ver Perfil
Re: Ejercicios Resueltos
« Respuesta #2 en: Martes 13 de Octubre de 2009, 03:31 »
0
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
  1. program sumarestamultiplicadividedos;
  2. var a,b,s,r,m,d:real;
  3.  
  4. begin
  5.     writeln('Ingrese dos numeros reales');
  6.     readln(a,b);
  7.     s:=a+b;
  8.     r:=a-b;
  9.     m:=a*b;
  10.     d:=a/b;
  11.     writeln('Los resultados son',s,r,m,d);
  12. end.
  13.  

Hubologista

  • Nuevo Miembro
  • *
  • Mensajes: 7
  • Nacionalidad: ar
    • Ver Perfil
Re: Ejercicios Resueltos
« Respuesta #3 en: Martes 13 de Octubre de 2009, 03:53 »
0
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
  1. program mayora21;
  2. var n:real;
  3.  
  4. begin
  5.     writeln('Ingrese un numero');
  6.     readln(n);
  7.     if(n>21) then begin
  8.         writeln('El número es mayor a 21');
  9.     end else
  10.         writeln('El número no es mayor a 21');
  11. end.
  12.  

Hubologista

  • Nuevo Miembro
  • *
  • Mensajes: 7
  • Nacionalidad: ar
    • Ver Perfil
Re: Ejercicios Resueltos
« Respuesta #4 en: Martes 13 de Octubre de 2009, 04:06 »
0
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
  1. program bienvenidasolocodigo;
  2. var nombre:string;
  3.  
  4. begin
  5.     writeln('Ingrese su nombre');
  6.     readln(nombre);
  7.     writeln('Le doy la bienvenida a SoloCodigo',nombre);
  8. end.
  9.  

Hubologista

  • Nuevo Miembro
  • *
  • Mensajes: 7
  • Nacionalidad: ar
    • Ver Perfil
Re: Ejercicios Resueltos
« Respuesta #5 en: Martes 13 de Octubre de 2009, 05:46 »
0
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
  1. program 50numeros;
  2. var n,cantceros,cantpos,totpos,totneg,i:integer; prompos:real;
  3.  
  4. begin
  5.     cantceros:=0;
  6.     cantpos:=0;
  7.     totpos:=0;
  8.     totneg:=0;
  9.     for i:=1 to 50 do begin
  10.         writeln('Ingrese un numero');
  11.         readln(n);
  12.         if(n=0) then begin
  13.             cantceros:=cantceros+1;
  14.         end else
  15.             if(n>0) then begin
  16.                 cantpos:=cantpos+1;
  17.                 totpos:=totpos+n;
  18.             end else
  19.                 totneg:=totneg+n;
  20.     end;
  21. prompos:=totpos/cantpos;
  22. writeln(cantceros,prompos,totneg);
  23. end.
  24.  

eternity

  • Miembro activo
  • **
  • Mensajes: 78
  • Nacionalidad: ar
    • Ver Perfil
    • http://lameriendadejuan.blogspot.com/
Re: Ejercicios Resueltos
« Respuesta #6 en: Miércoles 14 de Octubre de 2009, 14:35 »
0
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:


elchamby

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Ejercicios Resueltos
« Respuesta #7 en: Miércoles 14 de Octubre de 2009, 18:34 »
0
¿tu cuando empezaste sabias hacer todo eso?
 :argh:

eternity

  • Miembro activo
  • **
  • Mensajes: 78
  • Nacionalidad: ar
    • Ver Perfil
    • http://lameriendadejuan.blogspot.com/
Re: Ejercicios Resueltos
« Respuesta #8 en: Miércoles 14 de Octubre de 2009, 18:37 »
0
si, yo nací sabiendo :angry:

vos no?


Hubologista

  • Nuevo Miembro
  • *
  • Mensajes: 7
  • Nacionalidad: ar
    • Ver Perfil
Re: Ejercicios Resueltos
« Respuesta #9 en: Miércoles 14 de Octubre de 2009, 20:01 »
0
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:

epayan

  • Miembro activo
  • **
  • Mensajes: 41
  • Nacionalidad: mx
    • Ver Perfil
    • http://www.pillin-slk.blogspot.com
Re: Ejercicios Resueltos
« Respuesta #10 en: Miércoles 14 de Octubre de 2009, 23:09 »
0
creo qe deberiamos disculpar al eternity, no le han salido bien las cosas y es un manera de demostrarlo

eternity

  • Miembro activo
  • **
  • Mensajes: 78
  • Nacionalidad: ar
    • Ver Perfil
    • http://lameriendadejuan.blogspot.com/
Re: Ejercicios Resueltos
« Respuesta #11 en: Jueves 15 de Octubre de 2009, 03:10 »
0
Cita de: "epayan"
creo qe deberiamos disculpar al eternity, no le han salido bien las cosas y es un manera de demostrarlo
:bad: