Visual Prolog, динамическая база данных с CRUD

@nothing1 · Регистрация: 06.10.2015

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

Построить динамическую базу данных о семье, которая включает структурированную информацию о семье. Структорована информация представляется в форме одного предложения. Схематическое изображение фактов о семье на рис.1.(вложение) Дети представляются списочной структурой произвольной длины (третья ветвь). Распечатки результатов представить в понятной форме на экране или в файле с соответствующими пояснениями.

Выбрать семьи, в которых доход на одного члена семьи менее 500.

@nothing1 · 06.12.2018, 00:17 **[ТС]**

Prolog

implement mainForm inherits formWindow
    open core, vpiDomains
 
domains
    name = string.
    lastname = string.
    birthday = date(integer, integer, integer).
    salary = integer.
    workName = string.
    work = work(workName, salary).
    memberFamily = memberFamily(name, lastname, birthday, work).
    childrens = memberFamily*.
 
facts - familyDb
    family : (memberFamily, memberFamily, childrens).
 
predicates
    concatStr : (string*) -> string.
    displayAllFamilySalary : ().
 
clauses
    concatStr([]) = Str :-
        Str = "".
    concatStr([StrHead | StrTail]) = Str :-
        Str = string::concat(StrHead, concatStr(StrTail)).
 
    displayAllFamilySalary() :-
        family(memberFamily(FatherName, FatherLastname, _, work(_, FatherSalary)),
            memberFamily(MotherName, MotherLastname, _, work(_, MotherSalary)), []),
        Salary = FatherSalary + MotherSalary,
        edit_ctl:setText(
            concatStr(
                [
                    edit_ctl:getText(),
                    concatStr(
                        [
                            "Чоловік : ",
                            FatherName,
                            " ",
                            FatherLastname,
                            " ",
                            ", Зарплата : ",
                            toString(FatherSalary),
                            "\n",
                            "Жінка : ",
                            MotherName,
                            " ",
                            MotherLastname,
                            " ",
                            ", Зарплата : ",
                            toString(MotherSalary),
                            "\n",
                            "Загальна зарплата : ",
                            toString(Salary),
                            "\n" "\n"
                        ])
                ])),
        fail.
    displayAllFamilySalary().

У меня есть программа которая выводит доход семьи, как мне сделать чтобы выводились семьи у которых доход на одного члена семьи менее 500.

@Black Fregat · 06.12.2018, 09:15

Сообщение от nothing1

как мне сделать чтобы выводились семьи у которых доход на одного члена семьи менее 500

Вот прямо между строчками 30 и 31 вставить нужное условие.

PS. А чем не угодил стандартный string::concatList() ?

@nothing1 · 06.12.2018, 12:41 **[ТС]**

Сообщение от Black Fregat

Вот прямо между строчками 30 и 31 вставить нужное условие.

Не совсем дружу с прологом, а сегодня нужно сдать( Я конечно сейчас попробую сделать, но, если не затруднит, напишите как должно это условие выглядеть в виде кода. Спасибо

@Black Fregat · 06.12.2018, 13:56

Сначала надо посчитать количество членов семьи.
Ваш код на самом деле выбирает семьи, в которых нет детей, это так и должно быть?
Если нет, то нужно менять с самого начала предиката:

Prolog

    displayAllFamilySalary() :-
        family(memberFamily(FatherName, FatherLastname, _, work(_, FatherSalary)),
            memberFamily(MotherName, MotherLastname, _, work(_, MotherSalary)), 
            Children),
        FamilySize = 2 + list::length(Children),
        Salary = FatherSalary + MotherSalary,
        Salary / FamilySize < 500,
        edit_ctl:setText(
        ...

@nothing1 0 / 0 / 0 Регистрация: 06.10.2015 Сообщений: 25
		1
	Visual Prolog, динамическая база данных с CRUD 05.12.2018, 22:45. Показов 2163. Ответов 4 Метки нет (Все метки) Построить динамическую базу данных о семье, которая включает структурированную информацию о семье. Структорована информация представляется в форме одного предложения. Схематическое изображение фактов о семье на рис.1.(вложение) Дети представляются списочной структурой произвольной длины (третья ветвь). Распечатки результатов представить в понятной форме на экране или в файле с соответствующими пояснениями. Выбрать семьи, в которых доход на одного члена семьи менее 500. Миниатюры 0

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	06.12.2018, 09:15	3
	Сообщение от nothing1 как мне сделать чтобы выводились семьи у которых доход на одного члена семьи менее 500 Вот прямо между строчками 30 и 31 вставить нужное условие. PS. А чем не угодил стандартный string::concatList() ? 0

@nothing1 0 / 0 / 0 Регистрация: 06.10.2015 Сообщений: 25
	06.12.2018, 12:41 [ТС]	4
	Сообщение от Black Fregat Вот прямо между строчками 30 и 31 вставить нужное условие. Не совсем дружу с прологом, а сегодня нужно сдать( Я конечно сейчас попробую сделать, но, если не затруднит, напишите как должно это условие выглядеть в виде кода. Спасибо 0

	06.12.2018, 13:56