Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.10.2008, 21:33   #11
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
Сообщение от Rusl92 Посмотреть сообщение
здесь понятно что в цикле нужно рисовать rectangle меняя его координаты определенным образом. вот решение
и не забывать чистить следы от предыдущих положений квадрата
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 11.10.2008, 15:09   #12
StakanpORTvejna
Пользователь
 
Регистрация: 31.08.2007
Сообщений: 37
По умолчанию

всё писать лень..так что только от середины низа до центра

Код:
uses crt,graph;
var a,b,i,x,y,l,n,size:integer ;
p:pointer;
function del(c,b:word):word;
begin
for c:=1 to b do
delay(5000);
end;
begin
l:=1;
n:=20;
a:=VGA;b:=2;InitGraph(a,b,' ');
SetBkColor(1);
Size :=imageSize(200,200,250,250); {тут область в которой рисуються квадраты}
Rectangle(200,200,240,240);{квадрат не закрашенный}
Bar(205,205,230,230);{закрашенный}
GetMem(p,Size);
GetImage(200,200,250,250,p^); {Здесь сохраняеться область где нарисованы квадраты в оперативку}
x:=310; y:=470;
ClearDevice;
repeat
PutImage(x,y,p^,1);{выводит на экран из буфера этой процедурой}
y:=y-15;del(l,n);
clearDevice;
until y<230;
del(l,n);
Cleardevice;
CloseGraph;
readln;
end.
StakanpORTvejna вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Графика** Lenivec** Паскаль, Turbo Pascal, PascalABC.NET 2 28.04.2010 23:41
Графика V1rusPro Общие вопросы .NET 0 22.04.2008 08:25
Графика С++ kommunist Общие вопросы C/C++ 6 14.01.2008 15:21
Графика Dizman Помощь студентам 20 17.12.2007 17:03