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

[Dezman]

Ни на одном форуме мне никто не смог помочь. Надеюсь, что здесь я все таки найду помощь

1. Написать программу, которая выводит на экран меню, в котором в зависимости от выбора пользователя появляется круг, квадрат или треугольник.

2. Напишите программу, которая в зависимости от кода нажатой клавиши (используйте клавиши перемещения курсора) управляет движением фигуры человечка (вверх, вниз, влево, вправо). Образ человечка занесите в память.

Заранее спасибо!

[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 - 11.12.2007 20:20