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

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

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

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

Добавлено через 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
%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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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).

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .