Найти среднемесячную заработную плату для инженеров (Visual Prolog 5.2)

@NoklrC1og · Регистрация: 05.12.2011

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

Дали задание для Visual Prolog 5.2 (версию менять нельзя): создать БД, содержащую сведения: Ф.И.О., профессия, зарплата.
Необходимо найти среднемесячную заработную плату для инженеров.

С БД вроде как разобрались.
Проблема в том, что нет понимания, как из внутренней БД получить все данные и как потом по ним пробежаться, чтобы собрать статистику и выдать ответ.
Вот что найдёно было по книге "Логическое программирование на языке Visual Prolog. Учебное пособие." О.П. Солдатова, И.В.Лёзина (soldatova_lezina.pdf):
-- есть предикат findall, который позволяет из внутренней БД вытянуть сведения и создать список (в книге есть пример создания списка при помощи findall).
Где бы подсмотреть пример кода, как по списку пробежаться, чтобы собрать статистику о зарплатах по профессии.

@Грымзик · 05.12.2011, 21:09

А не пробывали ли Вы просто поиском воспользоваться? findall используется часто и примеров найдеться куча. Ну или давайте делайте самостоятельно все, кроме этого предиката, выкладывайте, и я помогу.

@NoklrC1og · 11.12.2011, 03:41 **[ТС]**

Спасибо за отклик :) Но разобрались.
Вот что получилось в результате. Книга помогла, что указал в первом сообщении.

Prolog

     domains
        i=integer
        okl = integer
        list = okl*
 
     database
        men(symbol,symbol,symbol,symbol,integer).
        counter(i).
 
     predicates
nondeterm repeat.
nondeterm inbase.
nondeterm count(i,i).
          sumlist(list, okl, i).
 
     clauses
        repeat. repeat :- repeat.
        count(X,Y) :- counter(X),Y=X+1, retract(counter(X)), assert(counter(Y)).
        inbase:-
                write("Kol-vo chelovek = "),
                readint(Z),
                repeat,
                write("*******"), nl,
                write("Familija: "), readln(Surname),
                write("Imja: "), readln(Name),
                write ("Otchestvo: "), readln(Name2),
                write ("Doljnost': "), readln(Dolg),
                write ("Oklad: "), readint(Okl),
                assert(men(Surname,Name,Name2,Dolg,Okl)),
                count(_,Y), Y=Z.
 
       sumlist([], 0, 0).
       sumlist([H|T], Sum, N) :- sumlist(T, S1, N1), Sum=H+S1, N=1+N1.
 
     goal
        assert(counter(0)), inbase,
        findall(Oklad, men(_,_,_,"ingener",Oklad), L), sumlist(L, Sum, N), Ave = Sum/N, write("Aver =", Ave), nl,!.

@NoklrC1og 0 / 0 / 0 Регистрация: 05.12.2011 Сообщений: 5
		1
	Найти среднемесячную заработную плату для инженеров (Visual Prolog 5.2) 05.12.2011, 01:29. Показов 3735. Ответов 2 Метки нет (Все метки) Дали задание для Visual Prolog 5.2 (версию менять нельзя): создать БД, содержащую сведения: Ф.И.О., профессия, зарплата. Необходимо найти среднемесячную заработную плату для инженеров. С БД вроде как разобрались. Проблема в том, что нет понимания, как из внутренней БД получить все данные и как потом по ним пробежаться, чтобы собрать статистику и выдать ответ. Вот что найдёно было по книге "Логическое программирование на языке Visual Prolog. Учебное пособие." О.П. Солдатова, И.В.Лёзина (soldatova_lezina.pdf): -- есть предикат findall, который позволяет из внутренней БД вытянуть сведения и создать список (в книге есть пример создания списка при помощи findall). Где бы подсмотреть пример кода, как по списку пробежаться, чтобы собрать статистику о зарплатах по профессии. 0

@Грымзик 2505 / 1480 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	05.12.2011, 21:09	2
	А не пробывали ли Вы просто поиском воспользоваться? findall используется часто и примеров найдеться куча. Ну или давайте делайте самостоятельно все, кроме этого предиката, выкладывайте, и я помогу. 1

	11.12.2011, 03:41