0 / 0 / 0
Регистрация: 25.02.2014
Сообщений: 13
1

Найти координаты максимально и минимально удаленных точек в каждой четверти от начала координат

09.04.2014, 20:00. Показов 1766. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На координатной плоскости заданы 20 точек. Найти координаты максимально и минимально удаленных точек в каждой четверти от начала координат. Найти периметр полученных фигур и закрасить. На QBasicе
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2014, 20:00
Ответы с готовыми решениями:

Известны координаты двух точек. Найти расстояния от начала координат до этих точек.
Известны координаты двух точек A(x1,y1) и B(x2,y2). Найти расстояния от начала координат до этих...

Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R
Линейный массив A содержит 2*N элементов, значения которых задаются по следующей формуле...

Среди точек массива, лежащих в некоторой четверти, найти точку, наиболее близкую/удаленную от начала координат
Дан массив из N точек. Среди всех точек этого массива, лежащих в...

Заданы координаты 10 точек.Найти точку самую дальнюю от начала координат и найти расстояние.
Заданы координаты 10 точек.Найти точку самую дальнюю от начала координат и найти расстояние.

2
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
09.04.2014, 20:36 2
Т.е. сколько точек-то получится? Напишите условие точнее.
0
Заблокирован
10.04.2014, 13:13 3
Лучший ответ Сообщение было отмечено Elina Okenova как решение

Решение

Могу предложить вам часть кода к вашей задаче.
Предполагается.
Что в каждой четверти существует хотя бы одна точка.
Для этого случая найдены периметры четырехугольников.
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
37
38
39
40
41
42
43
44
45
46
47
48
49
OPTION BASE 1
DEFSNG P, X-Y
DEFINT I
DIM x(20)
DIM y(20)
FOR i = 1 TO 20
   IF (x > 0) AND (y > 0) THEN
      x1 = x(i)
      y1 = y(i)
      x11 = x(i)
      y11 = y(i)
      IF x(i) < x1 THEN x1 = x(i)
      IF y(i) < y1 THEN y1 = y(i)
      IF x(i) > x11 THEN x11 = x(i)
      IF y(i) > y11 THEN y11 = y(i)
   ELSEIF (x > 0) AND (y <= 0) THEN
      x2 = x(i)
      y2 = y(i)
      x22 = x(i)
      y22 = y(i)
      IF x(i) < x2 THEN x2 = x(i)
      IF y(i) < y2 THEN y2 = y(i)
      IF x(i) > x22 THEN x22 = x(i)
      IF y(i) > y22 THEN y22 = y(i)
   ELSEIF (x <= 0) AND (y <= 0) THEN
      x3 = x(i)
      y3 = y(i)
      x33 = x(i)
      y33 = y(i)
      IF x(i) < x3 THEN x3 = x(i)
      IF y(i) < y3 THEN y3 = y(i)
      IF x(i) > x33 THEN x33 = x(i)
      IF y(i) > y33 THEN y33 = y(i)
   ELSE
      x4 = x(i)
      y4 = y(i)
      x44 = x(i)
      y44 = y(i)
      IF x(i) < x4 THEN x4 = x(i)
      IF y(i) < y4 THEN y4 = y(i)
      IF x(i) > x44 THEN x44 = x(i)
      IF y(i) > y44 THEN y44 = y(i)
   END IF
NEXT i
p1 = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2) + SQR((x2 - x3) ^ 2 + (y2 - y3) ^ 2) + SQR((x3 - x4) ^ 2 + (y3 - y4) ^ 2) + SQR((x4 - x1) ^ 2 + (y4 - y1) ^ 2)
p2 = SQR((x11 - x22) ^ 2 + (y11 - y22) ^ 2) + SQR((x22 - x33) ^ 2 + (y22 - y33) ^ 2) + SQR((x33 - x44) ^ 2 + (y33 - y44) ^ 2) + SQR((x44 - x11) ^ 2 + (y44 - y11) ^ 2)
PRINT "p1="; p1
PRINT "p2="; p2
END
Удачи вам!
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2014, 13:13
Помогаю со студенческими работами здесь

Для n точек плоскости найти расстояние от начала координат до каждой из них
Разработать алгоритм и программу с единственным циклом для обработки одномерных массивов. При...

Найти координаты точки наиболее удалённой от начала координат. Если таких точек несколько, вывести первую найденную
Прошу прощения. Тема закрыта (модератор, удалите) Сам нашел ошибку. :)

При заданных координатах для n точек плоскости XOY найти расстояние от начала координат до каждой из них
Разработать программу с единственным циклом для обработки одномерых массивов: При заданных...

Заданы координаты трех точек. Подсчитать сумму их расстояний до начала координат
заданы координаты трех точек. Подсчитать сумму их расстояний до начала координат. Использовать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru