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

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

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

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

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

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

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

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

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

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

1
Игорь[Igor]
716 / 468 / 128
Регистрация: 24.12.2008
Сообщений: 3,901
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
Привет! Вот еще темы с решениями:

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

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

Передвижение фигуры по экрану
Помогите пожалуйста, нужно символ .model small .stack 100h .data string0...

Движение фигуры по экрану
Здравствуйте, нужно было сделать анимацию фигуры по экрану(движение шарика в...


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

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

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