Меню на прологе

@good1984 · Регистрация: 09.11.2011

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

СОРТИРОВКА ВСТАВКОЙ:

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
domains
list=integer*
predicates
insert_sort (list, list)
insert (integer, list, list)
asc_order (integer, integer)
clauses
insert_sort ( [], []).
insert_sort ([H1|T1], L2):- insert_sort (T1, T2),
insert(H1, T2, L2).
insert (X, [H1| T1], [H1| T2]) :- asc_order (X, H1), !,
insert (X, T1, T2).
insert (X, L1, [X| L1]).
asc_order (X, Y):- X<Y.
goal
insert_sort ([4, 7, 3, 9], L),WRITe(L),NL

СОРТИРОВКА ПЕРЕСТАНОВКОЙ:

Prolog
1
2
3
4
5
6
7
8
9
10
domains
list=integer*
predicates
puz(list,list)
perest(list,list)
clauses
puz(L1,L2):-perest(L1,L3),!,puz(L3,L2).
puz(L1,L1).
perest([X,Y|T],[Y,X|T]):Д.
perest([Z|T],[Z|T1]):-perest(T,T1).

БЫСТРАЯ СОРТИРОВКА

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
domains
list=integer*
 
predicates
supersort(list,list)
div(integer,list,list,list)
conc(list,list,list)
 
clauses
 supersort([],[]).
 supersort([H|T],L):-
         div(H,T,Small,Big),
         supersort(Small,Small_sort),
         supersort(Big,Big_sort),
         conc(Small_sort,[H|Big_sort],L).
 
 div(_,[],[],[]).
 div(H,[X|T],[X|Small],Big):-
                           H < X,!,  
                           div(H,T,Small,Big).
 div(H,[X|T],Small,[X|Big]):-
                           div(H,T,Small,Big).
 
 conc([],L,L).
 conc([H|T],L2,[H|L]):-
                     conc(T,L2,L).      
 
 goal
  supersort([4,7,3,9],L),write(L),nl

И необходимо разработать меню.
Вот кусочек меню, но я не могу разобраться что к чему:

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
CLAUSES
menu:-
makewindow(1,2,7,"Сортировка",0,0,25,80),
clearwindow, /* очистка текущего окна */
write("1 - Сортировка перестановкой"),nl,
write("2 - Сортировка вставкой"),nl,
write("3 - Быстрая сортировка"),nl,
write("0 - Выйти"),nl,
readchar(C), /* читаем символ с клавиатуры */
m(C). /* вызываем выполнение соответствующего пункта
меню */
m('2'):-
clearwindow,
write("Сортировка вставкой"),nl,
readchar(C),
sbor(C),
readchar(_),
menu.
m('3'):- /*быстрая сортировка*/
clearwindow,
sb,
readchar(_),
menu.
m('1'):-
clearwindow,
write_file_main(),
readchar(_),
menu.
m('0'):-
clearwindow,
removewindow.

Менюшку взяла с другой программы и немного переделала, но не до конца..
Надо создать такое меню:
1. Сортировка перестановкой
2. Сортировка вставкой
3. Сортировка быстрая
И по нажатию на выбранный пункт вызывается один из выбранных методов сортировки.

ПОМОГИТЕ КОМУ НЕ СЛОЖНО!!!
ЗАРАНЕЕ СПАСИБО!!!

Добавлено через 1 час 9 минут
Вот что у меня получилось, но выдает какую то ошибку

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
domains
list=integer*
predicates
puz,perest,insert_sort,supersort(list,list)
insert (integer, list, list)
asc_order (integer, integer)
div(integer,list,list,list)
conc(list,list,list)
command(integer)
read_command
main
 
clauses
  puz(L1,L2):-perest(L1,L3),!,puz(L3,L2).
      puz(L1,L1).
      perest([X,Y|T],[Y,X|T]):-X<Y.
      perest([Z|T],[Z|T1]):-perest(T,T1).
      
           insert_sort ( [], []).
      insert_sort ([H1|T1], L2):- insert_sort (T1, T2),
                                         insert(H1, T2, L2).
      insert (X, [H1| T1], [H1| T2]) :- asc_order (X, H1), !,
                                      insert (X, T1, T2).
      insert (X, L1, [X| L1]).
      asc_order (X, Y):- X<Y.
      
