[ Foro de Pascal ]

pascal.Programa llamadas telefonicas - imposible de resolver

15-Jan-2016 11:29
mary yor
2 Respuestas

Hola y gracias si alguen lee esto.
Estoy haciendo un ejercicio que pide recopilar las llamadas tel. entrantes para despues hacer los calculos y mostrar:  llamadas  total, numero de llamadas, el valor medio de las llamadas.
voy a copiar el codigo aqui para quien quiera pueda echarle un vistazo o ejecutarlo.
Probablemente tengo algun error pequeño pero yo no lo veo asi que HELP please!!!!


program perfil_telefonico;
      
var  
    (*Variables*)
    num_llamada: integer;
	dur_total: integer;
	dur_llamada: integer;
	valor_medio: real;
	
begin         
num_llamada:=0;
dur_llamada:=0;       (*Variables puestas a 0*)
dur_total:=0;
valor_medio:=0;
repeat                      (* Principal programa*)
     writeln('Duracion de llamada(0 para terminar)');
     readln(dur_llamada);
     if (dur_llamada>0)then   
     num_llamada:=num_llamada+1 ;   
until(dur_llamada=0); 
if (dur_llamada>0) then 
writeln();
begin                  
	 writeln('numero de llamadas: ',num_llamada)
	 dur_total:=dur_total+dur_llamada;
     writeln('Duracion total: ',dur_total)
     valor_medio:=dur_total/num_llamada;
     writeln('Valor medio llamadas',valor_medio:2:2)
end
else                                       (*Si quito 'else' si que me ejecuta el programa*)
     writeln('No hay llamadas entrantes');
end.


 


17-Jan-2016 17:28
Nacho Cabanes (+83)

Los mensajes de error son tus amigos.  ;-)

Probado con Free Pascal, aparece el error:


telefono.pas(25,3) Fatal: Syntax error, ";" expected but "identifier DUR_TOTAL" found


Es decir, en la línea 25 esperaba un punto y coma pero, en lugar de eso, ha encontrado el identificador DUR_TOTAL. Si miras el final de la línea 24 verás dónde está el fallo:


writeln('numero de llamadas: ',num_llamada)


Como te decía el mensaje de error, falta un punto y coma.


18-Jan-2016 21:19
mary yor

Hola!!  Gracias por tu rapida respuesta!
Y si.  Tengo un problema con utilizar  ' ; '.
Voy a revisarlo y ya comento si me funciona como deberia o falta pulir.






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)