Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
ksenyaMilaxa
1

Нарисовать изображение круга

06.04.2011, 19:22. Просмотров 2734. Ответов 1
Метки нет (Все метки)


Привет всем )
Вот дали на 5 задач, 4 сделала, а вот эту никак не получается(
помогите пожалуйста. П.С с геометрией я не очень дружу( вот и не получается сделать.

Условие :
Построисть рисунок (рис 8.4) по заданым радиусам внешнего и внутреннего круга. Цвета 6(шести) вписанных кругов должны циклично изменятся при нажатие на любую клавишу.


Помогите пожалуйста с программой...
Миниатюры
Нарисовать  изображение круга  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2011, 19:22
Ответы с готовыми решениями:

Нарисовать два круга
Составьте программу, которая нарисует два круга на экране. После нажатия на "ENTER" они исчезают, а...

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

Движение закрашенного круга по экрану содержащему изображение
Помогите написать программу в турбо паскале Движение закрашенного круга по экрану содержащему...

Нарисовать изображение

1
Модератор
62830 / 46889 / 32315
Регистрация: 18.05.2008
Сообщений: 113,614
06.04.2011, 19:54 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt,graph;
var x,y,i,r1,r2,r3,xc,yc,u,cv,k:integer;
    c:char;
begin
x:=0;
initgraph(x,y,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r1:=100;
r2:=150;
r3:=(r2-r1)div 2;
outtextXY(xc-40,20,'Vyhod Esc');
setcolor(14);
circle(xc,yc,r1);
circle(xc,yc,r2);
k:=0;
repeat
u:=30;
for i:=1 to 6 do
 begin
  x:=xc+round((r1+r3)*cos(u*pi/180));
  y:=yc-round((r1+r3)*sin(u*pi/180));
  cv:=i+k;
  if cv>6 then cv:=(i+k)mod 6;
  setcolor(cv);
  circle(x,y,r3);
  setfillstyle(1,cv);
  floodfill(x,y,cv);
  u:=u+60;
 end;
if keypressed then
 begin
  k:=k+1;
  if k=6 then k:=0;
  c:=readkey;
 end;
until c=#27;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2011, 19:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Нарисовать изображение
Нарисуйте

Нарисовать два круга, внутри должен быть дождик
В программе нужно нарисовать 2 круга, закрасить область внутри кругов и чтобы был дождик. Круги...

Нарисовать изображение
Составить программу на Паскале, которая формирует на экране изображение:

Нарисовать траекторию для круга
Программисты, уповаю на вашу помощь. Нужно: 1.Что бы за кружком следовала пунктирная траектория....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.