Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Некулай
0 / 0 / 0
Регистрация: 22.01.2009
Сообщений: 1
1

Прога движения фигуры по экрану.

25.01.2009, 18:20. Просмотров 977. Ответов 1
Метки нет (Все метки)

Люди, подскажите пожалуйста код программы движения фигуры по экрану... маленький прямоугольник движется по контуру экрана... клавиша #27-выход... спасибо...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2009, 18:20
Ответы с готовыми решениями:

Написать программу движения 3-х разных геометрических фигур по экрану
Написать программу движения 3-х разных геометрических фигур по экрану...

Используя статические объекты и статические методы, разработать программу движения по экрану прямой линии и квадрата.
Помогите, в решении задач, пожалуйста! 1. Используя статические объекты и...

Передвижение фигуры при клике на область внутри фигуры
Есть прямоугольник 100 на 50. При удерживании мышки фигура передвигается как...

Написать программу движения фигуры по экрану, не выходя за его пределы
Создать объект - закрашенный параллелепипед. Написать программу движения фигуры...

Движения текста по экрану
Здравствуйте! Прошу помощи! Помогите создать программу через Turbo pascal....

1
Игорь[Igor]
716 / 468 / 128
Регистрация: 24.12.2008
Сообщений: 3,910
25.01.2009, 20:16 2
Код
program kv;
uses
    crt, graph;
var
   x, y, dx, dy, w, h, driver, mode: integer;
begin
     initgraph(driver, mode, 'G:/BP/BGI');
     if graphresult<>0 then begin
        writeln('none');
        halt
     end;
     dx:=1;
     dy:=0;
     w:=100;
     h:=10;
repeat
      setfillstyle(1, black);
      bar(x, y, x+w, y+h);
      x:=x+dx;
      y:=y+dy;
      setfillstyle(1, red);
      bar(x, y, x+w, y+h);
      delay(100);
      if (x+w>=getmaxx)and(y<=0) then
      begin
           dx:=0;
           dy:=1;
      end
      else
      if (y+h>=getmaxy)and(x+w>=getmaxx) then
      begin
           dx:=-1;
           dy:=0;
      end
      else
      if (x<=0)and(y+h>=getmaxy) then
      begin
           dx:=0;
           dy:=-1;
      end
      else
      if (y<=0)and(x<=0) then
      begin
           dx:=1;
           dy:=0;
      end;
until keypressed;
closegraph;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2009, 20:16

Построить изображение любой фигуры и задать ее перемещение по экрану
пожалуйста помогите!!! Построить изображение любой фигуры( фигуры различные) и...

Напишите программу, движения точки по экрану в заданном направлении с заданным шагом.
Помогите пожалуйста!!! Напишите программу, движения точки по экрану в...

Обработка движения пальца по экрану
Подскажите, пожалуйста, как обрабатывать движение пальца по экрану, например,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru