Viết chương trình Tưới Ruộng Nhập vào: kích thước của khu ruộng đó In ra: tính ra tổng các thửa ruộng trong khu ruộng đó

0 bình luận về “Viết chương trình Tưới Ruộng Nhập vào: kích thước của khu ruộng đó In ra: tính ra tổng các thửa ruộng trong khu ruộng đó”

1. uses crt;
   var d:text; n,m,k,x,i,j,kq:longint; a,b:array[1..1000,1..1000]of longint;
   begin
   clrscr;
      assign(d,’input.pas’);reset(d);
         readln(d,m,n);
         readln(d,k);
         for i:=1 to k do readln(d,a[i,1],a[i,2]);
      close(d);
      assign(d,’output.pas’);rewrite(d);
      for x:=1 to k do
         for i:=1 to m do
            for j:=1 to n do
                  if (abs(i-a[x,1])<=2)and(abs(j-a[x,2])<=2) then b[i,j]:=1;
         for i:=1 to m do
            for j:=1 to n do
               if b[i,j]=0 then inc(kq);
         writeln(d,kq);
      close(d);
   end.

   Bình luận