Другие языки программирования и технологии
Программирование на Турбо Паскаль.
Помогите пожалуйста составить меню из четырех пунктов (12 3 4), где бы выбор осуществлялся с помощью клавиш-стрелок(перемещение указателя по пунктам меню) и клавиши Enter(выбор действия).
uses crt;
const Kol=5;
type mas = array [1..Kol] of string[20];
const stor: mas = (' 1 ',' 2 ',' 3 ',' 4 ','Vyxod');
var i,k : byte;
procedure PrintMenu(var k: byte);
var kod: char;
begin
clrscr;
k:=1;
gotoxy(4,1);
K :=1;
repeat
for i:=1 to Kol do
begin
if I=K then
begin
textbackground(3);
textcolor(12);
end
else
begin
textbackground(0);
textcolor(15)
end;
gotoxy(5*(i-1)+1,1);
write(stor[ i ]);
end;
repeat
kod:=readkey;
until Kod in [#13, #75, #77];
case Kod of
#75: begin K := K-1; if K = 0 then K := Kol;
end;
#77: begin K :=K+1; if K =10 then K := 1; end;
end;
until Kod = #13 ;
end;
begin
repeat
textbackground(0);
textcolor(15);
PrintMenu(K);
clrscr;
textbackground(0);
textcolor(15);
if k<5 then
begin
write('vybran variant ',k); readln;
end
else exit;
case K of
1: ;
2: ;
end;
until k = 5;
end.
const Kol=5;
type mas = array [1..Kol] of string[20];
const stor: mas = (' 1 ',' 2 ',' 3 ',' 4 ','Vyxod');
var i,k : byte;
procedure PrintMenu(var k: byte);
var kod: char;
begin
clrscr;
k:=1;
gotoxy(4,1);
K :=1;
repeat
for i:=1 to Kol do
begin
if I=K then
begin
textbackground(3);
textcolor(12);
end
else
begin
textbackground(0);
textcolor(15)
end;
gotoxy(5*(i-1)+1,1);
write(stor[ i ]);
end;
repeat
kod:=readkey;
until Kod in [#13, #75, #77];
case Kod of
#75: begin K := K-1; if K = 0 then K := Kol;
end;
#77: begin K :=K+1; if K =10 then K := 1; end;
end;
until Kod = #13 ;
end;
begin
repeat
textbackground(0);
textcolor(15);
PrintMenu(K);
clrscr;
textbackground(0);
textcolor(15);
if k<5 then
begin
write('vybran variant ',k); readln;
end
else exit;
case K of
1: ;
2: ;
end;
until k = 5;
end.
Могу сказать только структуру как это делать, однажды доводилось писать такую, но увы, винт слетел, и не восстановить уже её...
Написать не могу, времени и так нет, да и сессия.. .
Да, отношение к графики это не имеет дела, я про метки, которые вы оставили.
Сообщите мне на E-Mail ЧТО именно вам непонятно, если желаете, то можете присылать целый список непонятных вопросов, попробую по дороге в универ, на буке накидать ответы на все вопросы.
Написать не могу, времени и так нет, да и сессия.. .
Да, отношение к графики это не имеет дела, я про метки, которые вы оставили.
Сообщите мне на E-Mail ЧТО именно вам непонятно, если желаете, то можете присылать целый список непонятных вопросов, попробую по дороге в универ, на буке накидать ответы на все вопросы.
Dastan Tagaev
посмотри, что у меня получилось
Вот такие вот у нас программисты в институтах учатся...
Дима Янюк
Огромное спасибо! Самое место вспомнить анекдоты про блондинок и поржать, какая же тупая есть Я! Самое оно!
Похожие вопросы
- Какую программу (Паскаль) использовать в учебных целях, чтоб была овместима с файлами от "Турбо Паскаль"? В которых
- задача по программированию, ТУРБО ПАСКАЛЬ.
- Изучал программирование. Вот что интересно. Во всех книгах, начиная с Турбо Паскаля, кончая С++, везде описываются
- вопрос по турбо паскалю
- Помогите написать 2 програмки на Турбо Паскале.
- Я в турбо паскале запис-ю текст порусски в текстовик, открываю его вне ТП, а там фигня какая-то. Что мне делать?
- Помогите решить, пожалуста (ТУрбо Паскаль)
- Турбо Паскаль
- Помогите решить задачу на Турбо паскале
- Игра в турбо паскале Киньте программу на любую игру в турбо паскале