Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 07.05.2015, 23:33   #1
NEymexa:c
Пользователь
 
Регистрация: 26.02.2015
Сообщений: 24
Сообщение Графика\движение фигуры..

Снова прощу помочь с графикой, ибо с ней ну очень уж туго..

Задание:
Создать объект - закрашенный объемный прямоугольник. Передвигать по экрану с помощью кнопок (вправо,вверх,влево,вниз), за край не выходить.
NEymexa:c вне форума Ответить с цитированием
Старый 08.05.2015, 00:32   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

первое. графика в разных Паскалях весьма и весьма отличается. Озвучивайте конкрентно, в каком именно Паскале Вам надо (судя по прошлой теме - в Turbo Pascal ?)

второе. у Вас же есть код, где двигается многоугольник (пятиугольник). его не получается доработать?

третье. а что такое "закрашенный объемный прямоугольник" ?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 09.05.2015, 13:12   #3
NEymexa:c
Пользователь
 
Регистрация: 26.02.2015
Сообщений: 24
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
первое. графика в разных Паскалях весьма и весьма отличается. Озвучивайте конкрентно, в каком именно Паскале Вам надо (судя по прошлой теме - в Turbo Pascal ?)

второе. у Вас же есть код, где двигается многоугольник (пятиугольник). его не получается доработать?

третье. а что такое "закрашенный объемный прямоугольник" ?
Да, в TP.

Что смог сделать с кодом многоугольника :
Код:
uses crt, graph;
var
    grdriver, grmode: integer;
    k: char;
    dx,dy,x1,x,y1,y,w,h:integer;

procedure pr(x,y,x1,y1:integer);
 begin
   cleardevice;
   setfillstyle (1,15);
   bar3D(x,y,x1+w,y1+h,20,true);
   x1:=x+30;
   y1:=y+15;
   cleardevice;
   bar3D(x,y,x1+w,y1+h,20,true);
 end;
begin
  clrscr;
   write('W: '); readln(w);
   write('H: '); readln(h);
   grdriver := detect;
   initgraph(grdriver, grmode, ' ');
   if(graphresult <> grok) then     halt;
   cleardevice;
   
   x := GetMaxX div 2;
   y := GetMaxY div 2;
   setfillstyle(1, 15);
   pr(x,y,x1,y1);
   repeat
        if(keypressed) then
        begin
            k := readkey;
            case k of
                #72:{движение вверх}
                begin
                  y:=y-20;
                  if(y < (0 + h)) then
                    y := h;
                    pr(x,y,x1,y1);
                end;
                #75:{движение влево}
                begin
                  x:=x-20;
                  if(x <= 0 + w) then
                    x := w;
                    pr(x,y,x1,y1);
                end;
                #77:{движение вправо}
                begin
                  x:=x+20;
                  if(x >= (GetMaxX - w)) then
                    x := GetMaxX - w;
                    pr(x,y,x1,y1);
                   end;
                #80:{движение вниз}
                begin
                  y:=y+20;
                  if(y1 >= (GetMaxY+h)) then
                    y1 := GetMaxY+h;
                    pr(x,y,x1,y1);
                end;
            end;
        end;
    until k = #27;
end.
Нужен объект.. а как его с кодом связать - не знаю.

Параллелепипед..
NEymexa:c вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo pascal. Графика\движение фигуры NEymexa:c Паскаль, Turbo Pascal, PascalABC.NET 16 13.05.2015 16:58
Движение фигуры spinogryz_ua Общие вопросы по Java, Java SE, Kotlin 6 23.02.2013 17:19
графика Паскаль - движение фигуры Nataly026 Паскаль, Turbo Pascal, PascalABC.NET 6 18.04.2012 22:20
Движение фигуры Di-em Паскаль, Turbo Pascal, PascalABC.NET 1 10.01.2012 19:55
Движение одной фигуры,вслед изменения высоты другой фигуры. 7vlad37 Microsoft Office Excel 3 21.07.2011 17:01


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS