Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Prolog » URGENTE AYUDA EN PROMEDIO EN PROLOG

Prolog - URGENTE AYUDA EN PROMEDIO EN PROLOG

Volver
Nuevo Tema
<<>>
 
Vista:

URGENTE AYUDA EN PROMEDIO EN PROLOG

Publicado por Eduardo (1 intervención) el 23/09/2005 03:25:30
Hola porfavor ayudenme a como solucionar mi problema en prolog bye...
Necesito calcular el promedio...PERO DENTRO DE LA MISMA REGLA...

domains
i=integer
predicates
promedio(i,i,i)
clauses
promedio(0,0,0).
promedio(T,S,P):- T1=T-1,%T = Numero de terminos
promedio(T1,S1,P),
write("Ingrese numero: "),
readint(N),
S=S1+N.% Aca hallo la suma de los numeros...
%Aca deberia hallar de alguna forma el promedio
goal
clearwindow,
write("Ingrese numero de terminos: "),
readint(T),
promedio(T,S,P),
write("Suma = ",S),nl,
write("Promedio = ",P),%P=S/T...PERO DEBE SER EN LA REGLA promedio(T,S,P)...
readln(_).

/*COMO HAGO?????????????????????*/
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

calculo de promedio con listas

Publicado por JRonald (1 intervención) el 05/03/2015 16:19:22
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
% Autor: www.facebook.com/cayito.jr
%
 
alumno([]).
alumno([X|Xs]):-alumno(Xs).
notas([]).
notas([X|Xs]):-number(X), X>=0,X=<20, notas(Xs).
 
long([],0).
long([X|Xs],L):- long(Xs,Lc), L is Lc+1.
sum([],0).
sum([X|Xs],S):- sum(Xs,Sc), S is Sc + X.
 
promedio(Xs,P):- long(Xs,L), sum(Xs,S), P is S/L.
 
calcProm(Xs,Ys,Prom):- alumno(Xs),notas(Ys), promedio(Ys,Prom),
                      writeln(Xs),
                      (Prom<10.5 -> writeln('desaprobado');
                      Prom>=10.5 -> writeln('aprobado')).
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