Problema con este programa en Pascal.

[Manimecker]

Me encuentro realizando el siguiente ejercicio:

Añadir al programa anterior lo necesario para que clasifique las llamadas en Nacionales (N), Provinciales (P) y Locales (L) y realizar los mismo cálculos que antes para cada tipo de llamada (duración y numero de llamadas Nacionales, duración y numero de llamadas Provinciales y duración y numero de llamadas Locales). El programa también debe solicitar, después de presentar los resultados, si se desea realizar de nuevo todo el proceso anterior.

El resultado debe ser similar a esto:

Introduzca la duración de la llamada en minutos (0 para terminar): 5
Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local: p

Introduzca la duración de la llamada en minutos (0 para terminar): 15
Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local: n

Introduzca la duración de la llamada en minutos (0 para terminar): 20
Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local: l

Introduzca la duración de la llamada en minutos (0 para terminar): 40
Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local: p

Introduzca la duración de la llamada en minutos (0 para terminar): 0



-Especificación llamadas Nacionales, Provinciales y Locales-

El numero de llamadas nacionales a sido: 1 y su duración: 15.00 minutos.
El numero de llamadas provinciales a sido: 2 y su duración: 45.00 minutos.
El numero de llamadas locales a sido: 1 y su duración: 20.00 minutos.

-Totales-

Numero de llamadas: 4
Duración total: 80.00 minutos.
Duración media: 20.00 minutos.

Desea continuar para realizar otra lista de llamadas? S/N: n

Todo lo llevo perfecto, sólo que en la última parte, que pregunta si desea continuar, si pongo n o N, se vuelve a ejecutar el bucle y nunca acaba, y no sé por qué.

Les dejo el código estructurado que llevo hasta ahora en el siguiente enlace.

[url]http://pastebin.com/09M7Fxyc[/url]

Dejo el link ya que el código es demasiado extenso y es mejor estructurarlo en un pastebin.

Gracias de antemano.

[HackmanC]

Hola,

Hay una gran diferencia entre read() y readln().

http://pastebin.com/diff.php?i=JG4GM7BD

La diferencia está en la forma que manejan la 'cola' de teclas. read() lee la siguiente tecla que haya en la cola, si no hay nada no lee nada. readln() espera hasta que se presione la tecla enter.

Prueba a escribir:

Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local : 0 N

Lógicamente la solución es usar readln.

Saludos,

[Manimecker]

Iniciado por HackmanC

Hola,

Hay una gran diferencia entre read() y readln().

[url]http://pastebin.com/diff.php?i=JG4GM7BD[/url]

La diferencia está en la forma que manejan la 'cola' de teclas. read() lee la siguiente tecla que haya en la cola, si no hay nada no lee nada. readln() espera hasta que se presione la tecla enter.

Prueba a escribir:

Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local : 0 N

Lógicamente la solución es usar readln.

Saludos,

Hombre, me has salvado el pellejo!!

Muchísimas gracias.

Ahora, tengo otro pequeño problema, si ves, tengo 1 repeat dentro de otro repeat, así que en el segundo repeat cuando inserto el número '0', se debería detener el bucle, pero en vez de que se detenga, inserto el número y me pregunta también por la otra variable, la del tipo de llamada, y después me muestra los resultados totales ¿hay alguna manera de evitar eso?

[HackmanC]

Hola,

Siguiendo la misma lógica del programa tienes que agregar una comprobación para ver si tienes que pasar por la siguiente parte del código o no.

Código:

...
if Dur <> 0 then
  begin
  write('Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local : ');
...

http://pastebin.com/Sh084CL7
Saludos,