Pascal/Turbo Pascal - Un programa que solicite la duración de las llamadas, el valor medio y el número total de llamada

   
Vista:

Un programa que solicite la duración de las llamadas, el valor medio y el número total de llamada

Publicado por Rodrigo (1 intervención) el 12/03/2015 21:32:03
El ejercicio ba asi:
Suponga que desea saber qué "perfil" tienen sus llamadas telefónicas. Para ello realizará un programa que solicite la duración de las llamadas y calcule:
- la duración total de sus llamadas.
- el valor medio.
- el número total de llamadas.
Estos resultados se presentarán por pantalla.

Para este ejercicio hace falta un bucle que vaya pidiendo la duración de las distintas llamadas. El algoritmo sería aproximadamente:
- Iniciar los valores de las variables necesarias (número de llamadas y duración total de todas las llamadas entre otras).
- Leer la duración de la primera llamada.
- Mientras la duración de la llamada sea mayor que cero:
o Incrementar el número de llamadas en uno.
o Incrementar el tiempo total que suman todas las llamadas.
o Leer la duración de otra llamada.
- Si se ha introducido alguna llamada:
o Realizar los cálculos necesarios.
o Presentar resultados.
- Si no se introdujo ninguna llamada indicarlo al usuario.

----------------------------------------------------------------------------------
EL PROGRAMA DEBE VERSE ASI POR EJEMPLO:

Duracion de la llamada (0 para terminar): 5
Duracion de la llamada (0 para terminar): 10
Duracion de la llamada (0 para terminar): 15
Duracion de la llamada (0 para terminar): 20
Duracion de la llamada (0 para terminar): 0
> Numero de llamadas: 4
> Duracion total: 50.0
> Duracion media: 12.5
----------------------------------------------------------------------------
De momento solo tengo esto.

program ejercicio_propuesto;

var
duracion:integer;


begin

duracion:=0;
repeat
write('Duracion de la llamada (0 para terminar): ');
read(duracion);
until duracion=0

end.

Porfa un crack que me ayude a completarlo.
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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Numeros aleatorios
- Vectores
- Fibonacci

Un programa que solicite la duración de las llamadas, el valor medio y el número total de llamada

Publicado por ramon (2072 intervenciones) el 13/03/2015 13:39:58
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
{A ver si esto ayuda }
 
program ejercicio_propuesto;
uses
   crt;
var
duracion:real;
llamad : integer;
tiemp : real;
 
begin
 llamad := 0;
duracion:=0.0;
tiemp := 0.0;
clrscr;
repeat
write('Duracion de la llamada (0 para terminar): ');
read(duracion);
if duracion > 0 then
begin
tiemp := tiemp + duracion;
llamad := llamad + 1;
end;
until duracion=0;
 writeln;
 writeln('  Numero Llamadas = ',llamad);
 writeln('  Duracion Total  = ',tiemp:0:2);
 writeln('  Duracion Media  = ',(tiemp / llamad):0:2);
 readkey;
end.
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