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

Reviews hay rinh note 4, galaxy V được vi vu Hàn Quốc

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Lời mời tham dự chương trình từ thiện "Giáng Sinh Trong Mắt Em"

Mời anh em tham gia Vn-zoom support team

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

Vn-Zoom.com tặng các bạn thành viên may mắn một chiếc Note 4
kết quả từ 1 tới 14 trên 14
  1. #1
    trunghenry's Avatar
    trunghenry đang trong diễn đàn Rìu Bạc
    Tham gia
    Jul 2010
    Đến từ
    Rất ít người biết
    Bài
    446
    Cảm ơn
    140
    Điểm
    126/93 bài viết

    Default Bài tập Pascal về cấu trúc lặp

    đã tự giải đc..thanks for see
    Thay đổi nội dung bởi trunghenry; 21-11-2012 lúc 20:29.

  2. #2
    trunghenry's Avatar
    trunghenry đang trong diễn đàn Rìu Bạc
    Tham gia
    Jul 2010
    Đến từ
    Rất ít người biết
    Bài
    446
    Cảm ơn
    140
    Điểm
    126/93 bài viết

    Default

    các bờ rô ở đâu hết rồi

  3. #3
    don't let go's Avatar
    don't let go vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Sep 2009
    Bài
    204
    Cảm ơn
    42
    Điểm
    130/61 bài viết

    Default

    bạn muốn hỏi cái gì?

  4. #4
    cutibebong's Avatar
    cutibebong vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Apr 2009
    Bài
    470
    Cảm ơn
    99
    Điểm
    50/47 bài viết

    Default

    bạn ấy có bị sao ko nhỉ

  5. #5
    binh.it's Avatar
    binh.it vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Sep 2011
    Bài
    367
    Cảm ơn
    86
    Điểm
    46/41 bài viết

    Default

    nói đi chỉ được thì chỉ
    JOS.IT

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

    Default

    bài 1.viết chương trình giai thừa của n với n được nhập từ bàn phím.
    Bài 2.Nhập 2 số nguyên dương m,n. liệt kê các số chính phương trong đoạn m,n.
    bài tập về nhà. Tuần sau phải nộp rùi. mong bác giúp cho

  7. #7
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    38
    Điểm
    78/71 bài viết

    Default

    Trích nhokkiu96 View Post
    bài 1.viết chương trình giai thừa của n với n được nhập từ bàn phím.
    Bài 2.Nhập 2 số nguyên dương m,n. liệt kê các số chính phương trong đoạn m,n.
    bài tập về nhà. Tuần sau phải nộp rùi. mong bác giúp cho
    1. mih chưa học giai thừa nên có thể hiểu sai về khái niệm
    Code:
    for i:=1 to n do gt:=gt*i;
    2. viết function kt chính phương (boolean) ->
    Code:
    if m<>n then if m>n then for i:=m to n do if ktcp=true then write(i,#32) else for i:=n to m do if ktcp=true then write(i,#32) else writeln('lam j` co ma liet ke');
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

  8. #8
    thienlequy's Avatar
    thienlequy vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Aug 2010
    Đến từ
    Vinh
    Bài
    193
    Cảm ơn
    24
    Điểm
    62/33 bài viết

    Default

    Trích tansonpro9x View Post
    1. mih chưa học giai thừa nên có thể hiểu sai về khái niệm
    Code:
    for i:=1 to n do gt:=gt*i;
    2. viết function kt chính phương (boolean) ->
    Code:
    if m<>n then if m>n then for i:=m to n do if ktcp=true then write(i,#32) else for i:=n to m do if ktcp=true then write(i,#32) else writeln('lam j` co ma liet ke');
    uk, bạn làm đúng rùi, nhưng k cần viết lại 2 lần code tìm số CP đâu, bạn so sánh m,n rồi đổi chỗ cho nhau là đc

  9. #9
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    38
    Điểm
    78/71 bài viết

    Default

    Trích thienlequy View Post
    uk, bạn làm đúng rùi, nhưng k cần viết lại 2 lần code tìm số CP đâu, bạn so sánh m,n rồi đổi chỗ cho nhau là đc
    như nhau cả thui
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

  10. #10
    thienlequy's Avatar
    thienlequy vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Aug 2010
    Đến từ
    Vinh
    Bài
    193
    Cảm ơn
    24
    Điểm
    62/33 bài viết

    Default

    Trích tansonpro9x View Post
    như nhau cả thui
    mình nói tổng quát thôi
    vì có thể code rất dài, nếu phải viết mấy lần thì nhìn hoa mắt luôn @@
    bt khi nào làm bài tính toán cũng phải sắp xếp đã chứ

  11. #11
    nhokkiu96's Avatar
    nhokkiu96 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jul 2012
    Bài
    7
    Cảm ơn
    2
    Điểm
    0/0 bài viết

    Default

    Trích tansonpro9x View Post
    1. mih chưa học giai thừa nên có thể hiểu sai về khái niệm
    Code:
    for i:=1 to n do gt:=gt*i;
    2. viết function kt chính phương (boolean) ->
    Code:
    if m<>n then if m>n then for i:=m to n do if ktcp=true then write(i,#32) else for i:=n to m do if ktcp=true then write(i,#32) else writeln('lam j` co ma liet ke');
    có thể giải hoàn thiện 1 bài viết chương trình pascal lun hôk...tui mới học hôk biết gán hay chọn sao hết . giúp đến cùng lun nha

  12. #12
    don't let go's Avatar
    don't let go vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Sep 2009
    Bài
    204
    Cảm ơn
    42
    Điểm
    130/61 bài viết

    Default

    cái bài số chính phương thì lấy phần nguyên của sqrt(m),sqrt(n) là đc.

  13. #13
    nh0c_vui_09's Avatar
    nh0c_vui_09 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jun 2009
    Bài
    11
    Cảm ơn
    60
    Điểm
    0/0 bài viết

    Default

    Trích nhokkiu96 View Post
    bài 1.viết chương trình giai thừa của n với n được nhập từ bàn phím.
    Bài 2.Nhập 2 số nguyên dương m,n. liệt kê các số chính phương trong đoạn m,n.
    bài tập về nhà. Tuần sau phải nộp rùi. mong bác giúp cho
    Bài 1
    var gt: integer;
    i,n: integer;
    begin
    write('Nhap N: ');
    readln(n);
    gt:=1;
    if n=0 then gt:=1
    else for i:= 1 to n do gt:=gt*i;
    write('N!=',gt);
    readln;
    end.

  14. #14
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    38
    Điểm
    78/71 bài viết

    Default

    Trích don't let go View Post
    cái bài số chính phương thì lấy phần nguyên của sqrt(m),sqrt(n) là đc.
    theo mih thì phải làm thế này
    Code:
    function ktcp(x:integer):boolean; {thực ra thì bài này ko nhất thiết phải dùng function}
     begin
     if frac(sqrt(x))=0 then ktcp:=true else ktcp:=false;
     end;
    
    begin
    <nhập m,n>
    if m>n then 
     begin
     tg:=m;
     m:=n;
     n:=tg;
     end;
    for i:=m to n do if ktcp(i)=true then write(i,#32);
    readln;
    end.
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

 

 

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
  •