Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

Купить рекламу здесь за 20 тыс руб в месяц! alarforum@yandex.ru


Ответ
 
Опции темы
Старый 26.12.2010, 16:22   #1
Weyner
Пользователь
 
Регистрация: 19.10.2010
Сообщений: 25
Смех Не сходится рисунок !)

Короче, доброго всем вечера, такая вот проблемка, мне надо нарисовать ромб потом в ромб надо вписать круг а вкруг надо вписать квадрат! Вот я в круг вписал квадрат а в тоже время в ромб я не магу вписать круг!!!
Вот код :
Код:
//ромб
procedure TFigure.Show;
var
A:array[1..4] of TPoint;
begin
  a[1].X:=X;
  a[1].Y:=Y;
  a[2].X:=X+size div 2;
  a[2].Y:=Y+size div 2;
  a[3].X:=X;
  a[3].Y:=Y+size;
  a[4].X:=X-size div 2;
  a[4].Y:=Y+size div 2 ;
  Canvas.Pen.Color:=ClBlack;
  Canvas.Brush.Color:=ClRed;
  Canvas.Polygon(a);
//круг 
  Canvas.Brush.Color:=clWhite;
  Canvas.Ellipse(x-size div 4,y+size div 4,x+size div 4,y+size-size div 4);

//квадрат
  Canvas.Brush.Color:=clBlue;
  Canvas.Rectangle(Round(x-(size div 4)*cos(pi/4)),
  Round(y+size div 2 - (size div 4)*sin(pi/4)),
  Round(x+(size div 4)*cos(pi/4)),
  Round(y+size div 2 + (size div 4)*sin(pi/4)));
я вот думаю дело в ромбе все но не как не получается у меня!!!!
Weyner вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
3D рисунок LevonNikox PHP 0 04.08.2009 21:43
Не сходится с ответом... Paul Oakenfold Помощь студентам 5 19.02.2009 18:09
Не сходится с ответом... Paul Oakenfold Помощь студентам 5 16.02.2009 16:06
Рисунок Артэс Win Api 16 12.06.2008 17:07


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840