С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
golevkolya
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 28
1

Определить номера точек, которые могут являться вершинами равнобедренного треугольника

30.01.2012, 15:59. Просмотров 1105. Ответов 0
Метки нет (Все метки)

В одномерном массиве с четным количеством элементов(2N) находятся координаты N точек плоскости.
Они располагаются в следующем порядке: x1,y1,x2,y2,x3,y3…Определить номера точек, которые могут
являться вершинами равнобедренного треугольника.

В этой программе я ни с чем не перестарался?

Pascal
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
const
  t = 0.00001; nmax = 100;
function modul(x1, y1, x2, y2: real): real;
begin
  modul := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
function Ravn(x1, y1, x2, y2, x3, y3: real): boolean;
begin
  if (abs(modul(x1, y1, x2, y2) - modul(x1, y1, x3, y3)) < t)
  or (abs(modul(x1, y1, x2, y2) - modul(x2, y2, x3, y3)) < t)
  or (abs(modul(x1, y1, x3, y3) - modul(x2, y2, x3, y3)) < t)
    then 
    Ravn := true else Ravn := false;
end;
var
  a: array[1..nmax] of integer;
  n, i, j, k, flag: integer;
begin
  repeat
    write('Введите количество точек: ');
    readLN(n);
  until n >= 3;
  n := n * 2;
  writeln('Введите координат точек:');
  for i := 1 to n do
    read(A[i]);
  write('X=');
  for i := 1 to n - 1 do
    if odd(i) then write(a[i]:4);
  writeln;
  write('Y=');
  for i := 2 to n do
    if i mod 2 = 0 then write(a[i]:4);
  writeln;
  writeln('Вершины равнобедренных треугольников:');
  flag := 0;
  for i := 1 to n - 5 do
    for j := i + 2 to n - 3 do
      for k := j + 2 to n - 1 do
        if Ravn(a[i], a[i + 1], a[j], a[j + 1], a[k], a[k + 1]) then
        begin
          flag := 1;
          writeln(i, ',', i + 1, '  ', j, ',', j + 1, '  ', k, ',', k + 1);
        end;
  if flag = 0 then write('Таких точек нет');
  readln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2012, 15:59
Ответы с готовыми решениями:

В заданном множестве точек на плоскости найдите четыре точки, которые могут служить вершинами квадрата
1)В заданном множестве точек на плоскости найдите четыре точки, которые могут...

Определить, могут ли заданные точки быть вершинами тупоугольного треугольника
Даны координаты трех точек на плоскости. Если они могут быть вершинами...

Определить номера точек, которые могут являться вершинами равнобедренного треугольника.
Не могу с этим справится) 1. Задан массив (VAR A: ARRAY OF '0'..'9'; )....

Определить номера точек, которые могут являться вершинами равнобедренного треугольника.
Помогите сделать программу pascal. В одномерном массиве с четным количеством...

Определить номера точек, которые могут являться вершинами равнобедренного треугольника
Мне сегодня нужно решить задачи до 5 часов. Помоготе хоть чемто!!!! Я уже...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2012, 15:59

Определить номера точек (хрянящихся в массиве), которые могут являться вершинами квадрата
Вот условие программы: В одномерном массиве с четным количеством элементов...

Определить, могут ли числа являться длинами сторон треугольника
Во входном файле даны 3целых числа а,в,с. Определить, могут ли они являться...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru