Задачи на графику Опции

[Ozzя]

ерш твою медь!

Пишешь uses fmenu; и используешь проц-ру simplemenu

[Dezman]

Спокойно Я ж говорил, что в модулях и графике ниче не смыслю. Остальное знаю.

Добавлено через 11 мин.
Ладно, спасибо всем за помощь. Вторую задачу я осилил, а первая все равно не получается.

[Dezman]

Я скопировал это на одном форуме, меню сойдет, но как описать появление квадрата, круга и треугольника.
Наверное процедуру надо написать. Я пишу обычную про-ру, вставляю ее имя после case в самом низу программы, а она не пашет. Вместо начать и загрузить, я пишу квадрат...

uses crt;
type 
    menuitems=array [1..3] of string; 

const 
    mainmenu:menuitems = 
       ('   начать    ', 
        '   загрузить ', 
        '   Выход     '); 

Procedure menu(var m:menuitems; kol: byte; var num: byte); 

var i,y: byte; ch: char; 

Begin 
   window(25,8,65,20); 
   textbackground(0); 
   clrscr; 
   textcolor(12); 
       writeln('           +------+            ');  
       writeln('+----------! МЕНЮ !-----------+'); 
       writeln('!          +------+           !'); 
{     writeln('           ХННННННё            '); 
       writeln('ЙННННННННННµ Њ…Ќћ ЖННННННННННН»'); 
       writeln('є          ФННННННѕ           є'); }
   for i:=1 to kol do 
       writeln('!                             !'); 
{ for i:=1 to kol do 
       writeln('є                             є'); 
}

   window(25,10+kol+1,65,10+kol+1); 
         write('+-----------------------------+'); 
{       write('ИНННННННННННННННННННННННННННННј'); }

   window(26,10+2,54,10+kol); 
   textcolor(3); 
   for i:=2 to kol-1 do 
     writeln(m[i]); 
   textcolor(4);write(m[kol]); 

   window(26,10+1,54,10+1); 
   textcolor(15); 
   textbackground(9); 
   clrscr; 
   write(m[1]); 
   i:=1; 
   y:=11; 

   repeat 
      ch:=readkey; 
      case ch of 
       #80: begin 
              window(26,y,54,y);textcolor(3);textbackground(0);clrscr; 
              write(m[i]); 
              if i=kol then 
                 begin 
                   window(26,y,54,y);clrscr;textbackground(0);textcolor(4);write(m[kol]); 
                   i:=1;y:=11; 
                 end 
              else begin inc(i);inc(y);end; 
              window(26,y,54,y);textcolor(15);textbackground(9);clrscr;write(m[i]); 
             end; 
       #72: begin 
              window(26,y,54,y);textcolor(3);textbackground(0);clrscr;write(m[i]); 
              if i=1 then 
                 begin 
                   i:=kol;y:=10+kol; 
                 end 
              else begin i:=i-1;y:=y-1; 
                         if i=kol-1 then begin 
                           window(26,10+kol,54,10+kol);textcolor(4);clrscr;write(m[kol]); end; 
                   end; 
              window(26,y,54,y);textcolor(15);textbackground(9);clrscr;write(m[i]); 
             end; 
     end; 
  until (ch=#13); 
  num:=i; 
end; 


var r: byte; 

begin 
   textbackground(0); 
   clrscr; 

   repeat 
     window(1,1,80,25); textbackground(0); clrscr; 

     menu(mainmenu,3,r); 

     window(1,1,80,25); textbackground(0); clrscr; 

      Case r of 

        1: вызвать процедуру начать; 

        2: вызвать процедуру загрузить;

      end; 

   until r=3; 
end.

Сообщение отредактировано: Dezman - 12.12.2007 0:20

[volvo]

Я пишу обычную про-ру

У тебя ж графика не инициализирована... InitGraph/CloseGraph в твоей процедуре тоже есть? А лучше бы показал программу полностью...

[Dezman]

И есть вся прога полностью, она работает. Я просто не знаю как сделать вторую часть проги. Я уже все перепробовал, прога Дожа все равно не пашет

[volvo]

она работает

Опять 25... Работает - это значит компилируется (интересно, как может компилироваться

      Case r of 
        1: вызвать процедуру начать; 
        2: вызвать процедуру загрузить;
      end;

, ты точно на Паскале пишешь?), запускается и выдает верный результат/делает то, что от нее требуется. Если это так и есть - чего ты спрашиваешь? Если нет - значит не работает, тогда приаттачивай программу полностью.

[Dezman]

Это прога выводит только меню. А как сделать так, чтобы нажав на кнопку "квадрат" стерлось меню и появился квадрат??