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

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

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

 
 Ответить  Открыть новую тему 
> Задача на перемешение
сообщение
Сообщение #1


Гость






Ребят помогите пожалуста нужно программку написать чтоб показать движение машины способом запоминания изображения и выводом его на экран (когда машина полностью выезжает за пределы экрана то поевляется снова).
Вот часть программы рисующаа машину:

Program car;
Uses crt,Graph;
var
st:string;
d,m,n,j:integer;
begin
d:=detect;
InitGraph(d,m,'d:\bp\bgi');
repeat
line(60,400,30,400);
line(70,370,110,370);
line(110,370,120,400);
line(120,400,300,400);
line(310,370,350,370);
line(360,400,440,400);
line(430,370,290,340);
line(240,300,100,300);
line(30,350,30,400);
line(30,350,100,300);
line(60,400,70,370);
line(300,400,310,370);
line(360,400,350,370);
line(440,400,430,370);
line(290,340,240,300);
circle(330,400,26);
circle(90,400,26);
until keypressed;
end.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Вот эту "машинку" теперь копируй с помощью GetImage, и потом выводи на экран через PutImage

(поиск по словам GetImage, PutImage, ImageSize) должен выдать примеры использования... Только это слишком большое изображение, будет замедление при выводе, получится некрасиво. Сделай рисунок поменьше.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


А можете написать программный код для перемишения а то у меня не получается.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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