Prolog

Colegio Particular
PAULO_VI
Cochabamba_Bolivia

Este Sistema Experto califica los examenes de conocimient
os
generales a los estudiantes de Sexto de Primaria.
En base a la siguienteclasificacion:

Excelente
Bueno
Regular
Malo

Presione cualquier tecla para comenzar la consulta de la Evaluac
ion.~"
WCLOSE 1
WOPEN 2,1,5,10,70,3
ACTIVE 2
! Campos=(0)
x=(0)
FINDnombre
WCLOSE 2
WHILEKNOWN nombre
CLS
X=(x+1)
puntaje=(0)
calific=(0)
contbien=(0)
contmal=(0)
WOPEN 2,1,15,4,50,3
ACTIVE 2
RESET calific
RESET resultado
RESET puntajeRESET contbien
RESET contmal
RESET PREGUNTA1
RESET PREGUNTA2
RESET PREGUNTA3
RESET PREGUNTA4
FIND nombre
WCLOSE 2
WOPEN 2,1,5,20,70,3
ACTIVE 2
FIND PREGUNTA1
FINDPREGUNTA2
FIND PREGUNTA3
FIND PREGUNTA4
! FIND RESPUESTA1
! FIND RESPUESTA2
! FIND RESPUESTA3
! FIND RESPUESTA4

WCLOSE 1
WOPEN 1,2,5,15,66,3
ACTIVE 1
FIND estudiante
FINDpuntaje
FIND calific
FIND resultado

DISPLAY "En base a la calificacion se determina que el alumn
o:
{nombre} es:
RESET nombre
WOPEN 2,1,15,4,50,3
ACTIVE 2
FIND nombreWCLOSE 2
END;
RULE 0
IF PREGUNTA 1=A
THEN
respuesta1=bien
contbien=(contbien+1)
puntaje=(puntaje+25)
calific=(contbien*25)
DISPLAY" PREGUNTA 1, {CONTBIE} CORRECTA~"
FDISPLAYbase,"PREGUNTA1->Bien";

RULE 1
IF pregunta1=B OR
pregunta1=C OR
pregunta1=D
THEN
respuesta1=mal
contmal=(contmal+1)
puntaje=(puntaje+0)

DISPLAY" PREGUNTA 1, {CONTMAL}MAL ~"
FDISPLAY base,"PREGUNTA1->Mal";

RULE 2

IF pregunta2=B
THEN
respuesta2=bien
contbien=(contbien+1)
puntaje=(puntaje+25)
calific=(contbien*25)

DISPLAY" PREGUNTA 2,{CONTBIEN} CORRECTAS ~"
FDISPLAY base,"PREGUNTA2->Bien";

RULE 3
IF pregunta2=A OR
pregunta2=C OR
pregunta2=D
THEN
respuesta2=mal
contmal=(contmal+1)
puntaje=(puntaje+0)...