@Alertoso

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

Как вывести не только значение радиуса, но и точки?
program
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.
  • Вопрос задан
  • 86 просмотров
Пригласить эксперта
Ваш ответ на вопрос

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

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