Pascal/Turbo Pascal - ¿Cómo hago para que muestre un mensaje si no se ha producido ninguna llamada?

   
Vista:

¿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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

¿Cómo hago para que muestre un mensaje si no se ha producido ninguna llamada?

Publicado por David (183 intervenciones) el 06/11/2017 21:12:51
Podría ser algo así:

if tiempo = 0 then
Writeln('No se ha producido ninguna llamada');
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

¿Cómo hago para que muestre un mensaje si no se ha producido ninguna llamada?

Publicado por Elena (4 intervenciones) el 06/11/2017 21:46:09
Eso ya lo probé varias veces, pero no me funciona.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

¿Cómo hago para que muestre un mensaje si no se ha producido ninguna llamada?

Publicado por David (183 intervenciones) el 07/11/2017 10:12:28
Aquí lo que te decía. Probado en FreePascal, funciona. Échale un vistazo y si tienes alguna duda vuelve a escribir.

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Uses CRT;
 
 
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;
    clrscr;
    if tiempo=0 then
        writeln('No ha habido llamadas.')
    else
        begin
          writeln('>  Numero de llamadas: ',llamada);
 
          writeln('>  Duracion total: ',tiempo:0:1);
 
          writeln('>  Duracion media: ',(tiempo / llamada):0:1);
 
        end;
           readln();
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

¿Cómo hago para que muestre un mensaje si no se ha producido ninguna llamada?

Publicado por Elena (4 intervenciones) el 07/11/2017 17:45:17
¡¡¡Muchas gracias David!!!, ahora sí que me funciona.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar