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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2017, 16:46   #1
Sergey12341
Новичок
Джуниор
 
Регистрация: 25.05.2017
Сообщений: 1
По умолчанию Инициализация графического режима, программирование эффекта движения - PascalABC.NET

Построить 3 различные геометрические фигуры, и заполнить различными образцами штриховки внутренние области. Реализовать алгоритм кругового движения этих фигур с разной скоростью.

Вот часть программы, которая рисует круг,и он движется по кругу, у меня не получается сделать для прямоугольника и эллипса.

program Circle2;
uses crt,graphABC;
var x, y, r1, r2, i, n :integer;
begin
//clrscr;
LockDrawing;
r1:=50; r2:=20; n:=50;for i:=0 to n do
begin
Window.Clear;
x:=trunc(320+r1*cos(6.28*(i/n)));
y:=trunc(240-r1*sin(6.28*(i/n)));
SetPenColor(clgreen);
setBrushColor(clgreen);
Circle (x,y,r2);
SetPenColor(clred);
Redraw;
Sleep(50);
end;
end.
Sergey12341 вне форума Ответить с цитированием
Старый 25.05.2017, 17:16   #2
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Смотрите в папке примеров, разработчики PascalABC.NET
специально для Вас их прикрепили к среде программирования.
\PABCWork.NET\Samples\Graphics\ABCO bjects\gr_Move_Param.pas
И не стесняйтесь читать справку, она вызывается кнопкой F1.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как процедуру идля текстового режима переделать для графического режима sanchoys Паскаль, Turbo Pascal, PascalABC.NET 4 29.05.2013 20:44
Инициализация графического режима gylayko Помощь студентам 2 27.02.2012 13:24
инициализация графического режима в Паскале Dimanduc Помощь студентам 11 26.05.2010 17:49
Жужжание монитора при переключении графического режима. Levsha100 Компьютерное железо 6 11.02.2010 13:22
Проблема инициализайии графического режима в BorlandC++ под ДОС Anatol_rus Общие вопросы C/C++ 0 01.04.2009 22:33