Làm kinh tế đi các member ui!!!!!

Bài đầu tiên không khó. Giải thưởng là 20k cho người post code đúng nhất và nhanh nhất!

Rào ruộng
Phú ông cho rằng Bờm không biết tính toán và thích trêu Bờm. Lần này, khi thuê Bờm chăng dây rào ruộng cho mình, Phú ông hứa sẽ cho Bờm thửa ruộng to nhất nếu Bờm đáp ứng được yêu cầu đặt ra. Phú ông có N thửa ruộng được đánh số từ 1 đến N, nằm trong vùng đất có hai đường cái vuông góc với nhau mà ta có thể hình dung như một mặt phẳng với hai trục tọa độ. Bờ đắp quanh mỗi thửa ruộng có thể xem như một đường gấp khúc khép kín không tự cắt và đặc biệt ở chỗ các cạnh đều song song với các trục tọa độ. Bờm sẽ phải đem dây chăng dọc theo các bờ, viền quanh mỗi thửa ruộng. Gọi CX, CY tương ứng là chu vi của hai thửa ruộng X, Y, nếu CX là ước số của CY thì để rào cho X và Y, Bờm chỉ cần mang loại dây có độ dài CY. Phú ông yêu cầu Bờm cho biết cần mang ít nhất bao nhiêu loại dây để rào N thửa ruộng đó (hai đoạn dây có độ dài khác nhau thuộc hai loại khác nhau và ngược lại hai đoạn dây khác loại thì có độ dài khác nhau).
Yêu cầu: Hãy xác định giúp Bờm số loại dây ít nhất cần chuẩn bị.
[You must be registered and logged in to see this image.]
<nếu k thấy hình minh họa thì vô đây nhé: imageshack.us/photo/my-images/443/67698436.png/>
Dữ liệu: Vào từ file văn bản PERIM.INP:
•Dòng đầu tiên ghi số nguyên dương N (1≤N≤ 200) là số lượng thửa ruộng của Phú ông;
•Dòng thứ i trong N dòng tiếp theo mô tả thửa ruộng thứ i: đầu tiên là ki (4 ≤ ki ≤ 200) là số lượng đỉnh của ruộng thứ i (1 ≤ i ≤ N), tiếp theo là ki cặp tọa độ của các đỉnh được liệt kê chỉ theo một chiều nào đó đi vòng quanh hình (các tọa độ là các số nguyên có trị tuyệt đối không quá 20000).

Kết quả: Ghi ra file văn bản PERIM.OUT theo qui cách sau:
• Dòng đầu là một số nguyên dương M, đó là số loại dây.
• Trong dòng tiếp theo, độ dài của M loại dây được đưa ra theo thứ tự giảm dần.
Ví dụ:
PERIM.INP
5
12 -2 0 -2 2 0 2 0 4 2 4 2 6 4 6 4 8 6 8 6 2 8 2 8 0
12 1 -3 1 -2 2 -2 2 -1 3 -1 3 -4 4 -4 4 -5 -1 -5 -1 -4 0 -4 0 -3
10 8 -4 8 -3 7 -3 7 -2 5 -2 5 -4 6 -4 6 -5 9 -5 9 -4
10 11 2 12 2 12 7 11 7 11 8 8 8 8 6 10 6 10 5 11 5
6 9 -2 9 1 11 1 11 -1 12 -1 12 -2

PERIM.OUT
3
36 20 14

em mới làm đc inp nhưng chưa nghĩ ra output. thầy kiểm tra hộ em.

Code:

program perim_inp;
uses crt;
var f:text;
    a:array[1..200] of integer;
    i,i2:integer; {for...to...do}
    tdy,tdx:integer; {toa do}
    n,ki:integer;
begin
clrscr;
assign(f,'INP.TXT');
rewrite(f);
 repeat
 begin
 write('n= ');readln(n);
 end;
 until (n>=1) and (n<=200);
 write(f,n);writeln(#13);
for i:=1 to n do
 begin
 ki:=0;
  repeat
  begin
  write('So dinh= ');readln(ki);
  end;
  until (ki>=4) and (ki<=200);
 write(f,ki,' ');
 for i2:=1 to ki do
  begin
  tdy:=0;tdx:=0;
  repeat
  begin
  write('Toa do y= ');readln(tdy);
  write('Toa do x= ');readln(tdx);
  end;
  until (abs(tdy)<=20000) and (abs(tdx)<=20000);
  write(f,tdy,' ',tdx,' ');
  end;
 write(f);
 writeln(#13);
 end;
 write(#26);
close(f);
readln;
end.

[You must be registered and logged in to see this link.]
=====
Các bạn đăng bài ở dưới chú ý: nếu bài này là đúng thì các bạn có thể sử dụng code trên nhưng không đc post lại phần code này.

Ok, rất biểu dương tinh thần của bạn!
Sorj vì mình k nói đầy đủ trước, Những bài như này ta có file dữ liệu vào sẵn rồi (mình sẽ tạo ra khoảng 1000 file để test bài các bạn) các bạn chỉ cần viết chương trình để đọc dữ liệu xử lý theo yêu cầu và ghi ra file kết quả theo đúng định dạng thôi, (tức là bạn không phải viết đoạn chương trình nhập dữ liệu vào file input)

Mọi người ui, tích cực lên nào!!!!

cái này em đã nghĩ ra cách giải rùi nhưng vẫn cần làm theo nhóm để khắc phục các lỗi. bao h có tgian e sẽ post lên sau