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

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

23.06.2008, 18:05. Показов 2260. Ответов 4
Метки нет (Все метки)

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

Найдите длину наибольшего отрезка
Найдите длину наибольшего отрезка, соединяющего две точки с координатами, заданными таблицей F(2,...

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

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

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

4
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.06.2008, 18:58 2
Код
[SIZE=2]
uses crt;
var n,i,j,k:integer;
dl,max:real;
a:array[1..2,1..100]of real;
function Dlina(x,y,z,q:real):real;
begin
Dlina:=sqrt(sqr(x-y)+sqr(z-q));
end;
begin
clrscr;
write('Kolichestvo tochek n=');
readln(n);
randomize;
Writeln('Massiv coordinat:');
for i:=1 to 2 do
     begin
        for j:=1 to n do
           begin
              a[i,j]:=random(20)+random-9;
              write(a[i,j]:5:2);
           end;
       writeln;
    end;
max:=0;
for j:=1 to n do
for k:=1 to n do
if (j<>k)then
     begin
       if Dlina(a[1,j],a[1,k],a[2,j],a[2,k])>max
       then max:=Dlina(a[1,j],a[1,k],a[2,j],a[2,k]);
     end;
writeln('Maximalnaja dlina otrezka=',max:5:2);
readln
end.
[/SIZE]
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
24.06.2008, 07:25 3
Держи блок-схему.
Вложения
Тип файла: doc Otrezki-блок-схема.doc (26.5 Кб, 60 просмотров)
0
ohes
07.12.2009, 19:09 4
Спасибо большое парни просто искал в нэте как матрицу задать а тут прям мая задача
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.12.2009, 20:39 5
Загрузил
Вложения
Тип файла: rar 17.rar (439 байт, 28 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2009, 20:39
Помогаю со студенческими работами здесь

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

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

Оформить функцию с именем proc1, которая принимает координаты концов отрезка и возвращает его длину.
1 Задача. Дано переменные x1,x2,y1,x2,l : real; Надо оформить функцию с именем proc1, которая...

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


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

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

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