@Alertoso

Как вывести не только значение радиуса, но и точки?

Помогите, пожалуйста, до конца разобраться в алгоритме
program Project2;

{$APPTYPE CONSOLE}
Type
  Telem=record
	X, Y:longint;
  end;
  ArrType = array[1..100] of telem;

Function MaxR(TX,TY:longint; A:arrType; n:word):Extended;
var
  R:Extended;
  i:longint;
Begin
  r:=0;
  for i:=1 to n do begin
	If r<SQRT(SQR(a[i].X-TX)+SQR(a[i].y-ty)) then
	  r:=SQRT(SQR(a[i].X-TX)+SQR(a[i].y-ty));
  end;
  Result:=R;
    writeln(a[i].X);
end;

Var
  Arr:ArrType;
  Tx,Ty,n,i,j,SuperX,SuperY:longint;
  EnterB:boolean; NK:byte; TRR:Extended;
begin
  for i:=1 to 10 do
  begin
    readln(arr[i].X);
    readln(arr[i].Y);
  end;
  TRR:=MaxR(1,1,arr,10);

  {ïîèñê òî÷êè, ìàêñèìàëüíîå ðàññòîÿíèå äî îñòàëüíûõ â êîòîðîé ìèíèìàëüíî}
  For i:=1 to 10 do
	For j:=1 to 10 do begin
	  If MaxR(i,j,Arr,10)<TRR then
    begin
		SuperX:=i;
    SuperY:=j;
    writeln(SuperX);
  writeln(SuperY);
    TRR:=MaxR(i,j,Arr,10);
	  end
	end;
  TRR:=MaxR(i,j,Arr,10);
  writeln(TRR:0:8);
  readln;
end.
  • Вопрос задан
  • 74 просмотра
Пригласить эксперта
Ответы на вопрос 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
Какой точки? Ты хоть объясни, что за задача, решение которой ты стащил из сети.
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы