Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти сумму положительных элементов массива https://www.cyberforum.ru/ pascal/ thread100652.html
Люди добрые, помогите, немогу решить задачи решаеться судьба зачёта помогите умоляю решить 2 задачи.
Вывести 15 разноцветных точек посередине экрана. Pascal
Изобразите в текстовом режиме 15 разноцветных точек посередине экрана.
Pascal Выделение вектора из матрицы по правилу
Есть матрица, размерность вводится пользователем, элементы формируются формулой. Из этой матрицы нужно выделить вектор Х, который соответствует первому по порядку ряду матрицы с наибольшей суммой...
Pascal Замена переменных в матрице Подскажите пожалуйста, каким образом из матрицы nxn заполненную двумя неравными цифрами(например x и y), без оператора if, произвести обмен x на y. ps. Просто подскажите при помощи чего это... https://www.cyberforum.ru/ pascal/ thread100637.html
Pascal Циклический сдвиг в массиве. https://www.cyberforum.ru/ pascal/ thread100630.html
Написать программу, которая вводит с клавиатуры непустой массив целых чисел размерностью n, циклически сдвигает элементы вправо на k-позиций(k<n), и печатает результат. Цикличность означает, что...
Pascal определить, при каком R площадь круга превысит значение 100 кв. см.
Дан круг радиусом R. Начиная с начального значения радиуса Rн = 1 см определить, при каком R площадь круга превысит значение 100 кв. см. Изменение R осуществить с шагом 1 см. Вычислить значение...
Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом главной диагонали. Pascal
:( Помогите пожалуйста решить задачи... 1)Дана целочисленная квадратная матрица.Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. 2)Заполнить массив А...
Pascal Массивы Заданы матрицы А(4х7) и В(4х5), элементы которых вычисляются по формулам : a ij= i-j / 2.3-(i+j); b ij = i-j / 3.77-(i+j) . Из положительных элементов матриц сформируйте два новых вектора Za и Zb.... https://www.cyberforum.ru/ pascal/ thread100606.html
Pascal Исключить повторные вхождения одного и того же числа из типизированного файла https://www.cyberforum.ru/ pascal/ thread100603.html
Дан файл, компоненты которого являются целыми числами. Преобразовать его, исключив повторные вхождения одного и того же числа.
Pascal Ввести свой возраст. Если возраст больше 18 лет, то напечатать фразу «ты- совершеннолетний», иначе напечатать – «до совершеннолетия осталось столько-т Ввести свой возраст. Если возраст больше 18 лет, то напечатать фразу «ты- совершеннолетний», иначе напечатать – «до совершеннолетия осталось столько-то дней» Помогите решить пожалуйста!!! в... https://www.cyberforum.ru/ pascal/ thread100595.html
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
03.03.2010, 12:14 0

Среди заданного множества точек найти две точки с максимальным расстоянием между ними

03.03.2010, 12:14. Показов 2713. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено SeaFlyer как решение

Решение

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
uses crt;
type point=record
           x,y:real;
           end;
function Rasst(a,b:point):real;
begin
Rasst:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
var a:array[1..100] of point;
    max:real;
    n,i,j,imx,jmx:integer;
begin
clrscr;
randomize;
write('Количество точек (нормально до 13) = ');
readln(n);
writeln('Введите координаты точек:');
for i:=1 to n do
 begin
  writeln('Точка ',i);
  write('x=');readln(a[i].x);
  write('y=');readln(a[i].y);
 end;
clrscr;
write('Нoмер точки ');
for i:=1 to n do write(i:5);
writeln;
write('координата Х');
for i:=1 to n do write(a[i].x:5:1);
writeln;
write('координата Y');
for i:=1 to n do write(a[i].y:5:1);
writeln;
writeln;
max:=0;imx:=1;jmx:=1;
for i:=1 to n-1 do
for j:=i+1 to n do
if Rasst(a[i],a[j])>max then
 begin
  max:=Rasst(a[i],a[j]);
  imx:=i;
  jmx:=j;
 end;
write('Максимальное расстояние между точками ',imx,' и ',jmx,' =',max:0:1);
readln
end.


Вернуться к обсуждению:
Среди заданного множества точек найти две точки с максимальным расстоянием между ними
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2010, 12:14

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

Дано множество A из N точек на плоскости. Найти точку (вывести её номер и значение) среди всех точек этого множества
Дано множество A из N точек на плоскости. Найти точку (вывести её номер и значение) среди всех...

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

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

Перечислить точки заданного множества точек на плоскости
Порядок на точках плоскости определим следующим образом: (х,у)=&lt;(u,v), если либо x&lt;u, либо x=u и...

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