как сделать скроулинг меню, (скроулинг-это прокрутка)! вот код программы )

@Shelovek · Регистрация: 25.05.2010

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

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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
uses
    crt;
type
    mas=array[1..4] of string[15];
const
    a:mas=('sozdanie_f ','udalenie_f ','obrabotka_f','exit       ');
var
    f:text;
    x,y,i:integer;
    c:char;
    name,s:string;
procedure old_fon(y:integer);
begin
    textbackground(green);
    gotoxy(5,y);
    writeln(a[y]);
end;
procedure new_fon(y:integer);
begin
    textbackground(red);
    gotoxy(5,y);
    writeln(a[y]);
end;
procedure menu;
begin
            clrscr;
            for y:= 1 to 4 do
                begin
                    gotoxy(5,y);
                    writeln(a[y]);
                end
end;
procedure up;
begin
    old_fon(y);
    if y=1 then
        y:=4
    else
        y:=y-1;
    new_fon(y)
end;
procedure down;
begin
    old_fon(y);
    if y=4 then
        y:=1
    else
        y:=y+1;
    new_fon(y);
end;
procedure vibor;
begin
    c:=readkey;
    while c<>#13 do
        begin
            if c=#0 then
                begin
                    c:=readkey;
                    case c of
                        #80:down;
                        #72:up
                    end
                end
          else
                c:=readkey;
        end
end;
procedure vibor_znash;
var
    nah:Boolean;
begin
    case y of
        1: begin
                clrscr;
                writeln('vi vibrali sozdanie faila!');
                writeln('wvedite im9 faila');
                readln(name);
                assign(f,name);
                rewrite(f);
                writeln('zapolnite fail!!! ne vvodite v stroku bolee 255 simvolov!');
                readln(s);
                write(f,s);
                writeln('fail zapisan v kataloge BIn pod imenem ',name);
                close(f);
            end;
        2: begin
                clrscr;
                assign(f,name);
                writeln(' vi vibirali udalenie faila pod imenem ',name);
                reset(f);
                nah:=true;
                if ioresult<>0 then
                    begin
                        writeln('faila net na diske! ');
                        nah:=false;
                    end
                else
                    begin
                        writeln('vi deystvitelno hotite udalit fail ',name,'?');
                        writeln('y/n ?');
                        read(c);
                        if c='y' then
                            begin
                                writeln('wi toshno hotite udalit ? y/n??');
                                readln(c);
                                if c='y' then
                                    erase(f)
                                else
                                    if c='n' then
                                        writeln('fail pod imenem',name,' ostals9 v shivih')
                            end
                        else
                            writeln('vi sdelali pravilnoe reshenie ');
 
                    end
            end;
      3: begin
                clrscr;
                writeln('wi wibrali obrabotku faila ');
                writeln('wvedite im9 faila ');
                readln(name);
                assign(f,name);
                reset(f);
 
                if ioresult<>0 then
                    begin
                        writeln('faila pod imenem ',name,'ne sushestvuet ');
                        close(f);
                    end
                else
                     begin
                     reset(f);
                     while not eof(f) do
                        begin
                            append(f);
                            writeln('wvedite vashi dopolnenie ');
                            readln(s);
                            write(f,s)
                        end;
                        writeln('writeln dopolnen')
                     end;
                close(f);
          end;
      4: exit;
      end
end;
begin
    clrscr;
    menu;
    y:=1;
    gotoxy(5,y);
    vibor;
    vibor_znash;
readkey
end.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .