Списки, Visual Prolog

@bublikss · Регистрация: 11.04.2010

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

добрый вечер!
помогите пожалуйста выполнить вот какое задание:
Дано название групп, солист, альбом, и стиль.

-Сформировать первый список из всех названий групп.
-Второй список из названий групп ввести с клавиатуры.
-Напечатать все названия групп, которые есть в первом списке, но нет во втором.

Первое готово, не могу понять как второе ну и соответственно третье без второго не сделать, может чтото похожее есть?поиском пользовалась
Вот мои наработки

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
domains
nazv_gruppa=symbol
god_sozd_gruppa=integer
god_vip=integer
tirazh=long
style=symbol
solist=symbol
nazv_albom=symbol
popular_albom=albom(nazv_albom, god_vip, tirazh)
nazv=symbol*
predicates
gruppa(nazv_gruppa, popular_albom, god_sozd_gruppa, solist, style)
vse_gruppa(nazv)
clauses
 
gruppa("deep_purple", albom("burn", 1974, 1000000), 1968, "gillan", "rock").
gruppa("aerosmith", albom("get_a_grip", 1993, 12000000), 1970, "tyler", "rock").
gruppa("laskoviy_may", albom("áåëûå_ðîçû", 1993, 100000), 1970, "shatunov", "pop").
gruppa("yahontoviy_larb", albom("áåðåçû", 1993, 1000), 1990, "morozov", "folk").
gruppa("n_sync", albom("love", 1993, 12000000), 1990, "timberlake", "pop").
gruppa("korni", albom("êîðíè", 2002, 11000000), 2001, "simakov", "pop").
gruppa("******", albom("íîìåð_5", 1993, 10000), 1996, "brezhneva", "pop").
gruppa("ruki",  albom("mp3", 1995, 120000000), 1993, "zhukov", "pop").
gruppa("b_b", albom("boys", 1997, 12000000), 1995, "tailer", "pop").
gruppa("hurts", albom("wondeful_life", 2009, 1200000000), 2005, "gallin", "trance").
gruppa("fall_out_boy", albom("infinity_of_high", 2007, 132000000), 2001, "mosd", "rock").
gruppa("killers", albom("hot_fuss", 2004, 1200000000), 2003, "latmier", "rock").
gruppa("three_doors_down", albom("another_700_miles", 2003, 112000000), 1999, "smiths", "rock").
gruppa("amatory", albom("cherno_belie_dni", 2007, 122000000), 2005, "simachev", "rock").
gruppa("system_of_a_down", albom("lonely_day", 2005, 112000000), 2003, "stylers", "rock").
gruppa("atb",  albom("trance_megahits", 2006, 11200000), 2003, "forse", "trance").
gruppa("menog", albom("trance_megahits", 2006, 11200000), 2000, "din", "house").
gruppa("lava", albom("trance_megahits", 2006, 11200000), 2003, "jiforse", "trance").
gruppa("rim", albom("trance_megahits", 2006, 11200000), 2005, "deanes", "house").
gruppa("fragma", albom("trance_megahits", 2006, 11200000), 2005, "fragmat", "dance").
 
 
vse_gruppa([]).
vse_gruppa([H|_]):-write(H).
goal
 
findall(N,gruppa(N,albom(_,_,_),_,_,_),F),
write("Perviy spisok (vse gruppi):"),nl,nl,write(F),
//здесь начинаю делать второе но не знаю как)
nl,nl,write("Vvedite gruppi:"),nl,
readln(N),fail,nl,nl,write("Vtoroi spisok (vvod v ruchnuy):"),write(N),nl,nl,
readchar(_).

@Грымзик · 14.11.2012, 21:06

readterm(List), и так и вводить, как список, со скобочками и запятыми.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	14.11.2012, 21:06
	readterm(List), и так и вводить, как список, со скобочками и запятыми. 1