Форум программистов, компьютерный форум, киберфорум
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
ProgrammerOnDel
16 / 16 / 0
Регистрация: 04.02.2011
Сообщений: 62
1

Нарисовать круги

17.06.2011, 20:50. Просмотров 2192. Ответов 3
Метки нет (Все метки)

Написать программу, которая выводит на экран приведенный ниже узор.
0
Изображения
 
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2011, 20:50
Ответы с готовыми решениями:

Нарисовать круги через рекурсию
Собственно надо нарисовать 6 кругов через рекурсию.... Если не знаете как через рекурсию то хотя...

Круги в делфи на изображение
У меня известны три радиуса a=4, a=5, a=8 необходимо чтобы это все чертилось на картинке...

Круги от камня
Необходимо промоделировать образование кругов на воде при броске одного камня и двух камней...

Нарисовать Круги
Люди выручите пожалуйста! Мне нужно нарисовать Круги чтоб они были на одинаковом расстояние и...

3
ProgrammerOnDel
16 / 16 / 0
Регистрация: 04.02.2011
Сообщений: 62
17.06.2011, 20:51  [ТС] 2
и ещё если можно через рекурсию
0
murderer
3755 / 1633 / 172
Регистрация: 06.10.2010
Сообщений: 3,634
17.06.2011, 22:05 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure circle(r,x,y: dword);
var
  r2,r3: dword;
begin
  Form1.Canvas.Ellipse(x-r,y-r,x+r,y+r);
  r2:=r shr 1;
  if r2>0 then
  begin
    r3:=round(r*0.70710678118654752440084436210485);
    circle(r2,x-r3,y-r3);
    circle(r2,x+r3,y-r3);
    circle(r2,x+r3,y+r3);
    circle(r2,x-r3,y+r3);
  end;
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  Form1.Canvas.Brush.Style:=bsSolid;
  Form1.Canvas.FillRect(Form1.ClientRect);
  Form1.Canvas.Brush.Style:=bsClear;
  circle(170,Form1.ClientWidth shr 1,Form1.ClientHeight shr 1);
end;
1
ProgrammerOnDel
16 / 16 / 0
Регистрация: 04.02.2011
Сообщений: 62
17.06.2011, 22:14  [ТС] 4
Спасибо
0
17.06.2011, 22:14
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2011, 22:14

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

Нарисовать круги
Добрый вечер, господа, начинаю изучать C# и нужна ваша помощь Мне надо нарисовать эти круги, но...

Нарисовать круги с линиями
Ребята, помогите нарисовать пару кружков как на картинке и потом нажимая на кнопку мыши или кнопку...

Нарисовать круги Эйлера
Как нарисовать круги Эйлера

Нарисовать круги на воде
for(i=0;i<30;i++) { for(int it=0; it<30; it++) { for(int q=0; q<360; q++) { ...


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

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

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