Определение и реализация класса "Фигура". Разработка алгоритма решения задачи с использованием данного класса

@nozdryavpupke · Регистрация: 22.12.2014

Студворк — интернет-сервис помощи студентам

Условие задачи:Дано множество окружностей. Среди окружностей, длина которых больше D, найти ту, центр которой наиболее удален от точки (0, 0).
Определение и реализация класса «фигура» (отрезок, треугольник, круг, и т. д.), содержащего поля и методы, необходимые для обработки фигуры в соответствии с условием задачи. Разработка алгоритма решения задачи с использованием данного класса.

Программа без класса:

Delphi

Program p1;
var n:integer;
 
r:integer;
i,K:integer;
Y:integer;
X:integer;
smax,d:real;
function f(rad:integer): real;{длина окружности}
begin
f:=2*pi*rad;
end;
function s(a,b:integer): real;{расстояние до (0,0)}
begin
s:=sqrt(a*a+b*b);
end;
begin
smax:=0;
writeln('Vvedite chislo okruznostei');
readln(n);
writeln('Vvedite min L');
readln(d);
for i:=1 to n do
readln(x,y,r);
i:=1;
if f(r)>d then
begin
if s(x,y)>smax then
begin
smax:=s(x,y);
K:=I;
end;
end;
writeln('номер кольца',K);
end.

@krapotkin · 15.04.2015, 23:15

дай нам шанс - напиши хоть что-нибудь
представленную программу лучше убрать подальше, будет только мешать
и версию delphi укажи

@nozdryavpupke · 16.04.2015, 00:08 **[ТС]**

версия Delphi 7.0

@krapotkin · 16.04.2015, 10:00

это хорошо, но мало
создать форму, на форме PaintBox и кнопка
в тексте описать класс TCircle с полями
Center:TPoint;
Radius:single;

@Puporev · 16.04.2015, 13:54

Сообщение от krapotkin

на форме PaintBox

По условию графика вообще не обязательна, просто геометрическая задача, хотя конечно с графикой лучше.

@krapotkin · 16.04.2015, 14:15

имхо проверять с картинками проще
и красивая презентация по опыту +100 к оценке всего труда )))

@krapotkin 5538 / 4323 / 1383 Регистрация: 14.04.2014 Сообщений: 19,386 Записей в блоге: 19
	15.04.2015, 23:15	2
	дай нам шанс - напиши хоть что-нибудь представленную программу лучше убрать подальше, будет только мешать и версию delphi укажи 0

@nozdryavpupke 0 / 0 / 0 Регистрация: 22.12.2014 Сообщений: 3
	16.04.2015, 00:08 [ТС]	3
	версия Delphi 7.0 0

@krapotkin 5538 / 4323 / 1383 Регистрация: 14.04.2014 Сообщений: 19,386 Записей в блоге: 19
	16.04.2015, 10:00	4
	это хорошо, но мало создать форму, на форме PaintBox и кнопка в тексте описать класс TCircle с полями Center:TPoint; Radius:single; 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	16.04.2015, 13:54	5
	Сообщение от krapotkin на форме PaintBox По условию графика вообще не обязательна, просто геометрическая задача, хотя конечно с графикой лучше. 0

@krapotkin 5538 / 4323 / 1383 Регистрация: 14.04.2014 Сообщений: 19,386 Записей в блоге: 19
	16.04.2015, 14:15	6
	имхо проверять с картинками проще и красивая презентация по опыту +100 к оценке всего труда ))) 0

Опции темы