Приложение для вычисления площади различных фигур

@FromOutSide · Регистрация: 04.09.2014

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

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

@mss · 28.01.2015, 16:53

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

чтоб рядом стояла введите a,b,c и так далее

Какие нафих "a,b,c и так далее" ?
У тебя по заданию требуется ввод координат, а не длин)
Ты разницу между "длина стороны" и "координата вершины" вообще понимаешь ?)

@Puporev · 28.01.2015, 16:59

Для ввода координат удобнее использовать StringGrig. Вводишь количество вершин, соответственно задаешь количество строк в таблице, количество столбцов 2 или 3 если первый для номеров вершин.

@FromOutSide · 28.01.2015, 17:12 **[ТС]**

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

Ты разницу между "длина стороны" и "координата вершины" вообще понимаешь ?)

да понимаю) но вроде такое тоже существует координаты сторон но это походу другое) ну пускай будет что есть длина сторон. это же вроде удобней чем координаты вершин?

@Vabos · 28.01.2015, 17:53

Можно еще такой способ попробовать, почти интегрирование. Рисуем произвольную (кривые, отрезки, дуги - не важно) замкнутую фигуру известным цветом (например черным) на фоне известного цвета (например - белый). После этого обходим все пикселы получившегося битмапа и считаем сколько пикселов цвета фона оказались внутри фигуры. Также определяем крайние точки фигуры (Верх, низ, лево, право), чтобы рассчитать габаритные размеры в пикселах. Остается только задать габаритные размеры фигуры в именованных единицах, чтобы вычислить площадь пиксела, а затем умножить ее на получившееся кол-во пикселов внутри фигуры. Естессно, будет погрешность, зато фигуры можно рисовать любые.

@mss · 28.01.2015, 19:34

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

вроде такое тоже существует координаты сторон

Не существует. Это нонсенс. Свойством "координаты" обладает точка (в N-мерном пространстве, в твоем случае N=2).

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

пускай будет что есть длина

Лихо ты на ходу меняешь условия задания, подгоняя их под свои утилитарные понятия)

Ну ладно.
Так что там насчет окружности и правильного полигона ?

@FromOutSide · 29.01.2015, 13:44 **[ТС]**

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

Лихо ты на ходу меняешь условия задания, подгоняя их под свои утилитарные понятия)

приходится чтоб было более корректно, а так кто меня еще мог на это подтолкнуть?)

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

Так что там насчет окружности и правильного полигона ?

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

@mss · 29.01.2015, 14:08

Не по теме:

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

формулы нашел, ну и думаю этого вполне достаточно

Отсюда делаем вывод - "Помогите" было всуе и ни о чем)
Стоило отключить ленивку и включить голову - и проблема тут же рассосалась сама собой, не успев даже созреть)

@FromOutSide · 29.01.2015, 14:30 **[ТС]**

Не по теме:

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

Отсюда делаем вывод - "Помогите" было всуе и ни о чем)
Стоило отключить ленивку и включить голову - и проблема тут же рассосалась сама собой, не успев даже созреть)

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

@FromOutSide · 29.09.2019, 12:47 **[ТС]**

Не по теме:

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

@Matan! · 30.09.2019, 16:23

FromOutSide, а с чего Вы вдруг решили поднять тему 5-летней давности?

Можете помочь лучше - флаг в руки.
Если есть решение - покажите его.
Касательно Вашей задачи.

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

определенных фигур нету

Если опеределённых фигур нет, то должна быть какая-то универсальная формула подсчёта произвольной фигуры. А поскольку это раздел программистов Delphi, а не математиков, то во втором посту Вас и было спрошено, об этой формуле.
Второй момент - входные данные.
Как программист-математик, поясню: задавать стороны - не лучший вариант. Во всяком случае не нарушая первоначальную постановку задачи. Пример - круг, у него нет сторон (радиус стороной не является).
Если задавать координаты, то решение есть. Называется метод вычисления площади выпуклой оболочки.
Поправочка - метод годится лишь для выпуклых многоугольников (круг в данном случае это многоугольник с достаточно большим количеством сторон, что делает этот метод не самым простым решением ввиду количества уравнений).
Есть такая метода - по координатам с помощью аппроксимации найти недостающие точки, получить табличное представление функций, ограничивающих фигуру, затем проинтегрировать её, применив метод Симпсона или метод трапеций для численного вычисления интеграла.
Такое решение требует недюжинных математических усилий, приводить пример, а затем объяснять его..ну, долго это будет и не факт, что успешно.

То, что Вы показали на скрине - похоже вычисление площадей простейших примитивов по кнопкам - кнопка Круг, Треугольник, Параллелограм(не надо плодить Прямоугольник, Ромб и Квадрат, это частные случаи).
По стороне, так по стороне.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// задаем радиус, а также Edit для вывода результата площади и Image для рисования
 
procedure Circle(r: Extended; aEdit: TEdit; aImage: TImage); 
var
  S: Extended;
begin
  S := Pi * r;   // надо подключить в using Math
  aEdit.Text := FloatToStr(S);
  
  aImage.Canvas.Ellipse(Round(aImage.Left / 2),
  Round((aImage.Top + aImage.Height) / 2),
  Round(aImage.Left / 2 + 2 * r*10),
  Round((aImage.Top + aImage.Height) / 2 + 2 * r*10));
end;

Применение:

Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Circle(2, Edit1, Image1);
end;

@Пытливый · 01.10.2019, 00:39

универсальная формула подсчёта произвольной фигуры

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

@northener · 01.10.2019, 02:05

Не по теме:

Сообщение от Пытливый

если вы помните, то Архимеду тоже дали очень похожую задачку

Архимеду было проще. Он как и мы все живём в трехмерном мире. :)

