Submission #5829188


Source Code Expand

var
 n,i,j:longint;
 a,b:array[0..105] of longint;
 max:real;
function max1(x,y:real):real;
begin
 if x>y then exit(x) else exit(y);
end;
begin
 readln(n);
 for i:=1 to n do readln(a[i],b[i]);
 for i:=1 to n-1 do
  for j:=i+1 to n do
   max:=max1(max,sqrt((a[i]-a[j])*(a[i]-a[j])+(b[i]-b[j])*(b[i]-b[j])));
  write(max:0:6);
end.

Submission Info

Submission Time
Task A - 2点間距離の最大値 ( The longest distance )
User luogu_bot5
Language Pascal (FPC 2.6.2)
Score 100
Code Size 344 Byte
Status AC
Exec Time 0 ms
Memory 128 KB

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 26
Set Name Test Cases
All 00_max.txt, 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, 00_sample_04.txt, 00_sample_05.txt, 01_rnd_00.txt, 01_rnd_01.txt, 01_rnd_02.txt, 01_rnd_03.txt, 01_rnd_04.txt, 01_rnd_05.txt, 01_rnd_06.txt, 01_rnd_07.txt, 01_rnd_08.txt, 01_rnd_09.txt, 01_rnd_10.txt, 01_rnd_11.txt, 01_rnd_12.txt, 01_rnd_13.txt, 01_rnd_14.txt, 01_rnd_15.txt, 01_rnd_16.txt, 01_rnd_17.txt, 01_rnd_18.txt, 01_rnd_19.txt
Case Name Status Exec Time Memory
00_max.txt AC 0 ms 128 KB
00_sample_01.txt AC 0 ms 128 KB
00_sample_02.txt AC 0 ms 128 KB
00_sample_03.txt AC 0 ms 128 KB
00_sample_04.txt AC 0 ms 128 KB
00_sample_05.txt AC 0 ms 128 KB
01_rnd_00.txt AC 0 ms 128 KB
01_rnd_01.txt AC 0 ms 128 KB
01_rnd_02.txt AC 0 ms 128 KB
01_rnd_03.txt AC 0 ms 128 KB
01_rnd_04.txt AC 0 ms 128 KB
01_rnd_05.txt AC 0 ms 128 KB
01_rnd_06.txt AC 0 ms 128 KB
01_rnd_07.txt AC 0 ms 128 KB
01_rnd_08.txt AC 0 ms 128 KB
01_rnd_09.txt AC 0 ms 128 KB
01_rnd_10.txt AC 0 ms 128 KB
01_rnd_11.txt AC 0 ms 128 KB
01_rnd_12.txt AC 0 ms 128 KB
01_rnd_13.txt AC 0 ms 128 KB
01_rnd_14.txt AC 0 ms 128 KB
01_rnd_15.txt AC 0 ms 128 KB
01_rnd_16.txt AC 0 ms 128 KB
01_rnd_17.txt AC 0 ms 128 KB
01_rnd_18.txt AC 0 ms 128 KB
01_rnd_19.txt AC 0 ms 128 KB