Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2010, 21:06   #1
DeyaInferi
 
Регистрация: 31.10.2010
Сообщений: 9
По умолчанию Графика в Паскаль

Доброго времени суток.
Ответ наверное легкий, но сама додуматься не могу.
Итак ситуация такая:
у меня есть меню:
Код:
uses graph ,crt;
 var
   dv,mv,k:integer;
    procedure gra;
    begin
    cleardevice;
    outtextxy(320,240,'procedure 1');
    readkey;
    end;
    procedure reklama   ;
     begin
      cleardevice;
      settextstyle (3,0,2);
      outtextxy(320,240,'procedure 2');
       settextstyle(0,0,1);
       readkey;
    end;
   procedure ruh;
    var
      z:char;
      k0:byte;
     begin
      k:=1;
      repeat
       k0:=k;
       z:=readkey;
        case z of
         #80: begin k:=k+1; if k>3 then k:=1; end;
         #72: begin k:=k-1 ; if k<1 then k:=3; end;
    end;

     setcolor(0);  settextstyle(6,0,4);
     case k0 of

      1:begin outtextxy(250,130,'adv');rectangle(240,130,300,170)  end;
      2:outtextxy(200,210,'play');
      3:outtextxy(245, 290,'end');
     end;

    setcolor(5);  settextstyle(0,1,2);
     case k0 of

      1: outtextxy(250,130,'adv');

      2:outtextxy(200,210,'play');
      3:outtextxy(245, 290,'end');
     end;

    setcolor(0);   settextstyle(0,1,2);
    case k of
       1:begin outtextxy(250,130,'adv'); rectangle(240,130,300,170); end;
      2:outtextxy(200,210,'play');
      3:outtextxy(245, 290,'end');
       end;

     setcolor(12);   settextstyle(6,0,4);
    case k of
       1:begin outtextxy(250,130,'adv'); rectangle(240,130,300,170);    end;
      2:outtextxy(200,210,'play');
      3:outtextxy(245, 290,'end');
       end;
     until z=#13;
     end;

      procedure menu;
      var
       i,n :integer;             begin
        cleardevice;
        setcolor(15);
        settextstyle(6,0,4);
        outtextxy(250,130,'adv');   rectangle(240,130,300,170);
        setcolor(5);
        settextstyle(0,1,2);
        outtextxy(200,210,'play');     rectangle(210,210,270,250);
        outtextxy(245,290,'end');      rectangle(255,290,315,330);
        end;
         begin
          dv:=detect;
          initgraph (dv,mv,'');
          repeat
          menu;
          ruh;
          case k of
           1: gra    ;
           2: reklama;
             end;
             until k=3;
             end.
и у меня есть вращающиеся фигуры
Код:
Uses graph, crt;
 var
 dv,mv,c,x,y, x0, y0, r,r1, i:integer;
procedure color(x0,y0,r,c:integer);
begin
r:=5;
    repeat
    for i:=0 to 360 do
     begin
     x:=x0+round(r*sin(i*pi/180));
     y:=y0+round(r*cos(i*pi/180));
    putpixel(x,y,c);
     delay(9);
     if i mod 999=0 then r:=r+3;
     end;
      until r>r1
       end;

  begin

   dv:=detect;
   initgraph(dv,mv, '');
   repeat
    x0:=random(640);
    y0:=random(480);
    r1:=random(100)+20;
    c:=random(16)+1;
     color(x0,y0,r1,c);
     until keypressed
     end.
А проблема в том, что бы эти вращающиеся фигуры вращались в моем меню. Т.е., что бы они были как фоном этого меню.
За ранее благодарна.
DeyaInferi вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Графика. Паскаль Zond235 Паскаль, Turbo Pascal, PascalABC.NET 15 11.06.2010 18:17
графика паскаль locky7fm Помощь студентам 8 19.04.2009 23:41