Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Tuyển chuyên viên tin tức VN-Zoom 2014

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Hoãn tổ chức offline VN-Zoom 8 năm tại TP HCM

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tài trợ VNZ Siêu phẩm Tân Kiếm Thế chibi 3D mới

Tuyển BQT VN-Zoom
kết quả từ 1 tới 9 trên 9
  1. #1
    kinhthikute's Avatar
    kinhthikute vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Apr 2009
    Đến từ
    Địa Ngục
    Bài
    23
    Cảm ơn
    29
    Điểm
    8/3 bài viết
    VR power
    0

    Default CT rút gọn phân số

    Có bác nào ngon thì giãi dùm em


    Viết CT rút gọn 1 phân số về tốt giản cái !

  2. #2
    1071454's Avatar
    1071454 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Aug 2008
    Bài
    32
    Cảm ơn
    2
    Điểm
    98/11 bài viết
    VR power
    0

    Default Reply

    Bạn chỉ cần viết hàm tìm ước chung lớn nhất của tử số và mẫu số.
    Sau đó chi mẫu và tử chp ước chung vừa tìm.
    vd: 3/9 có ucln = 3
    chia 3, 9 lan luot cho 3 duoc phan so rut gon la 1/3
    Thay đổi nội dung bởi 1071454; 06-06-2009 lúc 08:37.

  3. #3
    Hữu Ân's Avatar
    Hữu Ân vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Apr 2009
    Bài
    738
    Cảm ơn
    720
    Điểm
    595/166 bài viết
    VR power
    0

    Default

    Hơi vội nên thuật toán hơi cùi! Sài đỡ vậy
    private void button1_Click(object sender, EventArgs e)
    {
    try
    {
    int a = Convert.ToInt32(textBox1.Text);
    int b = Convert.ToInt32(textBox2.Text);
    int u = uocChungLonNhat(a, b);
    label1.Text = Convert.ToString(a / u);
    label2.Text = Convert.ToString(b / u);
    }
    catch (Exception ex)
    {
    MessageBox.Show(ex.Message, "error!");
    }
    }


    int uocChungLonNhat(int a, int b)
    {
    while (a != 0 && b != 0)
    if (a>b)
    a -= b;
    else
    b -= a;
    if (a == 0)
    return b;
    else
    return a;
    }
    Thay đổi nội dung bởi Hữu Ân; 06-06-2009 lúc 09:16.
    有恩

  4. #4
    quocman79's Avatar
    quocman79 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Mar 2009
    Bài
    17
    Cảm ơn
    9
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Thuat toan UCLN

    int ucln (int a, int b) {
    while (a != 0 && b!=0) {
    if(a >= b) {
    a = a - b;
    }
    else {
    b = b -a;
    }
    }
    return (a + b);
    }

  5. #5
    phanloc87's Avatar
    phanloc87 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jun 2009
    Bài
    2
    Cảm ơn
    0
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    {
    int a=abs(tu) ;
    int b=abs(mau);
    while(a*b!=0)
    {
    if(a>b)
    a=a-b;
    else
    b=b-a;
    }
    tu=tu/(a+b);
    mau=mau/(a+b);

    }

  6. Có 1 thành viên cảm ơn phanloc87 cho bài viết này:
    dangkitaikhoan (23-12-2011)

  7. #6
    phanloc87's Avatar
    phanloc87 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jun 2009
    Bài
    2
    Cảm ơn
    0
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    {
    int a=abs(tu) ;
    int b=abs(mau);
    while(a*b!=0)
    {
    if(a>b)
    a=a-b;
    else
    b=b-a;
    }
    tu=tu/(a+b);
    mau=mau/(a+b);

    }

  8. #7
    vumanhtuan87's Avatar
    vumanhtuan87 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Oct 2007
    Đến từ
    Nhà ko số, phố ko tên
    Bài
    721
    Cảm ơn
    455
    Điểm
    755/162 bài viết
    VR power
    0

    Default

    bạn nên viết thành 1 lớp Phân số trong đó có phương thức rút gọn phân số sẽ là hay nhất
    Rút gọn phân số là lấy tử và mẫu chia cho uscln

  9. #8
    famdam92's Avatar
    famdam92 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Sep 2008
    Bài
    24
    Cảm ơn
    83
    Điểm
    12/6 bài viết
    VR power
    0

    Default

    program daynt;
    uses crt;
    const nmax=100;
    var
    f1,f2:text;
    a,tuso,mauso:integer;

    function ucln(x,y:integer):integer;
    var sodu:integer;
    begin
    while y<>0 do
    begin
    sodu:=x mod y;
    x:=y;
    y:=sodu;
    end;
    ucln:=x;
    end;

    begin
    clrscr;
    writeln('nhap tu so');readln(tuso);
    writeln('nhap mau so');readln(mauso);
    a:=ucln(tuso,mauso);
    if a>1 then
    begin
    tuso:=tuso div a;
    mauso:=mauso div a;
    end;



    write('phan so rut gon la: ',tuso,' phan ',mauso);
    readln
    end.
    bạn thử cách này xem, mình chép trong sách ra đó ^^

  10. #9
    Tham gia
    Jul 2008
    Bài
    9
    Cảm ơn
    7
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    bac nao giup em giai cai nay cai : 27/26 rut gon

 

 

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •