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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

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

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

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

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

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


16:36.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.