Форум: "Начинающим";
Текущий архив: 2012.02.05;
Скачать: [xml.tar.bz2];

Вниз

деление окружности   Найти похожие ветки 

← →
tcjkjl ©   (2011-10-27 20:34) [0]

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

---

← →
Rouse_ ©   (2011-10-27 20:39) [1]

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

---

← →
Inovet ©   (2011-10-27 20:56) [2]

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

---

← →
tcjkjl ©   (2011-10-27 21:06) [3]

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

---

← →
Dimka Maslov ©   (2011-10-27 21:25) [4]

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

---

← →
Inovet ©   (2011-10-27 21:26) [5]

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

---

← →
Inovet ©   (2011-10-27 21:45) [6]


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.


---

← →
Омлет ©   (2011-10-28 00:33) [7]

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;


---

← →
KilkennyCat ©   (2011-10-28 00:46) [8]

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

---

← →
tcjkjl ©   (2011-10-28 12:07) [9]

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

---

← →
tcjkjl ©   (2011-10-28 12:08) [10]

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

---

← →
Inovet ©   (2011-10-28 12:27) [11]

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

---

← →
oldman ©   (2011-10-28 12:29) [12]

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


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

---

← →
Inovet ©   (2011-10-28 12:32) [13]

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

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

---

← →
MBo ©   (2011-10-28 13:56) [14]

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

Зачет

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2012.02.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.003 c