Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
glykoman
1 / 1 / 0
Регистрация: 07.10.2013
Сообщений: 110
#1

Определить пару наиболее удаленных друг от друга окружностей - Turbo Pascal

30.12.2013, 00:06. Просмотров 361. Ответов 1
Метки нет (Все метки)

помогите решить задачу.

На плоскости задано n произвольно расположенных окружностей. Определить пару наиболее удаленных друг от друга окружностей.
Исходные данные считываются из текстового файла input.txt.
Результаты в графическом виде отображаются на экране.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.12.2013, 00:06
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить пару наиболее удаленных друг от друга окружностей (Turbo Pascal):

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

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

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

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

Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга - Turbo Pascal
Ребят, помогите, без них до сессии не допускают( Задача 2.1. Четыре круга заданы радиусами и координатами своих центров на плоскости....

Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга - Turbo Pascal
Помогите написать, заранее благодарен. Четыре круга заданы радиусами и координатами своих центров на плоскости. Найти пару кругов,...

1
Puporev
Модератор
52816 / 40627 / 13879
Регистрация: 18.05.2008
Сообщений: 94,226
30.12.2013, 08:49 #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
uses graph;
type okr=record
         x,y,r:longint;
         end;
var f:text;
    gd,gm,n,i,j,imx,jmx:integer;
    o:array[1..100] of okr;
    a:okr;
    d,mx:real;
    s,s1:string;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  read(f,a.x,a.y,a.r);
  n:=n+1;
  o[n]:=a;
 end;
close(f);
mx:=sqrt(sqr(o[1].x-o[2].x)+sqr(o[1].y-o[2].y))-o[1].r-o[2].r;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  d:=sqrt(sqr(o[i].x-o[j].x)+sqr(o[i].y-o[j].y))-o[1].r-o[2].r;
  if d>mx then
   begin
    mx:=d;
    imx:=i;
    jmx:=j
   end;
 end;
initgraph(gd,gm,'');
for i:=1 to n do
 begin
  circle(o[i].x,o[i].y,o[i].r);
  str(i,s);
  outtextXY(o[i].x,o[i].y,s);
 end;
setcolor(12);
if mx<=0 then outtextXY(250,240,'Net udalennyh okruznostey')
else
 begin
  circle(o[imx].x,o[imx].y,o[imx].r);
  str(imx,s);
  outtextXY(o[imx].x,o[imx].y,s);
  circle(o[jmx].x,o[jmx].y,o[jmx].r);
  str(jmx,s1);
  outtextXY(o[jmx].x,o[jmx].y,s1);
  outtextXY(200,240,'Naibolee udaleny okruznosti '+s+' i '+s1)
 end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2013, 08:49
Привет! Вот еще темы с ответами:

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

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

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

Найти номера и координаты точек, наиболее удаленных друг от друга - Pascal
Задано N точек своими координатами. Найти номера и координаты точек, наиболее удаленных друг от друга. Расстояние между точками определить...


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

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

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