иван46
1

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

27.05.2012, 22:01. Показов 1822. Ответов 1
Метки нет (Все метки)

с помощью матрицы А(nxm)в плоскости задано n точек так ,что а[1,j],а[2,j]- координаты J-й точки.точки попарно соединены отрезками.найти длину наибольшего отрезка и вывести его координаты .
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2012, 22:01
Ответы с готовыми решениями:

Найти координаты точек отрезка если известны координаты концов отрезка
Отрезок АВ разделен на 5 равных частей точками С,D,Е,F найти координаты точек D,С если известны...

Обработка двумерных массивов с помощью процедур и функций.
Дана целочисленная квадратная матрица. Определить: 1) сумму элементов в тех столбцах, которые не...

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

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

1
0 / 0 / 1
Регистрация: 22.05.2012
Сообщений: 4
31.05.2012, 19:40 2
Лучший ответ Сообщение было отмечено как решение

Решение

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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2012, 19:40
Помогаю со студенческими работами здесь

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


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

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

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