Pagini recente » Cod sursa (job #2839411) | Cod sursa (job #275276) | Cod sursa (job #2935661) | Cod sursa (job #2390677) | Cod sursa (job #926196)
Cod sursa(job #926196)
program infas;
type hacking=record
x,y:real;
end;
var f,g:text;
v:array[1..120000] of hacking;
viz:array[1..120000] of 0..1;
retine:array[1..120000] of longint;
n,i:longint;
begin
assign (f,'infasuratoare.in'); reset (f);
assign (g,'infasuratoare.out'); rewrite (g);
readln (f,n);
indice:=1;
for i:=1 to n do
begin
readln (f,v[i].x,v[i].y);
if v[i].y<v[indice].y then
indice:=i
else
if v[i].y=v[indice.y then
if v[i].x<v[indice].x then
indice:=i;
end;
while viz[indice]=0 do
begin
for i:=1 to n do
begin
if viz[i]=0 then
begin
unghi:=arctan(x[i]/x[
end;
end;
end;
end.