• Viernes 8 de Noviembre de 2024, 15:56

Autor Tema:  Problema Con Un Ejercicio De Turbo Pascal7.0  (Leído 1789 veces)

191988

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Problema Con Un Ejercicio De Turbo Pascal7.0
« en: Martes 24 de Abril de 2007, 21:34 »
0
hola buenos dias soy nuevo en esto estoy intentando hacer ejercicios facilitos sobre pascal 7 .0 i ay un problema q me sale una parte i otra no i no se realmento donde me equivocado:

elejercicio es de sumar dos numeros introducidos pormi i hacer la media:

aqui os dejo como lo he hecho:

program mitjadenumerossencers (input, output);
var a,b,total:integer;mitja:real;s:char;
begin
      writeln ('introdueix 2 numeros sencer');
      read (a,b );
      total:= a+b;
      mitja:= total/2;
      writeln ('la mitja de',a,'i',b,'es',mitja);
      writeln('Prem s per sortir');
      readln(s);
end.




Me lo suma pero no me hace la media

gracias

robertogt

  • Miembro activo
  • **
  • Mensajes: 97
  • Nacionalidad: gt
    • Ver Perfil
    • http://robertux.wordpress.com
Re: Problema Con Un Ejercicio De Turbo Pascal7.0
« Respuesta #1 en: Miércoles 25 de Abril de 2007, 03:01 »
0
que raro, porque a mi si me saco el promedio, solo copie directamente el codigo, no le modifique nada y si lo hizo.
Un dia sin sol es como, ya sabes, ... noche

Mr. Pascal

  • Nuevo Miembro
  • *
  • Mensajes: 21
    • Ver Perfil
Re: Problema Con Un Ejercicio De Turbo Pascal7.0
« Respuesta #2 en: Miércoles 25 de Abril de 2007, 03:37 »
0
Pues el programa corre bien  :unsure:
no veo cual es el problema.....
Citar
que raro, porque a mi si me saco el promedio, solo copie directamente el codigo, no le modifique nada
:)


 :smartass:  :hola:

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Problema Con Un Ejercicio De Turbo Pascal7.0
« Respuesta #3 en: Miércoles 25 de Abril de 2007, 22:14 »
0
El codigo que pasaste es ISO pascal.... mh... por si acaso prueba
Código: Text
  1.  
  2. program mitjadenumerossencers;
  3. var
  4.   a,b,total:integer;
  5.    mitja:real;
  6. begin
  7. writeln ('introdueix 2 numeros sencer');
  8. readln(a);
  9. readln(b);
  10. total:= a+b;
  11. mitja:= total/2;
  12. writeln ('la mitja de',a,'i',b,'es',mitja);
  13. writeln('Prem s per sortir');
  14. readln;
  15. end.
  16.  
  17.  
Es lo mismo con unos cambios minimos menos.

Vila1989

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Problema Con Un Ejercicio De Turbo Pascal7.0
« Respuesta #4 en: Jueves 26 de Abril de 2007, 22:43 »
0
Recien me he inscripto en este sitio y este es el primer mensaje que envio. No encuentro errores en el codigo del programa que impoidan su funcionamiento, pero sugiero que se le mejore el formato. He aqui el mismo porgrama pero muhco más legibe para un ser humano, que facilita su comprensión:

program mitjadenumerossencers;

var
   a,b,total:integer;
   mitja:real;
begin
   writeln ('introdueix 2 numeros sencer');
   readln(a);
   readln(B);
   total:= a+b;
   mitja:= total/2;
   writeln ('la mitja de',a,'i',b,'es',mitja);
   writeln('Prem s per sortir');
   readln;
end.

Un buen consejo es poner toda instruccion situada entre un begin y un end, tabulada con respecto a estos y poner el end que cierra un begin siempre a su mismo nivel (nivel jerárquico). Las declaraciones que siguen a un var, también tabuladas con respecto al var.
Pero además, siempre que haya una división, como en ese caso, conviene que el dividendo (la variable mitja), sea declarada también real, para que no se produzca (o minimizar) el error de redondeo al dividir. Espero te sean útiles las sugerencias.