Trang chủ Tin Học Lớp 12 Viết chương trình nhập vào 1 dãy điểm x1y1, x2y2...xn,yn....

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. Đế

Câu hỏi :

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.

Lời giải 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.

Thảo luận

-- nếu ý 'Tìm khoảng các xa gốc tọa độ (trục hoành, trục tung) nhất.' là tìm vị trí của điểm đó thì thay writeln('Diem xa goc toa do nhat: ',x[vitri],' ',y[vitri]); thành: writeln('Diem xa goc toa do nhat: ',vitri);
-- idol gke quá ;;-;;
-- :v
-- giờ mới biết câu này hỏi hơn 1 tháng trước r :v
-- yup =)))))000 mà rep tin nhắn t đi =)

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 12

Lớp 12 - Năm cuối ở cấp tiểu học, năm học quan trọng nhất trong đời học sinh trải qua bao năm học tập, bao nhiêu kì vọng của người thân xung quanh ta. Những nỗi lo về thi đại học và định hướng tương lai thật là nặng. Hãy tin vào bản thân là mình sẽ làm được rồi tương lai mới chờ đợi các em!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK