задача на prolog про оценки за экзамены

@AinurSattarovna · Регистрация: 11.11.2012

Author24 — интернет-сервис помощи студентам

напишите программу Пролога, которая вычисляет:
- средние сорта для экзаменов "информатики";
- средние сорта для экзаменов "не информатики";
- средние сорта для всех экзаменов.
Для каждого экзамена нужно обеспечить:
- название экзамена;
- сорт;
- тип (то есть "информатика" или "другой").
Тип может быть свободно определен, и он не обязан быть связанным с официальной классификацией. Например, Вас можно рассмотреть относящимся к типу "Информатика". Предположите, что все экзамены стоящее шесть кредитов и нет никаких тестов способности.
Обеспечьте код программы наряду с:
- входные данные;
- результаты трех тестов;
-Копия сертификата экзаменов, которые используются в качестве входных данных.

Добавлено через 7 часов 2 минуты
Пожалуйста, помогите решить задачу на прологе

Добавлено через 24 минуты
Оригинал на англ. языке:

Write a prolog program that computes:
the average grades for "computer science" exams;
the average grades for "non-computer science" exams;
the average grades for all exams;
Use as input to the program the list of exams you have passed in real life. For each exam, one must provide:
the name of the exam
the grade
the type (i.e., "computer science" or "other")
The type may be freely defined and it is not required to be associated to an official classification. For example, you may assume that Mathematical Analysis may be considered of type "Other" while Programming Techniques may be considered of type "Computer Science". Assume that all the exams are worth six credits and that there are no aptitude tests.

Provide the code of the program along with:
the input data,
the results of the three tests
a copy of the certificate of the exams you passed that are used as input data.

Добавлено через 19 часов 17 минут
pojaluisto, o4en-o4en prowu pomogite. Est rewenie, no ne mogu rzobratsia kak s bazoi nado sviazat

Добавлено через 2 минуты

Prolog

%Sum.
sum([],0,0).
 
%Case "Computer Sceince".
sum([exam(X,cs,_)|T],Sumcs,Sumot):-
sum(T,Sumc,Sumo),
Sumcs is X + Sumc,
Sumot is 0 + Sumo.
 
%Case "Other".
sum([exam(X,other,_)|T],Sumcs,Sumot):-
sum(T,Sumc,Sumo),
Sumcs is 0 + Sumc,
Sumot is X + Sumo.
 
%lenght.
 
length1cs([],0,0).
length1cs([exam(_,cs,_)|T],COML+1,OTHERL) :- length1cs(T,COML,OTHERL).
length1cs([exam(_,other,_)|T],COML,OTHERL+1) :- length1cs(T,COML,OTHERL).
 
 
 
average([],0,0).
average(X,A,B,C) :- sum(X,T,S), length1cs(X,CL,OL), A is T/CL , B is S/OL , C is A+B.

@Грымзик · 12.11.2012, 22:38

- средние сорта для экзаменов "информатики"

Просто consult(адрес файла), в котором будут содержаться записи вида
exam(5,cs,'логическое программирование').

@AinurSattarovna · 13.11.2012, 17:33 **[ТС]**

Sorry, google perevod4ik, ia ne vinovata ;-)
srednaia OTCENKA dlia ekzamenov 'informatiki'
kak mojno rewit etu zada4u drugim putem? Prosto mi tolko na4ali izu4at prolog. V na4ale vrode vse poniatno, a doma6ka... Daite orientir,plz. Eto dlia menia ne prosto domawka, a o4en vajnoe zadanie, ot re6rnia kotorogo zavisit vsia moia jizn

Добавлено через 6 минут
mojno popodrobnei pro consult?

Добавлено через 18 часов 12 минут
Privet!
Rewila zada4u, no nemnogo nedorabotano. Pojaluisto pomogite podkorrektirovat ee

Добавлено через 4 минуты
Vi je znataki programmirovania, a ia prosto novi4ek. Plz, okajite pomo6, mne uje sednia nado sdat etu zada4u....:'-(((((

Prolog

sum([],0,0).
 
sum([exam([X1,compscience,X2])|Tail],Sumcompsc,Sumoth):-
sum(Tail,Sumcompscience,Sumother),
Sumcompsc is X2 + Sumcompscience,
Sumoth is 0 + Sumother.
 
sum([exam([X1,other,X2])|Tail],Sumcompsc,Sumoth):-
sum(Tail,Sumcompscience,Sumother),
Sumcompsc is 0 + Sumcompscience,
Sumoth is X2 + Sumother.
 
lengthcompscience([],0,0).
lengthcompscience([exam([_,compscience,_])|Tail],COMSCIENLEN+1,OTHERLEN) :- lengthcompscience(Tail,COMSCIENLEN,OTHERLEN).
lengthcompscience([exam([_,other,_])|Tail],COMSCIENLEN,OTHERLEN+1) :- lengthcompscience(Tail,COMSCIENLEN,OTHERLEN).
 
average([],0,0,0).
average(X,COMPSCIEN,OTHER,ALL) :- sum(X,T,S), lengthcompscience(X,CL,OL), COMPSCIEN is T/CL , OTHER is S/OL , ALL is COMPSCIEN+OTHER.

programma vigliadit tak, a bazu znani piwu v zaprose:
average([exam([java,compscience,27]),exam([filos,other,25]),exam([delphi,compscience,24]),exam([astronomi,other,29])],A,B,C).

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	12.11.2012, 22:38	2
	- средние сорта для экзаменов "информатики" Просто consult(адрес файла), в котором будут содержаться записи вида exam(5,cs,'логическое программирование'). 0

	13.11.2012, 17:33