Trang chủ   Sản phẩm   Phần mềm Dành cho nhà trường   Phần mềm Hỗ trợ học tập   Kho phần mềm   Liên hệ   Đăng nhập | Đăng ký

Tìm kiếm

School@net
Bảng giá phần mềm
Educations Software

Đại Lý - Chi Nhánh

Bản tin điện tử
 
Đăng nhập/Đăng ký
Bí danh
Mật khẩu
Mã kiểm traMã kiểm tra
Lặp lại mã kiểm tra
Ghi nhớ
 
Quên mật khẩu | Đăng ký mới

 
Giỏ hàng

Xem giỏ hàng


Giỏ hàng chưa có sản phẩm

 
Xem bài viết theo các chủ đề hiện có
  • Hoạt động của công ty (701 bài viết)
  • Sản phẩm mới (217 bài viết)
  • Dành cho Giáo viên (552 bài viết)
  • Lập trình Scratch (3 bài viết)
  • Mô hình & Giải pháp (155 bài viết)
  • IQB và mô hình Ngân hàng đề kiểm tra (126 bài viết)
  • Hỗ trợ khách hàng (482 bài viết)
  • TKB và bài toán xếp Thời khóa biểu (242 bài viết)
  • Học tiếng Việt (182 bài viết)
  • Thông tin khuyến mại (80 bài viết)
  • Download - Archive- Update (289 bài viết)
  • Các Website hữu ích (71 bài viết)
  • Cùng Học (98 bài viết)
  • Learning Math: Tin học hỗ trợ học Toán trong nhà trường (74 bài viết)
  • Thông tin tuyển dụng (55 bài viết)
  • School@net 15 năm (153 bài viết)
  • Mỗi ngày một phần mềm (7 bài viết)
  • Dành cho cha mẹ học sinh (123 bài viết)
  • Khám phá phần mềm (122 bài viết)
  • GeoMath: Giải pháp hỗ trợ học dạy môn Toán trong trường phổ thông (36 bài viết)
  • Phần mềm cho em (13 bài viết)
  • ĐỐ VUI - THƯ GIÃN (360 bài viết)
  • Các vấn đề giáo dục (1209 bài viết)
  • Bài học trực tuyến (1033 bài viết)
  • Hoàng Sa - Trường Sa (17 bài viết)
  • Vui học đường (276 bài viết)
  • Tin học và Toán học (220 bài viết)
  • Truyện cổ tích - Truyện thiếu nhi (181 bài viết)
  • Việt Nam - 4000 năm lịch sử (97 bài viết)
  • Xem toàn bộ bài viết (8179 bài viết)
  •  
    Thành viên có mặt
    Khách: 12
    Thành viên: 0
    Tổng cộng: 12
     
    Số người truy cập
    Hiện đã có 55910047 lượt người đến thăm trang Web của chúng tôi.

    PHƯƠNG PHÁP XÁC ĐỊNH DIỆN TÍCH PHẲNG BỊ PHỦ BỞI CÁC HÌNH CHỮ NHẬT

    Ngày gửi bài: 26/05/2009
    Số lượt đọc: 1799

    Bài toán: Trong mặt phẳng toạ độ trực chuẩn, cho N hình chữ nhật có các cạnh song song với trục toạ độ. Mỗi HCN được xác định bởi toạ độ đỉnh dưới bên trái và đỉnh trên bên phải của nó. Hãy tính diện tích phần mặt phẳng bị phủ bởi các HCN trên.

    Dữ liệu: Cho trong file HCN.inp gồm N+1 dòng.

    - Dòng 1. Chứa số N

    - Dòng i+1 : Ghi 4 số nguyên x1,y1,x2,y2 lần lượt là toạ độ đỉnh dưới bên trái và đỉnh trên bên phải của HCN i.

    Các số ghi trên một dòng cách nhau ít nhất một dấu cách.

    Kết quả: Đưa ra màn hình diện tích phần mặt phẳng bị phủ bởi hình chữ nhật trên.

    Ý tưởng:

    - Lập mảng X[1..2n], Y[1..2n] lần lượt chứa hoành độ, tung độ các hình chữ nhật

    - Sắp xếp mảng X,Y tăng dần

    - Lần lượt kiểm tra các hình chữ nhật có toạ độ đỉnh trên bên phải (xi+1,yi+1) và toạ độ đỉnh dưới bên phải là (xi,yi) với . Nếu hình chữ nhật này thuộc một trong các hình chữ nhật ban đầu thì cộng thêm vào phần diện tích đang cần tìm diện tích của hình chữ nhật con này.

    Chương trình tham khảo:

    Const Maxn=1000;

    Type Toa_do = recordx1,y1,x2,y2:integer;end;

    mang=array[1..2*maxn] of integer;

    var N,s:integer;

    a:array[1..maxn] of toa_do;

    X,Y:mang;

    {=======Doc du lieu=====}

    Procedure doc_dl;

    var f:text; i:integer;

    begin

    assign(f,'HCN.inp');

    reset(f);

    readln(f,n);

    for i:=1 to n do

    readln(f,a[i].x1,a[i].y1,a[i].x2,a[i].y2);

    close(f);

    end;

    {===Sap xep mang tang dan===}

    Procedure Sapxep(Var T:Mang);

    Var i,j,TG,m:integer;

    Begin

    m:=2*n;

    for i:=1 to m-1 do

    for j:=i+1 to m do

    if T[i]>T[j] then

    begin

    TG:=T[i];

    T[i]:=T[j];

    T[j]:=TG;

    end;

    end;

    {====Kiem tra HCN moi thuoc HCN da cho====}

    function Kiemtra_thuoc(i,j:integer):boolean;

    var k:integer;

    begin

    Kiemtra_thuoc:=true;

    for k:=1 to N do

    if (a[k].x1<=x[i-1]) and (X[i]<=a[k].x2)

    and (a[k].y1<=y[j-1]) and(Y[j]<=a[k].y2) then exit;

    Kiemtra_thuoc:=false;

    end;

    {========================================}

    Procedure Xuly;

    var i,j:integer;

    Begin

    for i:=1 to N do

    begin

    X[i*2-1]:=a[i].x1;

    X[i*2]:=a[i].x2;

    Y[i*2-1]:=a[i].y1;

    Y[i*2]:=a[i].y2;

    end;

    Sapxep(X); Sapxep(Y);

    for i:=2 to 2*N do

    for j:=2 to 2*N do

    if Kiemtra_thuoc(i,j) then S:=s+(X[i]-X[i-1])*(Y[j]-Y[j-1]);

    end;

    {====================================}

    Begin

    doc_dl;

    s:=0;

    Xuly;

    Write('Dien tich la:', S);

    readln;

    End.

    Tác giả:V õ Sỹ Ng ọc

    GV Trường THPT Thành Sen TP Hà Tĩnh

    Đ/c Xã Thạch Bình - TP H à Tĩnh - H à Tĩnh

    ĐT: 039.282528 DD: 0983.845796

    School@net (Theo THNT)



     Bản để in  Lưu dạng file  Gửi tin qua email


    Những bài viết khác:



    Lên đầu trang

     
    CÔNG TY CÔNG NGHỆ TIN HỌC NHÀ TRƯỜNG
     
    Phòng 1407 - Nhà 17T2 - Khu Trung Hoà Nhân Chính - Quận Cầu Giấy - Hà Nội
    Điện thoại: (024) 62511017 - Fax: (024) 62511081
    Email: school.net@hn.vnn.vn / thukhachhang@yahoo.com


    Bản quyền thông tin trên trang điện tử này thuộc về công ty School@net
    Ghi rõ nguồn www.vnschool.net khi bạn phát hành lại thông tin từ website này
    Site xây dựng trên cơ sở hệ thống NukeViet - phát triển từ PHP-Nuke, lưu hành theo giấy phép của GNU/GPL.