Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
9 / 2 / 0
Регистрация: 19.11.2013
Сообщений: 58
1

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

13.03.2014, 22:24. Просмотров 284. Ответов 0
Метки нет (Все метки)


Здравствуйте. Есть код, который надо немного дополнить, чтобы была возможность считывать исходные данные из файла, заранее спасибо.
Условие :
На плоскости задано n произвольно расположенных окружностей. Определить пару наиболее удаленных друг от друга окружностей. Исходные данные считываются из текстового файла input.txt.
Результаты в графическом виде отображаются на экране.

Сам код
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
program geometr;
uses crt, Graph;
type dannie = record
       X,Y,R: array [1..10] of integer;
end;
 
const
  wm=50;
  wn=50;
Var
  wx,wy:integer;
  okr: dannie;
  i, j, n, k, l,drv,mode: integer;
  max, rast: real;
begin
  Drv:=Detect;
  InitGraph(Drv,Mode, '');
  wx:=GetMaxX div 2;
  wy:=GetMaxY div 2;
  SetColor(Red);
  Line (0,wy,GetMaxX,wy);
  Line (wx,0,wx,GetMaxY);
  SetColor(Green);
  i:=1;
  While (wx-i*wm>0) or (wx+i*wm<GetmaxX) do
  begin
   Line(wx-i*wm,0,wx-i*wm,GetMaxY);
   Line(wx+i*wm,0,wx+i*wm,getMaxY);
   inc(i);
   end;
   i:=1;
   while (wy-i*wn>0) or (wy+i*wn<GetMaxY) do
   begin
   Line(0,wy-i*wn,GetMaxX,wy-i*wn);
   Line(0,wy+i*wn,GetMaxX,wy+i*wn);
   inc(i);
   end;
   setcolor(white);
   randomize;
   n:=10;     {Є®«ЁзҐбвў® ЄагЈ®ў}
  for i:=1 to n do
    begin
      l:=Random(16)-8;
      okr.X[i]:=l;
      l:=Random(20)-10;
      okr.Y[i]:=l;
      l:=Random(6)+1;
      okr.R[i]:=l;
    end;
  for i:=1 to n do
      Circle(wx+okr.X[i]*wn,wy-okr.Y[i]*wm,okr.R[i]*wm);
  max:=0;
  for i:=1 to n-1 do
    begin
      for j:=i+1 to n do
        begin
          rast:=Sqrt(Sqr(okr.X[j]-okr.X[i])+Sqr(okr.Y[j]-okr.Y[i]))-okr.R[j]-okr.R[i];
          if rast>max then
            begin
              max:=rast;
              k:=i;
              l:=j;
            end;
        end;
    end;
  SetColor(yellow);
  MoveTo(wx+okr.X[k]*wn,wy-okr.Y[k]*wm);
  LineTo(wx+okr.X[l]*wn,wy-okr.Y[l]*wm);
  readln;
  closegraph;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.03.2014, 22:24
Ответы с готовыми решениями:

Определить пару наиболее удаленных друг от друга позиций массива
Определить пару наиболее удаленных друг от друга позиций массива, в которых располагаются...

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

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

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

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2014, 22:24

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

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

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

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

Найдите пару треугольников, максимально удаленных друг от друга
Помогите пожалуйста. Надо написать функцию с использованием рекурсии. Пусть дано множество ...

Рекурсия: найти пару треугольников, максимально удаленных друг от друга
Пусть дано n треугольников, заданных координатами своих вершин. Найдите пару треугольников,...

Найти две наиболее удаленных друг от друга точки
Структуры: I. Решить задачу, используя структуру point для хранения координат точки: Множество...


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

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

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