Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 11.01.2021
Сообщений: 5
1

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

11.01.2021, 21:23. Просмотров 1143. Ответов 1

В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, x2, y2, x3, y3 и т.д. Определить номера точек, которые могут являться вершинами равнобедренного треугольника.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2021, 21:23
Ответы с готовыми решениями:

В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости....

В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости....

В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости.
В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости. Они...

В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости....

1
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,077
12.01.2021, 09:36 2
Лучший ответ Сообщение было отмечено arteezybabyrage как решение

Решение

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
//функция определяющая равнобедренный(в том числе и равносторонний)треугольник
function ravn(x1,y1,x2,y2,x3,y3:integer):boolean;
//вспомогателная функция определения квадрата длины отрезка
function kd(x1,y1,x2,y2:integer):integer;
begin
kd:=sqr(x1-x2)+sqr(y1-y2);
end;
begin
ravn:=(kd(x1,y1,x2,y2)=kd(x1,y1,x3,y3))
    or(kd(x1,y1,x2,y2)=kd(x2,y2,x3,y3))
    or(kd(x1,y1,x3,y3)=kd(x2,y2,x3,y3))
end;
var t:array[1..40]of integer;
    n,i,j,k,q:integer;
begin
repeat
write('Ввежите количество точек от 3 до 50 n=');
readln(n);
until n in [3..20];
randomize;
for i:=1 to 2*n do
t[i]:=-9+random(19);
writeln('Точки и их координаты');
for i:=1 to n do
 begin
  write(i:2,'[',t[2*i-1]:2,';',t[2*i]:2,']  ');
  if i mod 7=0 then writeln;
 end;
writeln;
q:=0;
writeln('Номера точек образующих равнобедренные треугольники');
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
if ravn(t[2*i-1],t[2*i],t[2*j-1],t[2*j],t[2*k-1],t[2*k])then
 begin
  q:=q+1;
  write('(',i:2,',',j:2,',',k:2,') ');
  if q mod 7=0 then writeln;
 end;
if q=0 then write('Таких точек нет')
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.01.2021, 09:36

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

В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости....

В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располага
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости....

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

В одномерном массиве находятся координаты точек плоскости
Решите плиззз В одномерном массиве с четным количеством элементов (2N) находящиеся координаты N...

В одномерном массиве с четным количеством элементов (2N)
В одномерном массиве с четным количеством элементов (2N) находятся координаты Лоточек плоскости....

В одномерном массиве с четным количеством элементов
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости....


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

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

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