Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 0
Регистрация: 14.09.2010
Сообщений: 26
1

Напишите программу определения двух наиболее удаленных друг от друга точек

28.06.2011, 15:53. Показов 1266. Ответов 3
Метки нет (Все метки)

1. Координаты точек на плоскости заданы двумя массивами Х и У(в каждом по 10 элементов) . Напишите программу определения двух наиболее удаленных друг от друга точек.

В паскале вообще не шарю(( весь год фигней страдал((( хелпуйте плиз!
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2011, 15:53
Ответы с готовыми решениями:

Определить номера наиболее удаленных друг от друга точек
В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости. Они...

Найти номера наиболее и наименее удаленных друг от друга точек в массиве +4 задачи.
Любая на выбор, помогите пожалуйста решить!!!! 12. Задан массив действительных чисел....

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

Определить пару наиболее удаленный друг от друга точек.
четыре точки заданы координатами: А(4,8:-3) В(-6,5:1,2) С(-3,7:-4,5) D(7,8:2). Определить пару...

3
143 / 143 / 141
Регистрация: 05.04.2011
Сообщений: 270
28.06.2011, 16:19 2
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type m1=record
  x,y:longint;
end;
var a:array[0..10] of m1;
    n,i,j:longint;
    max:extended;
begin
    n:=10;
    for i:=1 to n do read(a[i].x,a[i].y);
 
    for i:=1 to n do
      for j:=i+1 to n do
        if sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y))>max then
            max:=sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y));
    writeln(max:0:5);
 
end.
1
1 / 1 / 0
Регистрация: 14.09.2010
Сообщений: 26
28.06.2011, 16:19  [ТС] 3
Примного благодарен!
0
1 / 1 / 0
Регистрация: 14.09.2010
Сообщений: 26
28.06.2011, 20:56  [ТС] 4
Найс мен

Добавлено через 4 часа 5 минут
Цитата Сообщение от Small Lamer Посмотреть сообщение
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type m1=record
  x,y:longint;
end;
var a:array[0..10] of m1;
    n,i,j:longint;
    max:extended;
begin
    n:=10;
    for i:=1 to n do read(a[i].x,a[i].y);
 
    for i:=1 to n do
      for j:=i+1 to n do
        if sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y))>max then
            max:=sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y));
    writeln(max:0:5);
 
end.
Чо то в этой проге ошибку выдает...
Error 116: Must be in 8087 mode to compile this.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.06.2011, 20:56

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Определить пару наиболее удаленных друг от друга точек
Четыре точки заданны координатами А(4,8,2) ; В(-6,5,I.2) ; С(-3,7,-4.5) ; D(7,8,2). Определить...

Найти среди точек пару наиболее удаленных друг от друга
Даны n точек плоскости (x1,y2),...(xn,yn). Найти среди них пару наиболее удаленных друг от друга. ...

Найти номера и координаты точек, наиболее удаленных друг от друга
Задано N точек своими координатами. Найти номера и координаты точек, наиболее удаленных друг от...

В случайном множестве точек соединить прямой линией две наиболее удаленные друг от друга
Поисковая система показала мне одну программу, решающую нечто подобное. Я был удивлён. Судя по...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.