Bài tập pascal dùng cấu trúc lặp.

Thảo luận trong 'Thảo luận chung' bắt đầu bởi test19, 31 Tháng một 2012.

Lượt xem: 2,847

  1. test19

    test19 Guest

    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    [Lấy ý kiến] V/v cấp quyền cho thành viên theo từng cấp



    Nhập 2 số nguyên dương m,n
    a. Tính tổng các số chia hết cho 2 và 3
    b. Tính bội chung nhỏ nhất của 2 số m n
    c. Liệt kê các số nguyên tố trong khoảng m n
    d. Liết kê các số chính phương trong đoạn m n
     
  2. p_trk

    p_trk Guest

    câu a: nếu lặp thì không có điều kiện break ;
    câu b:
    Mã:
    function BCNN(m,n: word ): word;
     begin 
         a:=m; b:=n;
         while  m<>n do  
           if m>n then m:=m-n else n:=n-m;
         BCNN:=(a*b)/m;
    end;
    
    câu c: mình bận quá nên giúp bạn ý tưởng thôi nha.
    bạn nên lập một hàm kiểm tra số nguyên tố
    cách kiểm tra số nguyên tố k thì
    k<2 then false;
    k>2 kiểm tra bằng số ước ;
    bước tiếp theo bạn cho kiểm tra
    m>n hay ngược lại
    giả sử m>n thì
    for i:=n to m do
    if {kiểm tra nguyên tố là đúng } then {thông báo };
    cấu d: tương tự bạn dùng hàm kiểm tra số chính phương ;
    về phần kiểm tra số chính phương của số n
    bạn kiểm tra như sau
    nếu sqrt(n)=trunc(sqrt(n)) thì true ; ngược lại false
    sau đó cho chạy như câu c ;
     

CHIA SẺ TRANG NÀY