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

@ЛиляЛат · Регистрация: 20.12.2011

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

помогите пожалуйста решить задачи, так как я сама в процедурах и функциях не разбираюсь.
Составить программу на QBasic :
а)с использованием процедуры
б)с использованием функции
1.пятиугольник задан координатами своих вершин.найти его площадь.
2.среди чисел из интервала от А до В найдите все простые числа.

заранее спасибо большое)***

@ЛиляЛат · 06.04.2012, 22:21 **[ТС]**

не ужели ни у кого ни каких мыслей?(((((-;

@Quiet Snow · 07.04.2012, 01:04

не ужели ни у кого ни каких мыслей?

Вполне серьёзный вопрос:а у вас они есть?

1.

пятиугольник задан координатами своих вершин.

Пятиугольник может быть любой? Или только правильный?
- Если правильный и вершины непоследовательно: находим центр(суммируем по осям и делим на 5),
расстояние от центра до любой вершины - это будет радиусом описанной окружности R.
Математических сайтов валом, берём формулы из инета и решаем:

PureBasic
1
2
Pi = 3.141592653589793
S = (5 * R ^ 2 / 2) * SIN(2 * Pi / 5)

- Если правильный и вершины последовательно:
Тогда находим расстояние между соседними двумя точками(берём первую и вторую), это будет
длиной стороны пятиугольника - t.

PureBasic
1
S = (5 * t ^ 2 / 4) * CTG(Pi / 5)

т.к. в бейсике нет котангенса, найдём его через триг. функции.
CTG(x) = COS(x) / SIN(x)
т.е. получим:

PureBasic
1
S = (5 * t ^ 2 / 4) * (COS(Pi / 5) / SIN(Pi / 5))

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

Для первых 2-х случаев код могу написать(уточните какой нужен), а для этого - нет,
извините жалко своё время и мозги.

2.
По второму заданию: если решать влоб, то создаём функцию, которая определяет простоту числа,
далее заталкиваем её в цикл от A до B. Более продвинутые алгоритмы подразумевают оптимизацию
(использование доп. памяти и алгоритмов типа этого) могу сделать влоб с исп. процедуры, надо?

Добавлено через 16 минут
2. Напишу сейчас, т.к. днём скорее всего некогда будет

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DECLARE SUB Simple (n%)
CLS
INPUT "Vvedite A: ", a
INPUT "Vvedite B: ", b
PRINT "Calculation please wait..."
  FOR Ch% = a TO b
     Simple Ch%
  NEXT
 
SUB Simple (n%)
 IF n% < 2 THEN EXIT SUB
   FOR i% = 2 TO n% - 1
      IF n% MOD i% = 0 THEN EXIT SUB
   NEXT
   PRINT n%;
END SUB

@PAnT0P · 19.04.2012, 02:46

Сообщение от ЛиляЛат

1.пятиугольник задан координатами своих вершин.найти его площадь.

Вычисление площади и периметра любого многоугольника по координатам вершин

QBasic/QuickBASIC
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
CLS
INPUT "Количество углов многоугольника: ", N
IF N > 2 THEN
  DIM A(1 TO 2, 1 TO N)
  'Ввод координат углов многоугольника
  FOR I = 1 TO N
    INPUT "Введите координаты угла X, Y: ", A(1, I), A(2, I)
  NEXT I
  'Расчет площади
  FOR I = 1 TO N - 2
    S = S + (A(1, I) - A(1, I + 2)) * A(2, I + 1)
  NEXT I
  S = S + (A(1, N - 1) - A(1, 1)) * A(2, N)
  S = S + (A(1, N) - A(1, 2)) * A(2, 1)
  S = ABS(S / 2)
  'Расчет периметра
  FOR I = 1 TO N - 1
    P = P + SQR((A(1, I) - A(1, I + 1)) ^ 2 + (A(2, I) - A(2, I + 1)) ^ 2)
  NEXT I
  P = P + SQR((A(1, N) - A(1, 1)) ^ 2 + (A(2, N) - A(2, 1)) ^ 2)
  PRINT
  PRINT "Углы многоугольника:"
  PRINT "N(X, Y)"
  FOR I = 1 TO N
    IF I < 27 THEN
      PRINT CHR$(I + 64); "("; A(1, I); ", "; A(2, I); ")"
    ELSE
      PRINT I; "("; A(1, I); ", "; A(2, I); ")"
    END IF
  NEXT I
  PRINT
  PRINT "Периметр:"; P
  PRINT " Площадь:"; S
ELSE
  PRINT "У многоугольника не может быть меньше трех углов!"
END IF

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@ЛиляЛат 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 45

	Пятиугольник задан координатами своих вершин. Найти его площадь 03.04.2012, 22:57. Показов 3610. Ответов 3 Метки нет (Все метки) помогите пожалуйста решить задачи, так как я сама в процедурах и функциях не разбираюсь. Составить программу на QBasic : а)с использованием процедуры б)с использованием функции 1.пятиугольник задан координатами своих вершин.найти его площадь. 2.среди чисел из интервала от А до В найдите все простые числа. заранее спасибо большое)*** 0

@ЛиляЛат 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 45
	06.04.2012, 22:21 [ТС]
	не ужели ни у кого ни каких мыслей?(((((-; 0