Viết chương trình tính diện tích hình A được ghép bởi hcn và hình bán nguyệt . Biết chiều dài hcn gấp 3 lần chiều rộng hcn, bán kính hình bán nguyệt b

0 bình luận về “Viết chương trình tính diện tích hình A được ghép bởi hcn và hình bán nguyệt . Biết chiều dài hcn gấp 3 lần chiều rộng hcn, bán kính hình bán nguyệt b”

1. program A;

   uses crt;

   var i,n,d,t:integer;

          A:array[1..1000] of integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu: ‘);   readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   d:=0; t:=0;

   for i:=1 to n do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

     if A[i] mod 3=0 then

      begin

       d:=d+1; 

       t:=t+A[i];

      end;

    end;

   write(‘Co ‘,d,’ phan tu cua mang la boi cua 3 va tong cua chung la: ‘,t);

   readln

   end.

   var d,g:text; m,s:real; x,y:array[1..10000000]of longint;
   n,i,j,vt:longint;
   begin
   clrscr;
      assign(d,’input.pas’);reset(d);
         assign(g,’output.pas’);rewrite(g);
            readln(d,n);
            for i:=1 to n do read(d,x[i],y[i]);
            for i:=1 to n do
               begin
                  s:=0;
                  for j:=1 to n do s:=s+sqrt(sqr(x[j]-x[i])+sqr(y[j]-y[i]));
                  if s>m then begin vt:=i; m:=s; end;
               end;
            writeln(g,vt,’ ‘,m:0:3);
         close(g);
      close(d);
   end.

   Bình luận