Hola, se me pidio hacer este ejercicio: 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.
hago el codigo pero no me pasa de leer la instruccion, les dejo el codigo a ver si ustedes me pueden ayudar, gracias
Program Llamada;
Uses CRT;
Var Numero:real;
D:Real;
Media:Real;
dtotal:Real;
d1:real;
Begin Clrscr;
Writeln('Duracion de llamada (0 para terminal): ');
Readln(d);
Dtotal:=0;
While (d>0) do Begin dtotal:=dtotal+d;
Numero:=numero + 1;
d1:=d + d;
End;
Media:= dtotal/numero;
Writeln('Numero de llamadas: ', numero);
Writeln('Duracion total: ',dtotal);
Writeln('Duracion media: ', media);
Readln;
End
Hola, revisando tu código veo los siguientes errores:
1. Numero debería ser declarado como entero.
2. Numero debe ser inicializado: Numero:=0;
3. La variable d1 sobra.
4. También dentro del bucle tienes que leer el valor b.
Un saludo