Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.08.2022, 16:23   #1
Scrym
Новичок
Джуниор
 
Регистрация: 14.08.2022
Сообщений: 1
По умолчанию Вывод отсортированного списка фактов

Visual Prolog
Сортирую список, созданный из базы фактов с помощью findall:
Код:
findall(G, book(S, A, P, W, T, K, G), Object_list),
Код:
run("9"):-  
    write("------------------------------"),nl,
    write("Sort books price"),nl,   
    findall(K, book(S, A, P, W, T, K, G), Object_list), 
    write(", Year: "), write(Object_list),
insert_sort(Object_list,Sorted),
show_book(Sorted),
menu.
Код:
show_book([]).
show_book([Head|Tail]):-
book(S, A, P, W, T, K,G),K=Head,
    nl,write(S), write(" ("), write(A), write(") - Edition: "), write(P),write(", Genre: "), write(W),write(", Year: "), write(T),write(", Available: "), write(G),write(", Price: "), write(K),
    show_book(Tail).
Но при выводе если цена нескольких книг совпадает, то выводится только одна:
Код:
Угадай, как сильно я тебя люблю (Сэм Макбратни) - Edition: 4200000, Genre: Рассказ, Year: 1994, Available: 927, Price: 517
Я слежу за тобой (Тереза Дрисколл) - Edition: 1000000, Genre: Триллер, Year: 2022, Available: 1295, Price: 520
Грязная работа (Кристофер Мур) - Edition: 2700000, Genre: Комедия, Year: 2015, Available: 295, Price: 550
Грязная работа (Кристофер Мур) - Edition: 2700000, Genre: Комедия, Year: 2015, Available: 295, Price: 550
Грязная работа (Кристофер Мур) - Edition: 2700000, Genre: Комедия, Year: 2015, Available: 295, Price: 550
Грязная работа (Кристофер Мур) - Edition: 2700000, Genre: Комедия, Year: 2015, Available: 295, Price: 550
Грязная работа (Кристофер Мур) - Edition: 2700000, Genre: Комедия, Year: 2015, Available: 295, Price: 550
Как можно исправить это? Саму программу приложил ниже.
Вложения
Тип файла: rar books.rar (482.5 Кб, 0 просмотров)

Последний раз редактировалось Scrym; 14.08.2022 в 16:40.
Scrym вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Извлечение фактов из текста Лизавета7 Помощь студентам 28 13.05.2013 07:42
Вывод списка символов справа налево 5 раз подряд и исключить вывод цифр Gareek Помощь студентам 2 23.12.2011 21:41
Найти ошибку в выводе отсортированного массива!Паскаль Анастасия1902 Помощь студентам 0 16.06.2011 19:14
Вывод отсортированного массива по спирали из центра Нимфея Помощь студентам 0 25.04.2011 23:55