Hướng dẫn giải của Dạo chơi quanh nhà


Chỉ dùng lời giải này khi không có ý tưởng, và đừng copy-paste code từ lời giải này. Hãy tôn trọng người ra đề và người viết lời giải.
Nộp một lời giải chính thức trước khi tự giải là một hành động có thể bị ban.

Lưu ý: Các code mẫu dưới đây chỉ mang tính tham khảo và có thể không AC được bài tập này

Code mẫu của ladpro98

#include <iostream>
#include <cstdio>
#define FOR(i, a, b) for(int i = (a); i < (b); i++)
using namespace std;
int n, x, y, L;
long long u, v;

long long len(int x, int y)
    {return (u + x) * (u + x) + (v + y) * (v + y);}

int main() {
    ios :: sync_with_stdio(0); cin.tie(0);
    cin >> n >> L >> u >> v;
    cout << 1 << ' ';
    FOR(i, 1, n) {
        cin >> x >> y;
        if (len(x, y) < len(-x, -y)) {
            u += x; v += y; cout << 1 << ' ';
        }
        else {
            u -= x; v -= y; cout << 2 << ' ';
        }
    }
}

Code mẫu của RR

{$R+,Q+}
const
  FINP='';
  FOUT='';
  MAXN=100000;
var
  first,last,n:longint;
  l:int64;
  x,y:array[1..MAXN] of int64;
  xet,c,b:array[1..MAXN] of longint;
procedure inp;
var
  f:text;
  i:longint;
begin
  assign(f,FINP); reset(f);
  read(f,n,l);
  for i:=1 to n do
    read(f,x[i],y[i]);
  for i:=1 to n do b[i]:=i;
  close(f);
end;
procedure solve;
var
  i,cs:longint;
  gh,x1,y1,x2,y2,u,v:int64;
begin
  first:=1; last:=n;
  while first<last do
    begin
      x1:=x[first]; y1:=y[first]; cs:=b[first];
      x2:=x[first+1]; y2:=y[first+1];
      inc(first);
      u:=sqr(x1+x2)+sqr(y1+y2);
      v:=sqr(x1-x2)+sqr(y1-y2);
      if first=last then gh:=2*l*l else gh:=l*l;
      if u<=gh then
        begin
          x[first]:=x1+x2;
          y[first]:=y1+y2;
        end
      else if v<=gh then
        begin
          x[first]:=x2-x1;
          y[first]:=y2-y1;
          c[cs]:=1;
        end
      else
        begin
          inc(last);
          x[last]:=x1; y[last]:=y1; b[last]:=cs;
        end;
    end;
  xet[b[last]]:=1;
  for i:=last-1 downto 1 do
  if xet[b[i]]=0 then
    begin
      u:=b[i]; v:=b[i+1];
      if c[u]=0 then c[u]:=c[v]
      else c[u]:=1-c[v];
      xet[b[i]]:=1;
    end;
end;
procedure ans;
var
  f:text;
  i:longint;
begin
  assign(f,FOUT); rewrite(f);
  for i:=1 to n do write(f,c[i]+1,' ');
  close(f);
end;
begin
  inp;
  solve;
  ans;
end.

Bình luận

Hãy đọc nội quy trước khi bình luận.


Không có bình luận tại thời điểm này.