| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

деление окружности [D7]

tcjkjl ©   (2011-10-27 20:34:00) 

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

---

MBo   (2011-10-28 13:56:00) [1]

>Так что же всё-таки надо было получить в результате?

Зачет

---

Inovet   (2011-10-28 12:32:00) [2]

> [12] oldman ©   (28.10.11 12:29)
> Окружность, поделенную на сектора, количество которых задается в SpinEdit.

Вы правы, Кэп.

---

oldman   (2011-10-28 12:29:00) [3]

> Inovet ©   (28.10.11 12:27) [11]


Окружность, поделенную на сектора, количество которых задается в SpinEdit.

---

Inovet   (2011-10-28 12:27:00) [4]

Так что же всё-таки надо было получить в результате?

---

tcjkjl   (2011-10-28 12:08:00) [5]

Удалено модератором

---

tcjkjl   (2011-10-28 12:07:00) [6]

Спасибо всем за ответы!

---

KilkennyCat   (2011-10-28 00:46:00) [7]

var
okrujnost, sectora : integer;
begin
if sectora = 0 then goto jopa
  else
 result := okrujnost / sectora;
end;

---

Омлет   (2011-10-28 00:33:00) [8]

procedure CutCircle(Canvas: TCanvas; x, y, rad, count: integer);
var
 i: Integer;
begin
 Canvas.Ellipse(x - rad, y - rad, x + rad, y + rad);
 if count > 1 then
   for i := 0 to count - 1 do
   begin
     Canvas.MoveTo(x, y);
     Canvas.LineTo(round(cos(i*Pi*2/count)*rad) + x, round(sin(i*Pi*2/count)*rad) + y);
   end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 CutCircle(canvas, 200, 200, 150, 9);
end;


---

Inovet   (2011-10-27 21:45:00) [9]


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Spin;

type
 TForm1 = class(TForm)
   SpinEdit1: TSpinEdit;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 a : double;
begin
 a := 2 * Pi / SpinEdit1.Value;
 ShowMessage(FloatToStr(a));
end;

end.


---

Inovet   (2011-10-27 21:26:00) [10]

Что должно получиться нв выходе?

---

Dimka Maslov   (2011-10-27 21:25:00) [11]

ShowMessage(#$CF#$D0#$C5#$C2#$C5#$C4#$21)

---

tcjkjl   (2011-10-27 21:06:00) [12]

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

---

Inovet   (2011-10-27 20:56:00) [13]

А что не понятно?

---

Rouse_   (2011-10-27 20:39:00) [14]

http://www.egesdam.ru/page301.html

---

Наверх