Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Графический режим
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
555ALEXANDR555 555ALEXANDR555 вне форума
Новичок
 
Сообщений: 8
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 22.12.2010
Post Графический режим - 28.05.2011, 15:42

Помогите с задачей, надо нарисовать часы и чтобы у них двигались стрелки часы я нарисовал а дальше немогу придумать
Вот код.

Код:
program chasi;
uses crt,graph;
var driver,mode,x,y,dx,dy:integer; ch:char;
begin
driver:=detect;
initGraph(driver,mode, '');
setbkcolor (8);
setcolor (15);

circle (320,240,200);
setfillstyle (1,15);
floodfill (320,240,15);

setcolor (0);
setfillstyle (1,0);
bar (316,240,320,110);
line (298,110,338,110);
line (298,110,318,90);
line (318,90,338,110);

setfillstyle (1,0);
floodfill (320,100,0);

setfillstyle (1,0);
bar (320,244,410,240);
line (410,262,410,222);
line (410,262,440,242);
line (440,242,410,222);
floodfill (415,245,0);

setfillstyle (1,15);
outtextxy (313,70,'12');
outtextxy (403,95,'1');
outtextxy (463,160,'2');
outtextxy (490,237,'3');
outtextxy (460,330,'4');
outtextxy (390,390,'5');
outtextxy (313,400,'6');
outtextxy (230,380,'7');
outtextxy (180,320,'8');
outtextxy (150,237,'9');
outtextxy (170,160,'10');
outtextxy (220,90,'11');




readln;
closegraph;
end.
Ответить с цитированием
  (#2 (permalink)) Старый
Paster Fob Paster Fob вне форума
Member
 
Аватар для Paster Fob
 
Сообщений: 225
Сказал(а) спасибо: 1
Поблагодарили 31 раз(а) в 31 сообщениях
Регистрация: 18.11.2010
По умолчанию 28.05.2011, 15:57

freepascal.ru • Главная страница
Вот что ещё знаю:
Цитата:
Представьте себе часы со стрелками. За определённое время конец стрелки описывает круг в своём движении. Вы захотели написать программу-часы, следовательно встаёт вопрос о вычислении координат следующего положения стрелок. У стрелки два конца: у одного конца координаты всегда одни и те же (центр круга), а вот у второго конца положение постоянно менется. Так вот, положением этого самого движущегося конца на круге заведуют синус и косинус, вычисляя поправочный коэффициент к предыдущей координате от 0 до 1 и от 1 до 0.

Последний раз редактировалось Paster Fob; 28.05.2011 в 16:12
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Стандартный VGA графический адаптер VampaeR Видеокарты 11 12.06.2013 20:29
Графический объект как с ним работать Egor123 Delphi 1 05.06.2011 21:52
Графический драйвер ATI berium Видеокарты 6 09.12.2010 20:37
Графический ускоритель Mystere Видеокарты 12 16.11.2010 21:49
как бороться с ошибкой "неспособный установить графический режим " ? Drive777 Любые вопросы от новичков 6 29.04.2010 22:02
графический интерйейс для ЭС artgonch Prolog 0 19.11.2005 20:43
Как запустить графический режим Votmax С/С++ 12 29.10.2005 21:26
Графический редактор и WinApi N4r0dS0ft WinAPI 4 18.08.2005 12:26
Графический счётчик на perl Grechukhin Perl 0 08.08.2005 01:39
Как графический планшет подключить в VC++ 6.0 Neka Вопросы начинающих программистов 3 18.02.2005 14:54
В Turbo Pascal 7.0 не запускается графический режим Marwin Pascal 7 15.10.2004 21:43
Консоль в графический режим exdocent C++ Builder 1 12.04.2004 16:55



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов