IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помогите плиЗз решить задачу на движующиеся Фигуры, Нарисовать движущийся прямоугольник
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


Задача звучит так:
Нарисовать прямоугольник, движующийся по диогоналям экрана.

!help.gif

Сообщение отредактировано: 6ac9k -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


В чем проблемы?


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


Цитата(Bokul @ 10.12.2006 3:27) *

В чем проблемы?

понятие не имею как решить задачу mega_chok.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


Вот пара ссылок, после прочтения, не должно возникнуть никаких вопросов:
Самолет в пространтсве
Анимацыя в паскале


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


Цитата(Bokul @ 10.12.2006 4:06) *

Вот пара ссылок, после прочтения, не должно возникнуть никаких вопросов:
Самолет в пространтсве
Анимацыя в паскале

спасибо разобрался)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






blink.gif БЛиНН не могу координаты настроить чтоб вышел прямоугольник(*((
Помогите мот..хотя я думаю проще полностью программу уже скласть) yes2.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


выложи, что делал(а)
исправим...


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


По данным примерам пытался координаты поменять..не выходиТ sad.gif
Так покавырялся..вроде разобрался)


Под прямоугольник соответствненно)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


С чем у тебя проблемы? Движениям? Или ты не знаешь как нарисовать прямоугольник? Глянь в справке процедуру Rectangle. smile.gif


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


Нарисовать не могу движения я поставлю. cool.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


Я ж тебе уже дал процедуру для рисования, осталось только воспользоваться ней:

uses graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
setcolor(red);
rectangle(10,10,100,110);
readln;
end.

wink.gif

Цитата
Нарисовать не могу движения я поставлю

Это как читать? Так?
Нарисовать не могу движения, я поставлю.
Или все-таки:
Нарисовать не могу, движения я поставлю.

Тот, кто читает твои посты, не знает о чем ты думаешь, так что, пожалуйста, старайся быть точнее и использовать хоть какие-то знаки пунктуации.. smile.gif


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


program kvadrat;
uses crt;
var
x,y,dx,dy:integer;
begin
TextBackground(0);
ClrScr;
x:=60;
y:=5;
dx:=-1;
dy:=1;
repeat
X := x+dx;
Y := y+dy;
Window(X, Y, X + 5, Y + 3);
TextBackground(7);
ClrScr;
delay(20000);
TextBackground(0);
ClrScr;
until KeyPressed;
end.

у меня получилось так..не знаю как задать чтоб прямоугольник ездил по диогоналям экрана
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


А ты не мог сразу сказать, что тебе надо сделать в графическом режиме?

program kvadrat;
uses crt;

procedure Draw(x,y,col:byte);
begin
Window(X,Y,X+5,Y+3);
TextBackground(col);
ClrScr;
end;
var
x,y,dx,dy:integer;
begin
TextBackground(0);
ClrScr;
x:=0;
y:=0;
dx:=4;
dy:=1;
repeat
Draw(x,y,7);
delay(200);
Draw(x,y,0);
X := x+dx;
Y := y+dy;
until KeyPressed;
end.


Цитата
не знаю как задать чтоб прямоугольник ездил по диогоналям экрана

Как ты себе это представляешь? Ну доехал прямоугольник до краю, а потом что?

P.S. 6ac9k, пользуйся тегами.


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


Спасиб good.gif
Вроде всё вышло =) Буду завтра показывать.. rolleyes.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.10.2020 20:05
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name