Snakepower
1

Точки попарно соединены отрезками. Найти длину наибольшего отрезка

15.01.2013, 21:16. Показов 1811. Ответов 2
Метки нет (Все метки)

Помогите решить. С помощью [Xij] i=1,2, j=1,….,n-действительной матрицы на плоскости задано n точек так,что X1j, X2j координаты j-той точки. Точки попарно соединены отрезками. Найти длину наибольшего отрезка. Заранее благодарен
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2013, 21:16
Ответы с готовыми решениями:

Дан номер единицы длины и длина отрезка L. Вывести длину данного отрезка в метрах
Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр,...

Дана матрица вещественных чисел. Все точки соединены отрезками. Вычислить сумму наибольшего отрезка
Дана матрица вещественных чисел В(5,2) координат пяти точек на плоскости: В(1,1) - х-ая координата...

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

Найти длину наибольшего отрезка
Помогите написать программу С помощью действительной матрицы х=(х11..х1n ...

2
2649 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,725
15.01.2013, 21:41 2
Цитата Сообщение от Snakepower Посмотреть сообщение
Помогите решить
Что не понятно ?
1
Snakepower
17.01.2013, 13:09 3
К сожалению, Delphi является для меня как обратная сторона луны. Необходимо написать код. Только вот как это сделать не понимаю

Добавлено через 22 минуты
У меня есть решение данной задачи на паскале (нашел в нет). Помогите перевести его в Delphi.
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
48
49
50
51
52
53
54
program lab_6;
uses crt;
const n=6;
type matr=array[1..2,1..n] of byte;
var a:matr;
i,k,j,j_max:byte;
max:real;
x,y:real;
b:array[1..n-1] of real;
begin
 
{SR+}
clrscr;
k:=1;
writeln('исходная матрица');
for i:=1 to 2 do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
begin
for j:=1 to n-1 do
b[j]:=sqrt(sqr(a[1,j]-a[2,j])+sqr(a[1,j+1]-a[2,j+1]));
 
end;
writeln(' длинны векторов ');
begin
for j:=1 to n-1 do
write( b[j]:5:2 );
end;
writeln;
 
begin
max:=b[1];
j_max:=1;
for j:=2 to n-1 do
if b[j]>max then
begin
max:=b[j];
j_max:=j;
end;
x:=(a[1,j_max+1]-a[1,j_max]);
y:=(a[2,j_max+1]-a[2,j_max]);
begin
writeln('координаты самого длинного вектора');
writeln( 'X=', x);
writeln( 'Y=', y);
end;
end;
end.
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует выделить этот код и на панели редактирования сообщения нажать кнопку: "PASCAL".


Добавлено через 14 часов 14 минут
Проблема решена. Благодарю всех кто ответил
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2013, 13:09
Помогаю со студенческими работами здесь

Найти длину наибольшего и наименьшего отрезка
С помощью произвольного числового двумерного массива(X11 X12 ... X1N) (X21 X22 ... X2N) на...

Найти длину наибольшего отрезка последовательности, состоящего из полных квадратов
дано натуральное число n, целые числа а1, ..., аn. Рассмотреть отрезки последовательности а1, ....,...

Даны координаты концов N - мерного отрезка (точки a и b). Найти его длину и наибольшую из координат точки а
Пропустил пары и теперь не знаю, как составить программу:boredom:

Найти длину наибольшего отрезка оси абсцисс, на котором графики функций совпадают
Всем хай! Сходу к делу. Условие задачи: найти длину наибольшего отрезка оси абсцисс, на котором...


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

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

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