Cod sursa(job #728140)

Utilizator shuiusuiu ciprian shuiu Data 28 martie 2012 15:13:47
Problema Stalpi Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
#include<fstream>
#include<cmath>
using namespace std;
int main()
{
int a[101][100],n,j,i,x,y,d,z;	
ifstream in("stalpi.in");
ofstream out("stalpi.out");
in>>n>>d;

double dz,l;
double v[101];
for(i=1;i<=n;i++)
	{in>>x>>y;
	a[y][0]++;
	j=a[y][0];
	a[y][j]=x;
	}
double max=100000,min;
for(i=1;i<=100;i++)
	v[i]=max;
for(i=1;i<=n;i++)
	{in>>x>>y;min=max;
	for(j=1;j<=a[y][0];j++)
		{z=a[y][j];
	l=(z-x)*(z-x)+d*d;
	dz=sqrt(l);
	if(min>dz) min=dz;
		}
		if(min<v[y]) v[y]=min;
	}
	double s=0;
for(i=1;i<=100;i++)
if(v[i]!=max) s+=v[i];
out<<s;
in.close();
out.close();
return 0;
}