supersort([],[]).
 supersort([H|T],L):-
         div(H,T,Small,Big),
         supersort(Small,Small_sort),
         supersort(Big,Big_sort),
         conc(Small_sort,[H|Big_sort],L).
 
 div(_,[],[],[]).
 div(H,[X|T],[X|Small],Big):-
                           H < X,!,  
                           div(H,T,Small,Big).
 div(H,[X|T],Small,[X|Big]):-
                           div(H,T,Small,Big).
 
 conc([],L,L).
 conc([H|T],L2,[H|L]):-
                     conc(T,L2,L).        
command(1):-puz([4, 7, 3, 9], L),write(L),nl.,nl,fail.
command(2):-insert_sort ([4, 7, 3, 9], L),WRITe(L),NL,fail.
command(3):-supersort([4,7,3,9],L),write(L),nl,nl,fail.
command(1):-readchar(_),main.
command(2):-readchar(_),main.
command(3):-readchar(_),main.
command(4).
 
read_command:-write(">"),readint(C),command(C).
 
main:-
write(" Sortirovka dannih"),nl,
write("1 - perestanovkoj"),nl,
write("2 - vstavkoj"),nl,
write("3 - bistraja"),nl,
write("4 - Vihod"),nl,
read_command.
 
 
Goal
main.

ПОМОГИТЕ!!! УЖЕ НЕЗНАЮ ЧТО ДЕЛАТЬ!!!

@Грымзик · 10.11.2011, 20:59

А в чем проблема то? У Вас почти полностью рабочая программа, только какие-то описки, как будто нету компилятора и проверить нельзя. Еще сортировка была по-убыванию, я исправила на по-возрастанию.

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
domains
list=integer*
predicates
puz(list,list)
perest(list,list)
insert_sort(list,list)
supersort(list,list)
insert (integer, list, list)
div(integer,list,list,list)
conc(list,list,list)
command(integer)
read_command
main
 
clauses
puz(L1,L2):-perest(L1,L3),!,puz(L3,L2).
puz(L1,L1).
perest([X,Y|T],[Y,X|T]):-X>Y.
perest([Z|T],[Z|T1]):-perest(T,T1).
 
insert_sort ( [], []).
insert_sort ([H1|T1], L2):- insert_sort (T1, T2),
insert(H1, T2, L2).
insert (X, [H1| T1], [H1| T2]) :- X>H1, !,
insert (X, T1, T2).
insert (X, L1, [X| L1]).
 
supersort([],[]).
supersort([H|T],L):-
div(H,T,Small,Big),
supersort(Small,Small_sort),
supersort(Big,Big_sort),
conc(Small_sort,[H|Big_sort],L).
 
div(_,[],[],[]).
div(H,[X|T],[X|Small],Big):-
H > X,!,
div(H,T,Small,Big).
div(H,[X|T],Small,[X|Big]):-
div(H,T,Small,Big).
 
conc([],L,L).
conc([H|T],L2,[H|L]):-
conc(T,L2,L).
command(1):-puz([4, 7, 3, 9], L),write(L),nl,nl,fail.
command(2):-insert_sort ([4, 7, 3, 9], L),write(L),nl,nl,fail.
command(3):-supersort([4,7,3,9],L),write(L),nl,nl,fail.
command(1):-readchar(_),main.
command(2):-readchar(_),main.
command(3):-readchar(_),main.
command(4).
 
read_command:-write(">"),readint(C),command(C).
 
main:-
write(" Sortirovka dannih"),nl,
write("1 - perestanovkoj"),nl,
write("2 - vstavkoj"),nl,
write("3 - bistraja"),nl,
write("4 - Vihod"),nl,
read_command.
 
 
Goal
main.

@good1984 · 11.11.2011, 00:43 **[ТС]**

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

