Меню

[Dem6]

Вот я написал программу, и мне только осталось доделать меню.
Буду очень благодарен, если предоставите примет меню.

[tsergey]

Где и на чем?Я имею виду какая среда разработки.

[DM_bite]

Где и на чем?Я имею виду какая среда разработки.

Раз человек пишет в раздел "Паскаль", то вполне логично предположить, что язык - паскаль.

[Stilet]

Вот типичное:

uses crt;
var s:string;
function menu(s:string;x,y:integer):integer;
var c:char;res,cnt,ay,w,i:integer;e,k:string;
begin k:=s; gotoxy(x,y);ay:=y;res:=1;c:=' ';cnt:=1;
 repeat
  w:=pos(' ',k)   ;
   e:=copy(k,1,w);
   delete(k,1,w);
   gotoxy(x,ay);

   if res=cnt then begin
    textcolor(white);
    textbackground(red);
   end else begin
    textcolor(white);
    textbackground(blue);
   end;
   write(e);
   if w=0 then
    begin k:=s;ay:=y;cnt:=1; end
   else begin
    ay:=ay+1;inc(cnt);
   end;
   if keypressed then  c:=readkey;
   if c=#80 then begin inc(res);c:=' ';end;
   if c=#72 then begin dec(res);c:=' ';end;
{   gotoxy(1,1);write(res,' ',ord(c));}
 until c=#13;
 menu:=res;
end;

begin
 clrscr;
 {Пункты меню разделенные пробелом}
 s:='first second third fourth 0';
 {menu вернет по Энтеру номер выбранного пункта}
 writeln(menu(s,10,10));

end.

Можно Мышку еще прикрутить...