-
Lenguaje
Pascal
-
Descripción
Programa para que un estudiante conozca el promedio de calorías que consume en la semana. La entrada siempre serán 7 datos numéricos que representan las calorias consumidas de lunes a domingo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program PromedioDeCalorias;
uses crt;
var i : integer;
var calorias_consumidas, promedio_de_calorias : real;
begin
promedio_de_calorias := 0;
for i:=1 to 7 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de calorias consumidas: ');
readln (calorias_consumidas);
promedio_de_calorias := promedio_de_calorias+calorias_consumidas;
writeln;
end;
promedio_de_calorias := promedio_de_calorias/7;
writeln ('Valor de promedio de calorias: ', promedio_de_calorias:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var calorias_consumidas, promedio_de_calorias : real;
begin
promedio_de_calorias := 0;
for i:=1 to 7 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de calorias consumidas: ');
readln (calorias_consumidas);
promedio_de_calorias := promedio_de_calorias+calorias_consumidas;
writeln;
end;
promedio_de_calorias := promedio_de_calorias/7;
writeln ('Valor de promedio de calorias: ', promedio_de_calorias:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.