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

Найдите длину наибольшего отрезка

07.01.2010, 16:58. Показов 957. Ответов 4
Метки нет (Все метки)

Найдите длину наибольшего отрезка, соединяющего две точки с координатами, заданными таблицей F(2, N).
Тема "двумерные массивы". Не понимаю, как это должно выглядеть. Буду признателен за подсказку.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.01.2010, 16:58
Ответы с готовыми решениями:

Найти длину наибольшего отрезка
Помогите решить пожалуйста на Паскале: С помощью ij] i=1,2, j=1,….,n-действительной матрицы на...

Вычислить длину отрезка по координатам вершин
1) Разработать функцию f(x1, y1, x2, y2), который вычисляет длину отрезка по координатам вершин...

True or False|Вывести длину данного отрезка в метрах
1.Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски.Если конь за один ход...

Найдите разность наибольшего и наименьшего элементов массива
Написать программы и составить блок схемы к задачам: 2. Задайте массив из 10 элементов с...

4
Платежеспособный зверь
8772 / 4203 / 1610
Регистрация: 28.10.2009
Сообщений: 11,334
07.01.2010, 17:03 2
перебрать 2 раза оба массива и найти наибольшее значение корня из суммы квадратов разностей координат
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.01.2010, 17:09 3
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
uses crt;
function Rasst(x1,y1,x2,y2:real):real;
begin
Rasst:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var F:array[1..2,1..100] of real;
    mx:real;
    n,i,j,imx,jmx:integer;
begin
clrscr;
randomize;
write('Количество точек (нормально до 13) = ');
readln(n);
for i:=1 to n do
 begin
  F[1,i]:=10*random-4;
  F[2,i]:=10*random-4;
 end;
write('Нoмер точки ');
for i:=1 to n do write(i:5);
writeln;
write('координата Х');
for i:=1 to n do write(F[1,i]:5:1);
writeln;
write('координата Y');
for i:=1 to n do write(F[2,i]:5:1);
writeln;
writeln;
mx:=Rasst(F[1,1],F[2,1],F[1,2],F[2,2]);
imx:=1;jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if Rasst(F[1,i],F[2,i],F[1,j],F[2,j])>mx then
 begin
  mx:=Rasst(F[1,i],F[2,i],F[1,j],F[2,j]);
  imx:=i;
  jmx:=j;
 end;
writeln('Длина наибольшего отрезка между точками a[',imx,']  a[',jmx,'] = ',Rasst(F[1,imx],F[2,imx],F[1,jmx],F[2,jmx]):0:2);
readln
end.
1
Платежеспособный зверь
8772 / 4203 / 1610
Регистрация: 28.10.2009
Сообщений: 11,334
07.01.2010, 20:36 4
Вот ты молодец. С праздником!
0
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 3
08.01.2010, 03:24  [ТС] 5
даа... спасибо огромное за оказанную помощь. сам бы не додумался.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2010, 03:24
Помогаю со студенческими работами здесь

Найти длину отрезка в метрах.(решать с помощью оператора case of)
единицы длины пронумерованы следующим...

Вывести длину отрезка прямой внутри окружности с точностью до 5 десятичных цифр
Имеется окружность радиуса R с центром в (x,y) и прямая, заданная координатами двух своих точек....

Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов
народ помогите решить задачки 1Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую...

Описать функцию Leng вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов
3. Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости...


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

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

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