
¿Cómo hago para que muestre un mensaje si no se ha producido ninguna llamada?
Publicado por Elena (4 intervenciones) el 06/11/2017 15:21:05
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
{ Me falta solamente que indique si no se han llegado a producir llamadas, si introduce un "0" en el primer mensaje de "('Duracion de la llamada (0 para terminar)" }
var
duracion: real;
llamada: integer;
tiempo: real;
begin
llamada := 0;
duracion:=0.0;
tiempo := 0.0;
repeat
write('Duracion de la llamada (0 para terminar): ');
read(duracion);
readln();
if duracion > 0 then
begin
tiempo := tiempo + duracion;
llamada := llamada + 1;
end;
until duracion=0;
writeln('> Numero de llamadas: ',llamada);
writeln('> Duracion total: ',tiempo:0:1);
writeln('> Duracion media: ',(tiempo / llamada):0:1);
readln();
end.
Valora esta pregunta


0