Trang 2 / 72 FirstFirst 123457 ... LastLast
Hiển thị kết quả từ 11 đến 20 / 712
  1. #11
    Tham gia
    27-05-2008
    Location
    phu quoc
    Bài viết
    128
    Like
    0
    Thanked 13 Times in 5 Posts

    Hạnh phúc

    kaka!!
    để xem nào!!!
    bài của Bld có 2 lỗi sai:
    - xem lại đề nha yêu cầu là nhập tự động( phải dùng lệnh random ).
    phải là thế này:
    for i:=1 to 10 do a[i]:=random(50) +1 { như thế này đáp ứng yêu cầu của bài là nhập tự động và gồm 10 phần tử trong đó giá trị phần tử nằm trong khoảng 1~50 )

    - Lỗi thứ 2 là bài của bld ngắn quá và chưa đúng.đoạn chương trình trên chỉ đúng nếu mảng là 3 10 9 30 21 100 thì sẽ ra màn hình 3 9 10 21 30 100
    còn nếu mảng là 3 10 9 30 21 1 thì sẽ in ra màn hình 3 9 21 1 30 (sai rùi)!
    cách của bld là cách thông thường để so sánh 2 số lớn nhỏ trong so nguyên...(cách dùng trung gian)...
    -------------------->bài này nếu tôi là giám khảo tôi cho ông 7/10 (khá) chúc mừng..
    còn bài của tôi đây nhận xét thoải mái, thấy sai là cứ sửa thoải mái nha!

    Uses crt ;
    var s1,s2,s:string ;
    i,j,k,t,l:integer ;
    begin
    clrscr ;
    writeln(' nhap chuoi thu nhat ') ;readln(s1);
    writeln(' nhap chuoi thu hai '); readln (s2) ;
    for i:=1 to length(s1) do
    for j:=1 to length(s2) do
    if s1[i]=s2[j] then write(s1[i])
    readln
    end.
    ************************************************** ************************************************** ************************************************** ************************************************** ******************************************
    bèi mới: (về số tự nhiên )
    hai số tự nhiên được gọi là 2 số nguyên tố tương đương nếu chúng có chung ước nguyên tố.VD: 75 và 15 la 2 số như vậy vì có 2 ước nguyên tố là 3 và 5. viết chương trình nhập vào 2 số KT đó có phải là 2 số nguyên tố tương đương hay ko...

    ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
    bld ơi! không phải tôi cho bài ngày càng vip đâu tại vì đây là những bài tập dành đi thi pascal các vòng đó!! những đề tôi từng thi tôi đều post... ông bạn lớp 7 đúng ko...tôi cũng lớp 8 thôi chứ co vip zì đâu... đây là room cho những người mới mà<>

    [=========> Bổ sung bài viết <=========]

    Quote Được gửi bởi ConanKudo View Post
    Bài toán cho một xâu kiểm tra xem có tuần hoàn không có thể giải quyết trong O(N) bằng thuật toán KMP
    anh conan có thể làm bài này ra dc ko!! em ko biết 0(n) và thuật toán KMP là gì hết
    Được sửa bởi Mr.Bo_Aloha lúc 15:21 ngày 22-06-2008 Reason: Bổ sung bài viết

  2. #12
    Tham gia
    20-06-2008
    Location
    phú quốc
    Bài viết
    91
    Like
    0
    Thanked 0 Times in 0 Posts
    Chào mọi người trong room. Chào Mr.Bo_aloha. Mấy bài số nguyên khá dễ đó. Giải được mà làm biếng post bài lên quá. Cogaihalan cũng gà pascal lém, đụng vô mấy bài string, chuỗi là... bó tay.cơm. Xin mọi người chỉ giáo cho nha.

  3. #13
    Tham gia
    25-03-2008
    Bài viết
    27
    Like
    0
    Thanked 0 Times in 0 Posts
    Bài Số nguyên tố tương đường
    Thuật toán:
    Tìm tất cả các ước nguyên tố của số lớn rồi kiểm tra xem có phải là ước của số bé không? Tìm cho đến khi số lớn div 2. Sau đó in ra kết quả. Mình lười post lên wa' nên chỉ post thuật toán thôi. Các bạn xem dùm mình có sai sót gì ko?

  4. #14
    Tham gia
    20-06-2008
    Location
    phú quốc
    Bài viết
    91
    Like
    0
    Thanked 0 Times in 0 Posts
    giải rùi mà sao bài 1 cứ sai hoài, cogaihalan post lên mọi người xem giúp
    nhé

    BÀI 1
    uses crt;
    var a,b,c:integer;
    begin
    clrscr;
    write('nhap a=');readln(a);
    write('nhap b=');readln(b);
    write('nhap c=');readln(c);
    if b>a then write('max=',b)
    else if c>b then write('max=',c)
    else if a>c then write('max=',a);
    if b<a write('min=',b)
    else if c<b then write('min=',c)
    else write('min=',a);
    readln
    end.

    BÀI 2:
    uses crt;
    var i,j:integer;
    begin
    clrscr;
    for i:=2 to 9 do
    begin for j:=1 to 9 do
    write(i,'*',j,'=',i*j,' ');end;
    readln
    end.

    Bài 3 hơi lạ ở chỗ công thức tính diện tích hình chữ nhật và hình vuông giống nhau, đâu cần chọn lựa làm gì.

    BÀI 3:
    uses crt;
    var a,b:real;
    begin
    clrscr;
    write('nhap a=');readln(a);
    write('nhap b=');readln(b);
    if a<>b then write('dien tich hinh chu nhat la ',a*b:0:2)
    else write('dien tich hinh vuong la ',sqr(a):0:2);
    readln
    end.

  5. #15
    Tham gia
    27-05-2008
    Location
    phu quoc
    Bài viết
    128
    Like
    0
    Thanked 13 Times in 5 Posts
    Quote Được gửi bởi cogaihalan123 View Post
    giải rùi mà sao bài 1 cứ sai hoài, cogaihalan post lên mọi người xem giúp
    nhé

    BÀI 1
    uses crt;
    var a,b,c:integer;
    begin
    clrscr;
    write('nhap a=');readln(a);
    write('nhap b=');readln(b);
    write('nhap c=');readln(c);
    if b>a then write('max=',b)
    else if c>b then write('max=',c)
    else if a>c then write('max=',a);
    if b<a write('min=',b)
    else if c<b then write('min=',c)
    else write('min=',a);
    readln
    end.
    nói về bài này của cô gái hà lan cái ha!!
    bài 1 của cô gái hà lan hình như chưa đúng!
    nếu cô gái dùng lệnh if b>a thì b= max ... vậy nếu b>a nhưng c>b thì sao..khi đó đâu thể nói b= max dc đúng ko...còn cái phần min cũng tương tự vậy!nếu là nhập vào chỉ 2 số nguyên thì cách của cô gái là cách đúng nhưng đây là 3 số....
    Quote Được gửi bởi cogaihalan123 View Post
    BÀI 2:
    uses crt;
    var i,j:integer;
    begin
    clrscr;
    for i:=2 to 9 do
    begin for j:=1 to 9 do
    write(i,'*',j,'=',i*j,' ');end;
    readln
    end.

    Bài 3 hơi lạ ở chỗ công thức tính diện tích hình chữ nhật và hình vuông giống nhau, đâu cần chọn lựa làm gì.

    BÀI 3:
    uses crt;
    var a,b:real;
    begin
    clrscr;
    write('nhap a=');readln(a);
    write('nhap b=');readln(b);
    if a<>b then write('dien tich hinh chu nhat la ',a*b:0:2)
    else write('dien tich hinh vuong la ',sqr(a):0:2);
    readln
    end.
    2 bài này thì mr.bo ko có ý kiến đâu!! tương đối là đúng rồi đó!!!

    [=========> Bổ sung bài viết <=========]

    Quote Được gửi bởi PKMinh View Post
    Bài Số nguyên tố tương đường
    Thuật toán:
    Tìm tất cả các ước nguyên tố của số lớn rồi kiểm tra xem có phải là ước của số bé không? Tìm cho đến khi số lớn div 2. Sau đó in ra kết quả. Mình lười post lên wa' nên chỉ post thuật toán thôi. Các bạn xem dùm mình có sai sót gì ko?
    PK minh nói đúng thuật toán rồi đó!!
    tôi sẽ làm lại cái thuật toán này!!
    bước 1: tìm số lớn !
    bước 2: tím những ước nguyên tố của số lớn!( nhưng chỉ đến div 2 thôi)
    bước 3: kiểm tra đối với số nhỏ
    bước 4:in ra kết quả....

    zậy đó nếu ai chưa hiểu thì làm theo từng bước đi....rồi pót lên

    hix!! sao ai cũng làm biếng pót hết zậy!! siêng chút đi!!
    **************
    mr.bo cho 2 bài mới nữa ha!!( member giỏi quá bài nào cũng làm dc)
    có 2 bài"
    1. lập chương trình tính tổng
    S=1^2 + 2^2 + 3^2 +....N^2 !
    lưu ý : N là số nguyên dương nhập từ bàn phím

    2. khó hơn 1 chút
    Nhập tự động vào 1 mảng NxN số nguyên ngẫu nhiên có giá trị trong khoản 01~99 sắp xếp chúng theo thứ tự tăng dần.In ra màn hình vào bảng N cột, N dòng .từ nhỏ đến lớn theo thứ tự kim đồng hồ.
    {các bạn có đề nào hay nhớ post lên cho mọi người cùng làm nha!}
    Được sửa bởi Mr.Bo_Aloha lúc 09:27 ngày 23-06-2008 Reason: Bổ sung bài viết

  6. #16
    Tham gia
    27-05-2008
    Location
    bình định
    Bài viết
    692
    Like
    0
    Thanked 10 Times in 6 Posts

    chào các member của room mới!

    AHAHA....
    sao tui thấy zui quá zậy ta...
    mr.bo_aloha nè...
    lỗi thứ nhất bld xin rút kinh nghiệm;
    lỗi thứ 2 sao nhập vào trong máy tính , lại ra kết quả đúng nhỉ(với dãy
    3,10,9,30,21,1) kết quả là 1,3,9,10,21,30, bld thì chưa dám bàn luận về chuyện này, để bo_aloha xem xét lại cái đã, còn bài của mr.bo_aloha...
    hì hì, nếu nhập 2 dãy và thực hiện theo code của baloha:
    bld
    bo aloha bld
    => kết quả là b b l l d, mà kết quả cần chỉ là b l d thôi, xem xét lại nhé
    boaloha,
    bài nguyên tố...



    code cái nè:

    for i:=2 to sốlớn do begin if solon mod i = 0 then u:=u+[i]{u:=[]};
    if i in u then begin while (a<= sqrt(i)) and (i mod a <>0) do
    a:=a +1 ; if a> sqrt(i) then uc:=uc+[i] ;end;end;
    for i:= 2 to sónhỏ div 2 do if i in uc then writeln(uc){in ra các ước ngtố chung};
    hihi, bài của bld thì lúc nào cũng ngắn mà lúc nào cũng bị bắc lỗi sai, các bạn chịu khó kiểm tra kĩ or code vào máy chạy thử nha,

    bài 1 của mr.boaloha như sau
    for i:=1 to N do s:=s+i*i;writeln(s); {ác, chắc sai túa lua òi}
    {hu hu sao bài ni bld giải có 1 dòng zậy, ko lẽ em bị sai?}
    bài 2 hu hu , đọc kok hiểu, có phải mảng 2 chiều ko? mảng 2 chiều là em pó tay òi đó, các pác nào giỏi giải dùm đi,mr.bo_aloha wả là tay cao thủ !

    bạn baloha cứ từ từ , từ dễ đến khó dần, còn bao nhiêu người theo kok kịp kia mà, {hì hì}

    bài mới của bld nè: viết chương trình nhập số giây rồi đổi ra giờ phút giây
    vd: 3661 giây= 1 giờ 1 phút 1 giây , vậy các bạn mới thì từ từ suy nghĩ , rồi pót lên học hỏi kinh nghiệm ha!



    theo bld , tiêu chí là nâng cao kĩ năng, tăng thêm kinh nghiện, rồi mới luyện cao trình độ ha!
    bạn PKMinh if là thành viên mới trong môn học pascal then bạn hãy chịu khó pots bài chia sẻ nha, {chớ thuật toán còn phải code nữa thì mới hoàn chỉnh đó} else ....
    Được sửa bởi bld lúc 14:21 ngày 27-06-2008 Reason: Bổ sung bài viết

  7. #17
    Tham gia
    20-06-2008
    Location
    phú quốc
    Bài viết
    91
    Like
    0
    Thanked 0 Times in 0 Posts
    ừh! Biết rồi, cảm ơn Bo nhé. Dây là bài giải hai số nguyên tố tương đương của cogaihalan

    uses crt;
    label L1,L2;
    var a,b,i,j:integer;
    begin
    clrscr;
    L1:
    write('nhap a=');readln(a);
    write('nhap b=');readln(b);
    for i:=1 to a do
    begin
    if a mod i=0 then
    begin
    for j:=2 to i-1 do
    if i mod j=0 then goto L2;
    L2:
    end;
    end;
    if b mod i=0 then
    write(a,' va ',b,' nguyen to tuong duong')
    else write(a,' va ',b,' ko la nguyen to tuong duong');
    readln
    end.

    coi dùm có sai ko nhé!

  8. #18
    Tham gia
    19-06-2008
    Bài viết
    6
    Like
    0
    Thanked 1 Time in 1 Post
    hix, mấy hôm nay em bận nhiều quá, nên ko có thời gian làm bài, hôm nay làm rồi, định post lên mà bạn cogaihalan post luôn rồi, cách làm cũng hay lắm, đáng học hỏi, cách của em làm dài mà khó hiểu nữa.

  9. #19
    Tham gia
    20-06-2008
    Location
    phú quốc
    Bài viết
    91
    Like
    0
    Thanked 0 Times in 0 Posts
    ga_kupo cứ làm, đừng ngại. Post trước hay sau gì cũng vậy thôi, vô room để học hỏi lẫn nhau mà.
    Đề của mr.bo ra cogaihalan chỉ làm được bài đầu thôi, phần mảng cogaihalan chưa học nên ko làm được

    uses crt; var n,s,i:integer;
    begin
    clrscr;
    write('nhap n=');readln(n);
    s:=0;
    for i:=1 to n do s:=s+sqr(i);
    write('tong la s=',s);
    readln
    end.

    Còn bài của bld, cogaihalan làm được như sau:

    uses crt; var s,m,h:integer;
    begin
    clrscr;
    write('so giay la s, so phut la m, so gio la h');
    write('nhap s=');readln(s);
    if s>=60 then begin m:=(s-(s mod 60)) div 60; s:=s mod 60;end;
    if m>=60 then begin h:=(m-(m mod 60)) div 60; m:=m mod 60;end;
    write(h,' gio ',m,' phut ',s,' giay');
    readln
    end.

    Rồi mr.bo coi có sai sót gì ko nhé!

  10. #20
    Tham gia
    27-05-2008
    Location
    bình định
    Bài viết
    692
    Like
    0
    Thanked 10 Times in 6 Posts
    bài của côgáihàlan bld có 1 góp ý nhỏ như sau:
    để tìm ước của số lớn cần chạy từ 2 đến div 2 ;
    còn để kiểm tra có phải là ngtố hay kok, chỉ cần chạy đến round(sqrt(a)) thôi { hì hì}
    code của cô gái mình nhập vào chạy thử thì hầu như lúc nào cũng ra kết quả "là 2 s ngtố tương đương"?

    code của bld {đã trình bày ở trên} có thể in ra các ước nguyên tố chung của 2 số, rất mong các bạn góp ý và sửa chữa ha!

Trang 2 / 72 FirstFirst 123457 ... LastLast

Bookmarks

Quy định

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