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, 2,..n. Đếm số điểm thuộc góc phần tư thứ 2. Tìm khoảng các xa gốc tọa độ (trục hoành, trục tung) nhất.

van06102002

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

195d140217065

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Dòng nào dưới đây toàn là từ láy A.mảnh mại,lớn lên,trẻ trung,dữ dội,đau đớn B.đơn độc,le lói,lắc lư,sức sống

Giúp mk bài 3 vssssssssssssssss

Làm giúp mình với mình ko hiểu câu d

Giúp với!!! 1 câu trắc nghiệm!!!!!!!!! Để giá trị của tích A.B.C < 0 , thì giá trị của x phải là : * a) x < y b) x > 0 c) x < 0 d) x > y

Đề bài : Kể tên một số bài hát bạn thích nghe Ngoài lề : Bắt buộc

Phần tích bài thơ đi đường của chủ tịch hồ chí minh

Ghép nội dung cột 1 với nội dung cột 2 Giúp mềnh đi mn

giúp mình b1 với b3 mình đang cần gấp ạ help

a/nêu ví dụ về vật vừa có cơ năng ,vừa có động năng b/nêu 2 cách thay đổi nhiệt năng ,cho vd minh họa c/vì sao đường tan trong nước nóng nhanh hơn nước lạnh

cho hình vuông ABCD có cạnh AB=6cm .Tính diện tích bông hoa ( phần tô màu gạch chéo)