Suponga que desea saber que "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
-y los presente por pantalla.
Bien, el “algoritmo” (por llamarlo de alguna manera) que a mí se me ocurrió es el siguiente:
>iniciar los valores de las variables necesarias, numero de llamadas y duración total de todas las llamadas
>leer la primera llamada
>mientras llamada sea mayor que cero
>incrementar el numero de llamadas en uno
>incrementar el tiempo total que suman todas las llamadas
>leer otra llamada
>presentar resultados.
Y el código en pascal:
Código:
program telefonos;
var
numero: integer;
duracion: real;
media: real;
begin
write('Duracion de la llamada (0 para terminar): ');
readln(duracion);
while (duracion>0) do
begin
numero:=numero+1;
duracion:=duracion+duracion;
end;
media:=numero/duracion;
writeln('Numero de llamadas: ',numero);
writeln('Duracion total: ',duracion);
writeln('Duracion media: ',media);
end.
Se compila, pero lo ejecutar y de
Código:
write('Duracion de la llamada (0 para terminar): ');
readln(duracion);
Sugerencias? Cuantas cosas me encontráis mal?
Si esta mal de la cabeza a los pies, no quiero la solución solo una orientación.
Salu2.