Меню

[p4serhiy]

Нужно написать меню через стрелки вверх низ.
Меню формата:

PHP код:

1.Vuvestu informaciy pro cex na ekran  
 
 2.Vuvestu vsy info                    
 
 3.Dodatu zapus                         
 
 4.Dodatu informaciy v faail            
 
 5.Vudalutu robochogo     
 
 6.EXIT 


Каждому пункту меню соответствует процедура кроме 6 пункта.
Буду очень признателен кто поможет...


ЕСЛИ НАДО КИНУ ТЕКСТ ПРОГРАММЫ

[Utkin]

Язык программирования?

[p4serhiy]

Паскаль......

[Stilet]

http://www.programmersforum.ru/showthread.php?t=14050

[p4serhiy]

Странный код у вас там...

[Serge_Bliznykov]

а так?
http://www.programmersforum.ru/showp...99&postcount=8

[p4serhiy]

я так уже делал учитель завернул)

[Serge_Bliznykov]

я так уже делал учитель завернул)

Ого! Однако!
И как же мотивировал?!!!

Код очень простой и 100% рабочий!
Может, Вам надо что-то другое? Или Вы не смогли объяснить этот код? Или что?!...

[p4serhiy]

Да он сказал этот код не был в компиляторе он просто на комп ваше не смотрит ток в тетрадке...



Я уже сам сделал ток баг со стрелками..
Исправьте пожалуйста..

PHP код:

  uses crt;
const kil=6;


var i,k : byte;    menu: array [1..kil] of string[50];
procedure PrintMenu(var k: byte);
var kod: char;
begin
  clrscr;
  k:=1;
  repeat
    for i:=1 to kil do
      begin
        if I=K then
          begin
            textbackground(3);
            textcolor(12);
          end
        else
          begin
            textbackground(0);
            textcolor(15);
          end;
        gotoxy(1,i);
        writeln(menu[i]);
    end;
    repeat
      kod:=readkey;
    until Kod in [#13, #72, #80];
    case Kod of
    #80: begin
           if K = 1 then
             K := kil
           else
             k:=k-1;
         end;
    #72: begin
           if K =k then
             K := 1
           else
             K:=K+1;
         end;
    end;
  until Kod = #13 ;
end;
procedure lala;
begin
  clrscr;write('fakns');
  readln;
end;
procedure byb;
begin
  write('mams');
  readln;
end;


begin
 repeat
   textbackground(0);
   textcolor(15);
menu[1]:=(#201'  1.Vuvestu informaciy pro cex na ekran  '#187);
writeln;
menu[2]:=(#199'  2.Vuvestu vsy info                     '#182);
writeln;
menu[3]:=(#199'  3.Dodatu zapus                         '#182);
writeln;
menu[4]:=(#199'  4.Dodatu informaciy v faail            '#182);
writeln;
menu[5]:=(#199'  5.Vudalutu robochogo                   '#182);
writeln;
menu[6]:=(#200'  6.EXIT                                 '#188);
TextColor (white);
   PrintMenu(K);
   clrscr;
   textbackground(0);
   textcolor(15);
   case K of
     1: lala;
     2: byb;
   end;
 until k = 6;
end. 


[p4serhiy]

Баг сам исправил..
Коментните плиз