Programa Llamadas
Publicado por anonymous (12 intervenciones) el 23/07/2017 14:37:13
Buenas tardes, no logro encontrar el fallo en un ejercicio de Pascal que debe solicitar la duración de las llamadas y calcular la duración total, el valor medio y el número de llamadas, esto es lo que he escrito:
El programa se queda parado tras introducir la primera variable ¿Podéis ayudarme?
Un saludo y gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Program llamadas;
uses
crt;
var
num_llam: integer; (*Numero de llamadas*)
dur_llam: integer; (*Duracion total de llamadas*)
nueva_llam: integer; (*Duracion de la nueva llamada*)
dur_media: real; (*Duracion media de las llamadas*)
Begin
(*Inicializacion de variables*)
num_llam:= 0;
dur_llam:= 0;
nueva_llam:= 0;
dur_media:= 0;
(*Bucle*)
repeat
writeln('Duracion de la llamada (0 para terminar): ');
readln(nueva_llam);
while (nueva_llam > 0) do
begin
num_llam:= num_llam + 1;
dur_llam:= nueva_llam + dur_llam;
end;
until (nueva_llam = 0);
(*Presentacion de resultados*)
If (nueva_llam = 0) then
begin
dur_media:= (dur_llam / num_llam);
writeln('Numero de llamadas: ', num_llam);
writeln('Duracion total: ', dur_llam);
writeln('Duracion media: ',dur_media);
end;
readkey
end.El programa se queda parado tras introducir la primera variable ¿Podéis ayudarme?
Un saludo y gracias.
Valora esta pregunta
0