@Грымзик · 11.11.2011, 01:16

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
domains
list=integer*
predicates
puz(list,list)
nondeterm perest(list,list)
insert_sort(list,list)
supersort(list,list)
insert (integer, list, list)
div(integer,list,list,list)
conc(list,list,list)
command(list,integer)
read_command(list)
main
readlist(list)
 
clauses
puz(L1,L2):-perest(L1,L3),!,puz(L3,L2).
puz(L1,L1).
perest([X,Y|T],[Y,X|T]):-X>Y.
perest([Z|T],[Z|T1]):-perest(T,T1).
 
insert_sort ( [], []).
insert_sort ([H1|T1], L2):- insert_sort (T1, T2),
insert(H1, T2, L2).
insert (X, [H1| T1], [H1| T2]) :- X>H1, !,
insert (X, T1, T2).
insert (X, L1, [X| L1]).
 
supersort([],[]).
supersort([H|T],L):-
div(H,T,Small,Big),
supersort(Small,Small_sort),
supersort(Big,Big_sort),
conc(Small_sort,[H|Big_sort],L).
 
div(_,[],[],[]).
div(H,[X|T],[X|Small],Big):-
H > X,!,
div(H,T,Small,Big).
div(H,[X|T],Small,[X|Big]):-
div(H,T,Small,Big).
 
conc([],L,L).
conc([H|T],L2,[H|L]):-
conc(T,L2,L).
command(List,1):-puz(List, L),write(L),nl,nl,fail.
command(List,2):-insert_sort (List, L),write(L),nl,nl,fail.
command(List,3):-supersort(List,L),write(L),nl,nl,fail.
command(_,1):-readchar(_),main.
command(_,2):-readchar(_),main.
command(_,3):-readchar(_),main.
command(_,4).
 
read_command(L):-write(">"),readint(C),command(L,C).
 
main:-
write("Vvedite spisok:"),nl,
readlist(L),
write(" Sortirovka dannih"),nl,
write("1 - perestanovkoj"),nl,
write("2 - vstavkoj"),nl,
write("3 - bistraja"),nl,
write("4 - Vihod"),nl,
read_command(L).
 
readlist([H|Tail]):-readint(H),!,readlist(Tail).
readlist([]).
 
 
Goal
main.

@good1984 · 11.11.2011, 01:22 **[ТС]**

числа то вводятся, но почему то когда я выбираю номер из пункта, то вместо отсортированного списка у меня появляются пустые квадратные скобки ??? почему так???

@Грымзик · 11.11.2011, 01:41

Наверно Вы все числа в одну строку вводите. Вводите enter после каждого числа и тогда все будет правильно работать.

@good1984 · 11.11.2011, 01:48 **[ТС]**

да да да))) именно так и делала))) все работает...спасибо вам большое))) вы мне очень помогли)))

@good1984 · 13.11.2011, 20:58 **[ТС]**

может кто поможет структурную схему программы сделать...или хотябы объяснить, как делается....

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@good1984 0 / 0 / 0 Регистрация: 09.11.2011 Сообщений: 7
	11.11.2011, 00:43 [ТС]
	А не могли бы мне подсказать, ради интереса, как сделать чтобы в окне диалога ввести числа и по нажатию на какой либо из пунктов выполнялась сортировка. 0

@good1984 0 / 0 / 0 Регистрация: 09.11.2011 Сообщений: 7
	11.11.2011, 01:22 [ТС]
	числа то вводятся, но почему то когда я выбираю номер из пункта, то вместо отсортированного списка у меня появляются пустые квадратные скобки ??? почему так??? 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	11.11.2011, 01:41
	Наверно Вы все числа в одну строку вводите. Вводите enter после каждого числа и тогда все будет правильно работать. 0

@good1984 0 / 0 / 0 Регистрация: 09.11.2011 Сообщений: 7
	11.11.2011, 01:48 [ТС]
	да да да))) именно так и делала))) все работает...спасибо вам большое))) вы мне очень помогли))) 0

@good1984 0 / 0 / 0 Регистрация: 09.11.2011 Сообщений: 7
	13.11.2011, 20:58 [ТС]
	может кто поможет структурную схему программы сделать...или хотябы объяснить, как делается.... 0