Не переключаются пункты меню

@Artishok · Регистрация: 27.12.2009

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

Pascal
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
program Artemii92;
 
uses
   crt;
const
   k=5;
   m:array [1..k] of string = ('О прорамме','Тренировка','Экзамен','Теория','Выход');
var
   
   ch:char;
   n:byte;
procedure menu (v:byte);
var
 i:integer;
begin
   for i:=1 to k do
   begin
      textcolor (yellow);
      gotoxy(50,20+i);
      if i=v then
      TextBackground (white)
      else
      TextBackground (blue);
      write(m[i]);
    end;
   n:=v;
   gotoxy (90,90);
   write ('1992');
end;
procedure about;
begin
   TextBackground (blue);
   clrscr;
   textcolor (yellow);
   readkey;
end;
procedure Train;
begin
   TextBackground (blue);
   clrscr;
   textcolor (yellow);
   readkey;
end;
procedure Exam;
begin
   TextBackground (blue);
   clrscr;
   textcolor (yellow);
   readkey;
end;
procedure Theory;
begin
   textbackground(blue);
   clrscr;
   textcolor(yellow);
   readkey;
end;
procedure Exitprogram;
begin
  readkey;
end;
 
begin
   n:=1;
   repeat
   TextBackground (blue);
   clrscr;
   menu (n);
   ch:=readkey;
   if ch =#0 then
   ch:=readkey;
   case ch of
      #27:exit;
      #80:
      begin
         if n<5 then
         menu (n+1)
         else
         menu (1)
      end;
      #72:
      begin
         if n>1 then
         menu (n-1)
         else
         menu (5)
      end;
      #13:
      begin
         case n of
            1:about;
            2:train;
            3:exam;
            4:theory;
            5:exit;
         end
      end
   end;
   until false;
end.

проблема вот в чём.не переключается.
я интерфейс откуда-то брал(не помню).немного переделал.(он там был с window и т.д.и в строчку).
тогда работал - щас не пашет.
и второе:подкорректируется расположение меню в центре консоли,а надпись 1992 в нижнем правом углу плз.а то у меня чёто-то с gotoxy тупняк

..хм.

@AHTOCuK · 03.03.2010, 03:04

Pascal
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
program Artemii92;
 
uses
   crt;
const
   k=5;
   m:array [1..k] of string = ('О прорамме','Тренировка','Экзамен','Теория','Выход');
   g:string = ('1992');
var
 
   ch:char;
   n:byte;
procedure menu (v:byte);
var
 i:integer;
begin
   for i:=1 to k do
   begin
      textcolor (yellow);
      gotoxy(30,10+i);
      if i=v then
      TextBackground (white)
      else
      TextBackground (blue);
      write(m[i]);
    end;
   n:=v;
   gotoxy (75,24);
   write (g);
end;
procedure about;
begin
   TextBackground (blue);
   clrscr;
   textcolor (yellow);
   readkey;
end;
procedure Train;
begin
   TextBackground (blue);
   clrscr;
   textcolor (yellow);
   readkey;
end;
procedure Exam;
begin
   TextBackground (blue);
   clrscr;
   textcolor (yellow);
   readkey;
end;
procedure Theory;
begin
   textbackground(blue);
   clrscr;
   textcolor(yellow);
   readkey;
end;
procedure Exitprogram;
begin
  readkey;
end;
 
begin
   n:=1;
   repeat
   TextBackground (blue);
   clrscr;
   menu (n);
   ch:=readkey;
   if ch =#0 then
   ch:=readkey;
   case ch of
      #27:exit;
      #80:
      begin
         if n<5 then
         menu (n+1)
         else
         menu (1)
      end;
      #72:
      begin
         if n>1 then
         menu (n-1)
         else
         menu (5)
      end;
      #13:
      begin
         case n of
            1:about;
            2:train;
            3:exam;
            4:theory;
            5:exit;
         end
      end
   end;
   until false;
end.

Вот так глянь

@Artishok · 03.03.2010, 17:12 **[ТС]**

хм...
на Турбо Паскале пашет.....А почему на pascalabc.net нет?

все.работает.

Добавлено через 13 минут
когда курсор на выход переходит реагирует и надпись 1992

Добавлено через 1 час 5 минут
и как можно менюшку в рамкой выделить?

@Artishok · 06.03.2010, 01:00 **[ТС]**

Pascal
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
program Artemii92;
 
uses
  crt;
 
const
  k = 5;
  m: array [1..k] of string = ('О программе', 'Тренировка', 'Экзамен', 'Теория', 'Выход');
 
var
  
  ch: char;
  n: byte;
 
procedure menu(v: byte);
var
  i: integer;
begin
  for i := 1 to k do
  begin
    textcolor(yellow);
    gotoxy(33, 10 + i);
    if i = v then
      TextBackground(red)
    else
      TextBackground(blue);
    write(m[i]);
  end;
  n := v;
  gotoxy(34, 8);
  write('Wellcome!');
  gotoxy(31, 10);
  write('---------------');
  gotoxy(31, 16);
  write('---------------');
  gotoxy(1, 23);
  write('--------------------------------------------------------------------------------');
  gotoxy(64, 24);
  write('Artemii92engine');
end;
 
procedure about;
begin
  TextBackground(blue);
  clrscr;
  textcolor(yellow);
  readkey;
end;
 
procedure Train;
begin
  TextBackground(blue);
  clrscr;
  textcolor(yellow);
  readkey;
end;
 
procedure Exam;
begin
  TextBackground(blue);
  clrscr;
  textcolor(yellow);
  readkey;
end;
 
procedure Theory;
begin
  textbackground(blue);
  clrscr;
  textcolor(yellow);
  readkey;
end;
 
procedure Exitprogram;
begin
  textbackground(blue);
  clrscr;
  textcolor(yellow);
  readkey;
end;
 
begin
  TextBackground(blue);
  clrscr;
  n := 1;
  repeat
    menu(n);
    ch := readkey;
    if ch = #0 then
      ch := readkey;
    case ch of
      #27: exit;
      #80:
        begin
          if n < 5 then
            menu(n + 1)
          else
            menu(1)
        end;
      #72:
        begin
          if n > 1 then
            menu(n - 1)
          else
            menu(5)
        end;
      #13:
        begin
          case n of
            1: about;
            2: train;
            3: exam;
            4: theory;
            5: exit;
          end
        end
    end;
  until false;
end.

что-то не так с последней кнопкой.
кто нить знает почему на pascal abc.net не пашет,а на pascal abc работает?

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	03.03.2010, 17:12 [ТС]
	хм... на Турбо Паскале пашет.....А почему на pascalabc.net нет? все.работает. Добавлено через 13 минут когда курсор на выход переходит реагирует и надпись 1992 Добавлено через 1 час 5 минут и как можно менюшку в рамкой выделить? 0

Не переключаются пункты меню

Решение