[bump]

Сижу делаю отчёт по лабам..и вспоминаю эту забитую мною тему..
да же приблизительно не знаю как это делать..прошу помощи..Если кто отважиться помочь просьба немного пояснений к коду, но если нет на это времени не утруждайтесь пояснениями, сам разберусь(


Составить модуль, содержащий следующие подпрограммы определения характеристик окружности:
- площадь круга,
- площадь сектора,
- площадь сегмента,
- длину окружности,
- точки пересечения двух окружностей,

[Rjkzy]

Модуль - это отдельный юнит. если напомнишь формулы, по которым вычисляются эти самые длины и площади, накидаю быстренько

[bump]

1) Пи*радиус в квадрате
2)Пи*радиус в квадрате*какой то угол любой/360 градусов
3)(какой то угол-синус этого же угла)в квадрате/2(Допустим пользователь введет угол 30 градусов. Тогда формула примет вид (30-sin30)в квадрате/2 )
4)2пи*радиус
5)Ну точки пересечения 2 окружностей я думаю что нужно их уравнения приравнять... короче с 5 - м сам справлюсь ...посмотрев как ты сделаешь предыдущее

как - то так...

[lmikle]

3 из 5:

Код:

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

unit CircleUtils;   uses   Windows, SysUtils, Classes, Math;    interface   // площадь круга, function CircleSquare(R : extended) : Extended;   // площадь сектора, function SectorSquare(R, Alfa : Extended) : Extended;   // длину окружности, function CircleLen(R : Extended) : Extended;   implementation   // площадь круга, function CircleSquare(R : extended) : Extended; begin   Result := PI * Sqr(R); end;   // площадь сектора, function SectorSquare(R, Alfa : Extended) : Extended; begin   Result := CircleSquare(R) * Alfa / 360; end;   // длину окружности, function CircleLen(R : Extended) : Extended; begin   Result := 2 * PI * R; end;   end.

[Rjkzy]

моя копейка - площадь сегмента

Код:

1 2 3 4 5 6 7 8 9 10 11 12

unit SegmentArea;     interface   uses Windows,SysUtils;   implementation function SegmentS(corner: SHORT): Real; begin   Result:= sqr(corner - sin(corner))/2; end; end.

и каждую функцию - в отдельный юнит!