Programación General > Pascal

 Problema Con Un Ejercicio De Turbo Pascal7.0

(1/1)

191988:
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:
que raro, porque a mi si me saco el promedio, solo copie directamente el codigo, no le modifique nada y si lo hizo.

Mr. Pascal:
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
--- Fin de la cita ---
:)


 :smartass:  :hola:

Enko:
El codigo que pasaste es ISO pascal.... mh... por si acaso prueba

--- Código: Text --- program mitjadenumerossencers;var   a,b,total:integer;   mitja:real; beginwriteln ('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.

Vila1989:
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.

Navegación

[0] Índice de Mensajes