Programación General => Pascal => Mensaje iniciado por: 191988 en Martes 24 de Abril de 2007, 21:34
Título: Problema Con Un Ejercicio De Turbo Pascal7.0
Publicado por: 191988 en Martes 24 de Abril de 2007, 21:34
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
Título: Re: Problema Con Un Ejercicio De Turbo Pascal7.0
Publicado por: robertogt en Miércoles 25 de Abril de 2007, 03:01
que raro, porque a mi si me saco el promedio, solo copie directamente el codigo, no le modifique nada y si lo hizo.
Título: Re: Problema Con Un Ejercicio De Turbo Pascal7.0
Publicado por: Mr. Pascal en Miércoles 25 de Abril de 2007, 03:37
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:
Título: Re: Problema Con Un Ejercicio De Turbo Pascal7.0
Publicado por: Enko en Miércoles 25 de Abril de 2007, 22:14
El codigo que pasaste es ISO pascal.... mh... por si acaso prueba
Código: Text
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.
Es lo mismo con unos cambios minimos menos.
Título: Re: Problema Con Un Ejercicio De Turbo Pascal7.0
Publicado por: Vila1989 en Jueves 26 de Abril de 2007, 22:43
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.