Списки - часть 5

process(1,Sp,1):-make_list([]).

process(4,Sp,0):-attent_window,window(Sp,0).

process(4,Sp,1):-delete_list(Sp).

process(2,Sp,0):-attent_window,window(Sp,0).

process(2,Sp,1):-view_list(Sp).

process(3,Sp,0):-add_list(Sp).

process(3,Sp,1 ):-add_list(Sp).

process(5,Sp,0):-attent_window,window(Sp,0).

process(5,Sp,1):-insert_sort(Sp,Sp1),view_list(Sp1).

process(6,Sp, 1 ):-sound2, exit. process(6,Sp,0):-sound2, exit.

/*------------------------------------СОЗДАНИЕ СПИСКА---------------------------------*/

make_list(Sp):-makewindow(2,48,7," СОЗДАНИЕ СПИСКА",5,5,15,70),

gotowindow(2),cursor(3,8),

write("Количество элементов в списке - "),readint(N),

sound(8,2000),cursor(5,8),

write(" Введите элементы списка: "),Z=1,Sp=[],create(N,Sp,Z).

create(0,Sp,Z):-inversion(Sp,[]).create(N,Sp,Z):-

write(" # ",Z,"-"),readint(U),sound(8,3000),scroll(1,0),cursor(5,32),

N1 =N-1, Z1 =Z+1 ,create(N1 ,[U | Sp],Z1).

inversion([],Sp1 ):-window(Sp1,1).

inversion([H|T],Sp):-inversion(T,[H|Sp]).

323

/*---------------- ОКНО ПРЕДУПРЕЖДЕНИЯ ----------- */

attent_window:-akewindow(3, 64,7, "BHИMAHИE",10,25,5,30),gotowindow(3),nl,

write(" Ваш список пустой !"),sound(50,1 000), readchar(L).

/*-------------------------УДАЛЕНИЕ ---------------------*/

delete_list(Sp):-makewindow(8,48,7,"УДAЛEHИE",5,15,15, 45), gotowindow(8)l

write(""),nl,

write(" СПИСКА - 1 "),nl,

write(" ЭЛЕМЕНТА В СПИСКЕ - 2 "),nl, cursor(7,5),readint(N),delete(N, Sp).

delete(1, Sp):-makewindow(9, 64, 7,"", 10, 23, 5, 30), gotowindow(9),nl,

write("CПИCOK УДAЛEH!"), sound1, readchar(U),window([], 0).

delete(2,Sp):-makewindow(4, 48, 7, " УДАЛЕНИЕ ЭЛЕМЕНТА", 10, 15, 5,45),

gotowindow(4),nl,

write("Введите номер удаляемого элемента: "),readint(S),N=0,

split(S,N,Sp,Sp1,[H|T]),connect(Sp1,T,Sp3),view_list(Sp3).

split(S, N,[H|T],[H|L1],L2):-N1=N+1,N1

split(S,N, [H|T],L1,[H|L2]):-N1=N+1,split(S,N1,T,L1,L2),N1>=S.