@FromOutSide · 01.10.2019, 08:00 **[ТС]**

Не по теме:

Сообщение от Matan!

Можете помочь лучше - флаг в руки.

При чем тут это??? Спорить и не собирался. Я не говорил даже что могу лучше, если вы могли заметить, то автор этой темы - я, значит я как минимум прошу, а не предлагаю. И поднимать тему я не хотел. Не думал что она вперед продвинется =)
За то ваш код поможет другим. Да я уже и не помню особо что хотел тогда. Если что никого обидеть я не хотел. Я наоборот подметил свою некомпетентность.

@Matan! · 01.10.2019, 09:15

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

Я наоборот подметил свою некомпетентность.

Это выразилось лишь в коротком последнем предложении. Зато остальной пост был о том, как "знающие" троллят "незнающих".
Собсно, почему ответил, а не промолчал. Я сам отвечаю другим, и задаю вопросы на форуме. То есть выступаю в обеих ролях.
Есть чёткие правила создания тем:
1. Назвать тему по типу короткого вопроса
2. В теле темы описать проблему
3. Привести, по возможности, свои наработки. Если это код с ошибкой, то указать, в каком месте и что именно пишет компилятор
4*(для продвинутых). Не забывать поздороваться в начале темы и поблагодарить за ответ "знающих".

А теперь вопрос на засыпку - какой процент создателей тем следуют этим правилам? Следовали бы, никаких проблем бы не было.

Добавлено через 2 минуты

Не по теме:

И некомпетентность надо подмечать не оффтопом, а полезными сообщениями/помощью другим вопрошающим. Так баланс мира будет соблюден:)

@FromOutSide · 01.10.2019, 10:53 **[ТС]**

Сообщение от Matan!

1. Назвать тему по типу короткого вопроса
2. В теле темы описать проблему
3. Привести, по возможности, свои наработки. Если это код с ошибкой, то указать, в каком месте и что именно пишет компилятор
4*(для продвинутых). Не забывать поздороваться в начале темы и поблагодарить за ответ "знающих".

1. Вроде коротко и ясно
2. Описываю, но с возможностью описать как надо - у меня проблемы, я всегда это указывал.
3. На мои наработки смотреть страшно "знающим", и от этого всегда троллинг, а сложные/нормальные коды я не знаю, потому леплю из "мусора" .
4. Всегда приветствую, заранее и после пишу спасибо, и даже в том случае если не ответили но хотя бы обратили внимания. Тут нет ничего продвинутого...

Не по теме:

Сообщение от Matan!

Зато остальной пост был о том, как "знающие" троллят "незнающих".

что тоже довольно коротко. но подлиннее расписал чутка =). вообще это к тому что люди которые знают, (не все) не хотят понимать тех, кто не знает, думая что так они их продвинут чуть далее, но в итоге не всегда так.

Сообщение от Matan!

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

теперь я ничего не понял. как полезные сообщения подмечают некомпетентность?

Не по теме:

и почему писал оффтопом, да потому что думал, это не заденет тему, и только потом понял что само сообщение это это как минимум уже сообщение, и влияет на тему в целом.

@Matan! · 01.10.2019, 11:07

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

как полезные сообщения подмечают некомпетентность?

Компенсируют.
FromOutSide, ну, все мы люди, и здесь есть любители покрасоваться, постебаться и т.д. Да, это порой раздражает, но что поделаешь..
А насчёт описания задачи - вот как Вы гуглу говорите, что Вам надо?
И здесь никто никому ничего не должен.
Впрочем, как-то мы от темы отошли.. Ща нам по бошке дадут за оффтоп и сопли в неположенном месте

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

@FromOutSide 禁止 13 / 11 / 2 Регистрация: 04.09.2014 Сообщений: 230

	Приложение для вычисления площади различных фигур 27.01.2015, 12:14. Показов 10104. Ответов 55 Метки нет (Все метки) Помогите с созданием приложения которое будет вычислять площадь различных фигур. определенных фигур нету. и если код будет сложным, то попрошу немного объяснить что к чему. 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.01.2015, 16:59
	Для ввода координат удобнее использовать StringGrig. Вводишь количество вершин, соответственно задаешь количество строк в таблице, количество столбцов 2 или 3 если первый для номеров вершин. 0

@Vabos 132 / 129 / 31 Регистрация: 12.12.2011 Сообщений: 463
	28.01.2015, 17:53
	Можно еще такой способ попробовать, почти интегрирование. Рисуем произвольную (кривые, отрезки, дуги - не важно) замкнутую фигуру известным цветом (например черным) на фоне известного цвета (например - белый). После этого обходим все пикселы получившегося битмапа и считаем сколько пикселов цвета фона оказались внутри фигуры. Также определяем крайние точки фигуры (Верх, низ, лево, право), чтобы рассчитать габаритные размеры в пикселах. Остается только задать габаритные размеры фигуры в именованных единицах, чтобы вычислить площадь пиксела, а затем умножить ее на получившееся кол-во пикселов внутри фигуры. Естессно, будет погрешность, зато фигуры можно рисовать любые. 1

@FromOutSide
	29.09.2019, 12:47 [ТС]
	Не по теме: сижу читаю свои старые смски и чужие, и вижу как "знающие" троллят "не знающих", практически на каждом ответе, строют из себя дураков, но при этом умничая, обычно так поступают гопники или что то в этом сословии, ну в общем просто хотят поиздеваться или поприкалываться, хотя и в большей степени пытаются научить людей, но ведь это можно и надо делать без унижений. а еще сижу и краснею от своих смсок, но не больше чем с ваших (не ко всем относится) 0

Приложение для вычисления площади различных фигур

Решение