Viết chương trình nhập vào 1 dãy điểm x1y1, x2y2…xn,yn. In các điểm vừa nhập ra màn hình, tính tổng độ dài gấp khúc lần lượt đi qua các điểm thứ 1,

0 bình luận về “Viết chương trình nhập vào 1 dãy điểm x1y1, x2y2…xn,yn. In các điểm vừa nhập ra màn hình, tính tổng độ dài gấp khúc lần lượt đi qua các điểm thứ 1,”

1. uses crt;
   var i,n,dem,vitri:word;
       x,y:array[1..1000] of longint;
       max,k,d:real;
   begin
       clrscr;
       readln(n);
       d:=0;dem:=0;
       for i:=1 to n do readln(x[i],y[i]);
       // Do dai duong gap khuc
       for i:=1 to n-1 do
          d:=d+sqrt(sqr(x[i]-x[i+1])+sqr(y[i]-y[i+1]));
       // So diem thuoc goc phan tu thu II
       for i:=1 to n do
          if (x[i]<0) and (y[i]>0) then inc(dem);
       // Diem xa goc nhat
       max:=sqrt(sqr(x[1])+sqr(y[1]));
       vitri:=1;
       for i:=2 to n do
          begin
              k:=sqrt(sqr(x[i])+sqr(y[i]));
              if k>max then
                begin
                   max:=k;
                   vitri:=i;
                end;
          end;
       writeln(‘Do dai duong gap khuc: ‘,d:0:3);
       writeln(‘So diem thuoc goc phan tu thu II: ‘,dem);
       writeln(‘Diem xa goc toa do nhat: ‘,x[vitri],’ ‘,y[vitri]);
   readln;
   end.

   Bình luận