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

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

01.11.2013, 15:09. Показов 1492. Ответов 7
Метки нет (Все метки)

С помощью произвольного числового двумерного массива(X11 X12 ... X1N)
(X21 X22 ... X2N) на плоскости заданно N точек max, что X1i, X2j - координаты j-й точки. Точки попарно соединены отрезками. Найти длину наибольшего и наименьшего отрезка. ПОМОГИТЕ ПОЖАЛУЙСТА!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.11.2013, 15:09
Ответы с готовыми решениями:

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

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

Найти длину наименьшего отрезка числовой оси, содержащего все элементы последовательности
Даны натуральное число n, действительные числа x1, x2, …, xn. Найти длину наименьшего отрезка...

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

7
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
01.11.2013, 15:52 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
Function GetLengthLine(x1,y1,x2,y2 : Real) : Real;
Begin
  GetLengthLine:=Sqrt(sqr(x2-x1)+sqr(y2-y1));
End;
0
79 / 73 / 66
Регистрация: 11.04.2013
Сообщений: 221
01.11.2013, 21:14 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
program progr;
const n=10;
      m=10;
      
var a: array [1..n,1..m] of real;
    i, j, k : byte;
    min, max: byte;
    S: array [1..n] of real;
begin
k:=1;
min:=1;
max:=1;
Randomize;
 
for i:=1 to n-1 do
    for j:= 1 to m-1 do  begin
    a[i, j]:= 1 + 10*random;
    S[i]:=sqrt((a[n,m]-a[i,j])*(a[n,m]-a[i,j]));
 if S[min] > S[i] then min:=i;
 writeln(a[i,j], ' ', min);
 end;
for i:=1 to n do
    for j:= 1 to m do  begin
    if S[max] < S[i] then max:=i;
    end;
writeln('äëèíà íàèìåíüøåãî îòðåçêà ', S[min]);
writeln('äëòíà íàèáîëüøåãî îòðåçêà ', S[max]);
END.
1
1 / 1 / 0
Регистрация: 04.10.2013
Сообщений: 38
01.11.2013, 21:20  [ТС] 4
спасибо
0
79 / 73 / 66
Регистрация: 11.04.2013
Сообщений: 221
01.11.2013, 21:21 5
Можно еще вместо Random вносить значения в массив вручную, тогда надо переписать немного.
1
1 / 1 / 0
Регистрация: 04.10.2013
Сообщений: 38
01.11.2013, 21:22  [ТС] 6
напиши ту часть где можно убрать
0
79 / 73 / 66
Регистрация: 11.04.2013
Сообщений: 221
01.11.2013, 21:35 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program progr;
 
var a: array [1..10,1..10] of real;
    i, j, k, n, m : byte;
    min, max: byte;
    S: array [1..10] of real;
begin
writeln('сколько элементов будет в строке? ');
readln(n);
writeln();
readln(m);
k:=1;
min:=1;
max:=1;
writeln('Вводите значения  поочереди');
for i:=1 to n do
    for j:= 1 to m do
readln(a[i,j]);
 
for i:=1 to n-1 do
    for j:= 1 to m-1 do  begin
    a[i, j]:= 1 + 10*random;
    S[i]:=sqrt((a[n,m]-a[i,j])*(a[n,m]-a[i,j]));
 if S[min] > S[i] then min:=i;
 writeln(a[i,j], ' ', min);
 end;
for i:=1 to n do
    for j:= 1 to m do  begin
    if S[max] < S[i] then max:=i;
    end;
writeln('длина наименьшего отрезка ', S[min]);
writeln('дитна наибольшего отрезка ', S[max]);
END.
0
ermolay
02.11.2013, 11:12     Найти длину наибольшего и наименьшего отрезка
  #8
 Комментарий модератора 
В эту тему перенесено сообщение из темы-дубля
АртемГ, Дублирование темы, а также кросспостинг (создание одинаковых тем в разных разделах) запрещены правилами форума. Не возбраняется "поднимать" тему, то есть написать в теме "тема/задача/проблема актуальна", но с разумной периодичностью.
Соблюдайте правила форума! Последующие нарушения правил форума повлекут штрафные санкции.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.11.2013, 11:12

Определить длину наибольшего отрезка
На плоскости 5 точек заданы своими координатами: (42,1; 0,33), (14,08; 21), (-11; -4), (13,05;...

Найти среднее арифметическое наибольшего и наименьшего из 8 чисел
ребят, помогите пожалуйста решить задачку. Ввести 8 чисел с клавиатуры. Найти среднее...

Найти квадрат наибольшего и куб наименьшего из трех чисел
Знайти квадрат найбільшого із трьох чисел A, B, C і куб найменшого з цих чисел!!Нада оч!! Найти...

Найти среднее арифметическое наибольшего и наименьшего элементов массива
Дан массив D из n элементов (n&lt;=45). Найти среднее арифметическое наибольшего и наименьшего...


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

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

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