Cod sursa(job #926196)

Utilizator andrei_toaderToader Andrei Sorin andrei_toader Data 24 martie 2013 23:50:31
Problema Infasuratoare convexa Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.65 kb
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.