как создать новое окно

@generation472 · Регистрация: 04.11.2011

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

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

P.S. в первом ответе мне выводится несколько сообщений
часть кода

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
run:-
  show_menu,nl,write("!!!!!"),readchar(_),exit.
  
  repeat.
  
  repeat:-
      repeat.
      
      
   show_menu:-
      repeat,
      makewindow(1,7,7,"Menu",4,10,16,36),nl,
      write(" Viberite vopros"),nl,
      write(" 0 EXIT"),nl,nl,
      write(" 1 vopros"),nl,
      write(" 2 vopros"),nl,
      write(" 3 vopros"),nl,
      write(" 4 vopros"),nl,
      write(" Viberite nomer:(1-4)"), nl,
      readint(X),
      X<5,
      process(X),
      X=0,!.
      
      
          
  
process(0):-
  nl,write("EXIT"),nl.
 
process(1):-
   makewindow(2,7,7,"Kto izdaeot mara",12,36,10,36),
   book(X,"Mara"),
   write(X),nl,
   readchar(_),
   removewindow.

весь код

Кликните здесь для просмотра всего текста

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
72
73
74
75
76
77
78
79
80
81
82
83
84
PREDICATES
sale(symbol,symbol)
book(symbol,symbol)
open(symbol)
close(symbol)
process(integer)
repeat
show_menu
run
 
 
GOAL 
run.
 
 
 
CLAUSES
sale("Luceafarul","Nemira").
sale("Luceafarul","Licur").
sale("Fat-Frumos","Amprenta").
sale("Fat-Frumos","Teora").
sale("Prometeu","Nemira").
sale("Prometeu","Prut").
sale("XT","Licur").
sale("XT","Teora").
sale("XT","Amprenta").
sale("XT","Nemira").
open("Luceafarul").
open("Fat-Frumos").
open("XT").
close("Prometeu").
 
book("Nemira","Mara").
book("Nemira","Frazii Jderi").
book("Amprenta","Fizica").
book("Amprenta","Algebra").
book("Amprenta","Chimie").
book("Teora","Fizica").
book("Teora","Algebra").
book("Teora","Chimie").
book("Teora","Mara").
book("Teora","Frazii Jderi").
book("Teora","Informatica").
book("Licur","Mara").
book("Licur","Povesti").
book("Prut","Frazii Jderi").
book("Prut","Algebra").
 
run:-
  show_menu,nl,write("!!!!!"),readchar(_),exit.
  
  repeat.
  
  repeat:-
      repeat.
      
      
   show_menu:-
      repeat,
      makewindow(1,7,7,"Menu",4,10,16,36),nl,
      write(" Viberite vopros"),nl,
      write(" 0 EXIT"),nl,nl,
      write(" 1 vopros"),nl,
      write(" 2 vopros"),nl,
      write(" 3 vopros"),nl,
      write(" 4 vopros"),nl,
      write(" Viberite nomer:(1-4)"), nl,
      readint(X),
      X<5,
      process(X),
      X=0,!.
      
      
          
  
process(0):-
  nl,write("EXIT"),nl.
 
process(1):-
   makewindow(2,7,7,"Kto izdaeot mara",12,36,10,36),
   book(X,"Mara"),
   write(X),nl,
   readchar(_),
   removewindow.

Новые блоги и статьи Все статьи Все блоги /
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK сделайте это, JDK, то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Перейдите по ссылке:. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .