Funcfion promedio en oascal
Publicado por cesar (10 intervenciones) el 11/08/2017 05:43:42
EL ENUNCIADO hacer un prpgramita que me de el promedio de n notas puede ser sin o con peticion al usuario EL problema es muy facil como tal pero como funcion se me complica la vida Al correr esto me da 3 numeros aleatorios y para el promedio
Yo use esta version Como poner a?? puede ser poner writ " ingrese nota acumulada
readln a
lohice no me corrio Tambien ouse 3 notas como variables n1 n2 y n3 t ampoco corrio donde puedo ponerlo ???
Yo use esta version Como poner a?? puede ser poner writ " ingrese nota acumulada
readln a
lohice no me corrio Tambien ouse 3 notas como variables n1 n2 y n3 t ampoco corrio donde puedo ponerlo ???
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Var
n : integer; //numero de datos o notas
a:longint; // nota acumulada
p:longint; //promedio
Function promN(n:integer):integer;
begin
if n = 0 thenpromN:= 1
else
promN := n * promN(n - 1);
end;
begin
n := 3;
writeln(promN(n));
p := a div n;
writeln(p);
a := a+n;
writeln(a);
readln;
end.Valora esta pregunta
0