Помощь - Поиск - Пользователи - Календарь
Полная версия: как сделать в пунктах подпункты?
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
INZA
как сделать в пунктах подпункты?
 Program L3;
Uses crt;
Var a1,b1,c1,d1,e1,f1,x :integer;
a,b,c:boolean;
pr:char;
i,Old_Color :byte;
ch :char;
Begin
Old_Color:=Textattr;
Repeat
window(1,1,80,25);
textattr:=black shl 4+cyan;
clrscr;
gotoxy(5,1);
write(' JIa6apaTopHa9I #3');
window(20,8,60,18);
textattr:=black shl 4+cyan;
clrscr;
gotoxy(11,4);
write(' 1-zadanie 1');
gotoxy(11,5);
write(' 2-zadanie 2');
gotoxy(11,6);
write(' 3-o proge');
gotoxy(11,8);
write(' Esc-exit ');
textcolor(cyan); gotoxy(12,2);write(' Baw BbI6op? ');
ch:=readkey;
if ch<>#0 then
begin
window(5,3,75,18);
textattr:=black shl 4+Cyan;
clrscr;
case ch of
#49:Begin
TextAttr:=Black shl 4+Cyan;
ClrScr;

readln(pr);
if pr='1' then
begin

end;
if pr= '2' then
begin

end;

Readkey;
End;
#50:Begin
TextAttr:=black shl 4+Yellow;

Readkey;
End;
#51:Begin

Readkey;
End;
#27:exit;
End;
end;
until(ch=#27);
window(1,1,80,25);
textattr:=Old_Color;
clrscr;
END.

Rian
если проще думаю хватит объявить пункты двумерным массивом

pars:array [0..2, 0..5] of record cmd:integer; text:string end;

и в цикле сначала вывести, а потом проверить cmd
INZA
Цитата(Rian @ 31.10.2011 15:27) *

если проще думаю хватит объявить пункты двумерным массивом

pars:array [0..2, 0..5] of record cmd:integer; text:string end;

и в цикле сначала вывести, а потом проверить cmd

а case в case фигня получиться ?
Гость
Цитата(INZA @ 31.10.2011 17:47) *

а case в case фигня получиться ?


смотря что нужно... вход в подпункты будет пошаговым? 1.1.3.5 ? или по абсолютной нумерации?
1
-2
-3
-4

5
-6
-7
--8
--9
INZA
Цитата(Гость @ 31.10.2011 18:52) *

смотря что нужно... вход в подпункты будет пошаговым? 1.1.3.5 ? или по абсолютной нумерации?
1
-2
-3
-4

5
-6
-7
--8
--9

нужно
1-задание 1 (при открытии )
1-1подпункт
2-2подпункт
и т.д.
2-задание 2 (при открытии )
1-1подпункт
и т.д.
Rian
ну тогда readkey записывае в cmd1, cmd2
и во вложеном case используй ее

только для вывода на экран все равно будет лучше многомерный массив... ну мне так кажется и для проверок
INZA
Цитата(Rian @ 31.10.2011 20:27) *

ну тогда readkey записывае в cmd1, cmd2
и во вложеном case используй ее

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

ну попытаюсь сделать
IUnknown
Пишется простейшая функция, которая, собственно, отображает менюшку, и делается так:

Меню любой степени вложенности (Показать/Скрыть)
(не надо никаких двумерных массивов: в одном подменю может быть 9 пунктов, в другом - 2, что, их все под одну гребенку, и всем место под 9 элементов выделять? "Это не наш метод" (С))
Rian
Цитата(IUnknown @ 31.10.2011 21:59) *

(не надо никаких двумерных массивов: в одном подменю может быть 9 пунктов, в другом - 2, что, их все под одну гребенку, и всем место под 9 элементов выделять? "Это не наш метод" (С))

очень привык к динамическим smile.gif
INZA
Цитата(IUnknown @ 31.10.2011 23:59) *

Пишется простейшая функция, которая, собственно, отображает менюшку, и делается так:

Меню любой степени вложенности (Показать/Скрыть)
(не надо никаких двумерных массивов: в одном подменю может быть 9 пунктов, в другом - 2, что, их все под одну гребенку, и всем место под 9 элементов выделять? "Это не наш метод" (С))

спасибо
INZA
Цитата(IUnknown @ 31.10.2011 23:59) *

Меню любой степени вложенности (Показать/Скрыть)


error 67:string expression expected.
IUnknown
Какой компилятор?
INZA
Цитата(IUnknown @ 26.11.2011 18:55) *

Какой компилятор?

Free Pascal
IUnknown
Не знаю, у меня, FPC нормально компилирует этот код (причем в любом режиме). А вот Turbo Pascal - отказывается. Для совместимости с TP можно заменить Length на High:

function menu(TA : byte; const items : array of string) : integer;
var
i : integer;
ch : char;
begin
TextAttr := TA;
clrscr;
for i := 0 to High(items) do
begin
gotoxy(11, 4 + i);
write(items[ i ]);
end;
gotoxy(12, 2);
write(' Your choice : ');
repeat
ch := readkey;
until (Ord(ch) - Ord('0')) in [1 .. High(items) + 1];
menu := Ord(ch) - Ord('0');
end;
INZA
Цитата(IUnknown @ 26.11.2011 19:05) *

Не знаю, у меня, FPC нормально компилирует этот код (причем в любом режиме). А вот Turbo Pascal - отказывается. Для совместимости с TP можно заменить Length на High:

function menu(TA : byte; const items : array of string) : integer;
var
i : integer;
ch : char;
begin
TextAttr := TA;
clrscr;
for i := 0 to High(items) do
begin
gotoxy(11, 4 + i);
write(items[ i ]);
end;
gotoxy(12, 2);
write(' Your choice : ');
repeat
ch := readkey;
until (Ord(ch) - Ord('0')) in [1 .. High(items) + 1];
menu := Ord(ch) - Ord('0');
end;


а нет перепутал извините всё таки турбо
запустил на free всё пошло))) ещё раз спасибо
INZA
Цитата(IUnknown @ 26.11.2011 19:05) *

Не знаю, у меня, FPC нормально компилирует этот код (причем в любом режиме). А вот Turbo Pascal - отказывается. Для совместимости с TP можно заменить Length на High:

function menu(TA : byte; const items : array of string) : integer;
var
i : integer;
ch : char;
begin
TextAttr := TA;
clrscr;
for i := 0 to High(items) do
begin
gotoxy(11, 4 + i);
write(items[ i ]);
end;
gotoxy(12, 2);
write(' Your choice : ');
repeat
ch := readkey;
until (Ord(ch) - Ord('0')) in [1 .. High(items) + 1];
menu := Ord(ch) - Ord('0');
end;


почему то когда так сделал пропал пункт Exit,не скажете почему?
всё не надо я сделал
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.