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

    Rất hay ! ROOM mới dành cho những người mới........

    Thấy mấy huynh lớp 11 có room riêng!!các anh sư phụ pascal cũng có room riêng nhưng lại chưa thấy room cho những beginer ( những người mới)...!
    Hôm nay mở room cho những người mới để cùng nhau trao đổi kinh nghiệm và cùng nhau trở thành number 1 kaka...tiêu chí của room là
    " muốn bik phải hỏi
    muốn giỏi phải học
    càng học càng sock
    cùng nhau mình bốc"
    Nói thiệt thì mình cũng chỉ mới Lớp 8 thôi...nhưng mình biết không phải chỉ có mình lớp 8 mà còn nhiều bạn nữa. pascal không phân tuổi tác mà đúng hông!!!


    ai có bài nào hay cứ post....ai có kinh nghiem cứ Share zậy ha!!!

    pài đầu tiên mình có là về dãy string

    đề như sau
    lập chương trinh nhập họ và tên từ bàn phím sau đó tách ra 2 phần : phần họ và các chữ lót ; phần tên chính
    Quote Quote

  2. 4 thành viên Like bài viết này:


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

    hay đấy, tui ủng hộ

    ten:string

    for a:=1 to length(ten);
    if ten[a] = ' ' then b:= a;
    for c:= 1 to b then begin writeln('phần họ: ');writeln(ten[b]);
    for d:= b+1 to length(ten) do begin writeln('phần ten^: ');writeln(ten[d]);

    mong các vị chỉ giáo!

    tui có 1 bài mới : nhập vào tên 1 người rồi chỉnh sửa:
    vd:
    nguyễn anh Nam => Nguyễn Anh Nam;
    ___________________________
    đứng xa mới thấy được toàn cảnh

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

    tên cần chỉnh sửa có thể có nhiều dấu cách giữa các từ, ở đầu và cuối chuỗi,

    em mới xong lớp 7 mong các vị chỉ giáo


    Quote Được gửi bởi ktvnguyenchien
    Bài này là một bài chuẩn hóa chuỗi.
    Mình xin đươc post luôn vô đây nghen.
    Code:
    ten:string;
    ....
    i:=1;
    While i<length(s) do
     Begin 
      If a[i]=' ' then
       whitle s[i+1]=' ' do delete(s,i+1,1);
      i:=i+1
      s[i]=upcase(s[i]);
     End;
    Write(s);
    Các bạn nên gõ chương trình trong cặp [code][/ code] cho dễ nhìn.
    Được sửa bởi ktvnguyenchien lúc 11:56 ngày 28-09-2008 Reason: Bổ sung bài viết

  4. 2 thành viên Like bài viết này:


  5. #3
    Tham gia
    27-05-2008
    Location
    phu quoc
    Bài viết
    128
    Like
    0
    Thanked 13 Times in 5 Posts
    Mừng wá!! bạn là người ủng hộ đầu tiên đó thank ha!!
    bài của bạn làm hay lắm... tôi nghĩ hông có gì cần sửa đâu ha!!!
    có qua có lại đây là bài của tôi:
    ------------------------------------------------------
    Code:
    uses crt ;
    var  t:string ;
            i:integer ;
    begin
            clrscr ;
            writeln('Nhap ten ');readln(t);
            t[1]:=upcase(t[1]) ;
            for i:=2 to length(t)-1 do
            if t[i]= ' ' then t[i+1] := upcase(t[i+1]) ;
            writeln(t) ;
            readln
    end.
    ------------------------------------
    tiếp nha!!!
    đề:chuỗi tuần hoàn là chuỗi ký tự chứa 1 chuỗi con lập lại liên tiếp: vd abcabcabc
    là chuỗi tuần hoàn có chuỗi con abc.
    Hãy lập 1 chương trình nhập vào 1 chuỗi kiểm tra và in ra man hình chuỗi đó có phải là chuỗi tuần hoàn không!!(nếu muốn nâng cao thêm thì in ra màn hình chuỗi con lập lại luôn)
    KAKAKA
    Được sửa bởi ktvnguyenchien lúc 11:56 ngày 28-09-2008

  6. Thành viên Like bài viết này:


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

    Buồn quá đi !

    bài khó chớ kok dễ đâu!
    s,c,b:string;
    a,d:integer;
    tuanhoan: boolean;


    readln(s);{đọc chuỗi s}
    tuanhoan:=false;
    c:=s;
    a:=1 ;
    while (a<= length(s) div 2) and (tuanhoan=false) do
    begin
    b:= copy(s,1,a) , while b=copy(s,1,a) do delete(s,1,a)
    if s='' then begin
    writeln ('chuoi con la : ');for d:=1 to a do write(c[d]);
    tuanhoan:= true;
    end
    else begin tuanhoan:= false;a:=a+1;s:=c;end;
    end;
    if tuanhoan=false then writeln('chuoi khong tuan hoan');
    end;

    writeln('lạy chúa, mai con thi tinhoctre0chuyen rồi, chúa phù hộ cho con!');

    đề mới: chà ... room này hơi ít người, hay ddth toàn đàn anh đàn chị ko nhỉ?

    viết ctrình đổi các chữ hoa trong chuỗi thành chữ thừong ,
    chữ thường thành chữ hoa;

  8. 2 thành viên Like bài viết này:


  9. #5
    Tham gia
    18-02-2008
    Location
    PTC Sư Phạm
    Bài viết
    81
    Like
    0
    Thanked 2 Times in 1 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

  10. 2 thành viên Like bài viết này:


  11. #6
    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 bld View Post
    bài khó chớ kok dễ đâu!]
    [code]
    s,c,b:string;
    a,d:integer;
    tuanhoan: boolean;


    readln(s);{đọc chuỗi s}
    tuanhoan:=false;
    c:=s;
    a:=1 ;
    while (a<= length(s) div 2) and (tuanhoan=false) do
    begin
    b:= copy(s,1,a) , while b=copy(s,1,a) do delete(s,1,a)
    if s='' then
    begin
    writeln ('chuoi con la : ');for d:=1 to a do write(c[d]);
    tuanhoan:= true;
    end
    else
    begin
    tuanhoan:= false;
    a:=a+1;
    s:=c;
    end;
    end;
    if tuanhoan=false then writeln('chuoi khong tuan hoan');
    end;
    writeln('lạy chúa, mai con thi tinhoctre0chuyen rồi, chúa phù hộ cho con!');
    end.
    Tôi thấy cái bài này hơi ngắn và hình như bạn nhầm lẫn...
    Định nghĩa chuỗi con không chỉ là cứ cách khoảng trắng...
    vd hen: abcabjjhfskf trong này abccba (ở đầu chuỗi) cũng gọi là 1 chuỗi con đó bạn... nhưng tôi nghĩ bài này cũng rất tuyệt...

    Bạn nè: cái khúc writeln cuối cùng ấy...[Lạy chúa mai con thi......]
    cái đó viết vào bài thi có dc điểm hem!!!kaka tôi cũng gần thi chắc cũng phải viết như vậy để dó điểm quá hahaha(Bạn hài hước thật)
    ----------------------------------->
    đây là bài của tôibài giải cái đề của bạn)
    Code:
    uses crt;
    var  s:string ;
            i,J:integer ;
    begin
            clrscr;
            writeln('Nhap chuoi ') ;readln(s) ; 
            for i:=1 to length(s) do
            if (s[i]=upcase(s[i])) and(s[i]<> ' ') then s[i]:=chr(ord(s[i])+32)
            Else s[i]:=chr(ord(s[i])-32) ; 
            write (s);
    
    readln
    end.
    -----------------------------
    Đây là phần thuyết trình: chuyển hoa sang thường thì nhờ bang mã ASII vì các kí tự chữ cái trong bảng mã hoa và thường cách nhau 32 vì vậy ta chuyển kí tự sang số trong bảng mã ASII và chuyển ngược lại kèm với chỉnh sửa...nếu Hoa thì + 32 còn thường thì - 32
    Được sửa bởi ktvnguyenchien lúc 12:01 ngày 28-09-2008

  12. 3 thành viên Like bài viết này:


  13. #7
    Tham gia
    27-05-2008
    Location
    phu quoc
    Bài viết
    128
    Like
    0
    Thanked 13 Times in 5 Posts
    Nguyen NAm à!!ùh hân hạnh hân hạnh tham gia room!! tôi đang lo vì room ít người qua hehehe!!! tham gia nhiệt tình nha Nam...Mình là MR.Bo còn ông kia la BLD,có cả ông con nan ku do su phu pascal vua ghé qua nữa

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

    Tụi mình làm chuỗi nhiều rồi bây giờ qua mảng dc hông!!
    1 bài khởi động thôi ha!!(bài nhỏ như con kiến ấy mà)
    đề:nhập tự động 1 mảng có độ dài tối đa 10 phần tử, mỗi phần tử co giá trị trong khoảng từ 1 đến 50...sắp xếp mảng từ nhỏ đến lớn...

    Làm đê kekeke!! tới lượt ông đó BLD hehehe...
    Được sửa bởi Mr.Bo_Aloha lúc 10:01 ngày 21-06-2008 Reason: Bổ sung bài viết

  14. 2 thành viên Like bài viết này:


  15. #8
    Tham gia
    19-06-2008
    Bài viết
    6
    Like
    0
    Thanked 1 Time in 1 Post
    Anh Mr.Bo_Aloha oi anh có mấy bài nào đơn giản một tí được không? em gà lắm chưa rành nhiều, bao nhiêu bài cũng được, em ko sợ làm nhiều mà chỉ sợ mình làm mà ko hiểu mình đang làm gì thui...

  16. Thành viên Like bài viết này:


  17. #9
    Tham gia
    27-05-2008
    Location
    phu quoc
    Bài viết
    128
    Like
    0
    Thanked 13 Times in 5 Posts
    để xem nào:!! chú gà kudo làm thử mấy bài này ha!!
    mấy bài về kiểu số nguyên:
    - lập chương trình nhập 3 số nguyên từ bàn phím in ra màn hình số nhỏ nhất, lớn nhất trong 3 số.

    -Lập chương trình in ra màn hình bản cửu chương!

    -lập chương trình cho phép người sử dụng chọn lựa 1 là tính diện tích hình chữ nhật,2 là hình vuông! sau khi chọn lựa thì cho phép người dùng nhập vào 2 cạnh của hình mình chọn, in ra màn hình kết quả!

    ----------------------------------------->
    làm xong số nguyên thì tui pót cho chú gà ku do mấy bài nữa về kiểu string nha! làm xong pót lên cho anh em nhận xét! đừng ngại

  18. 3 thành viên Like bài viết này:


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

    aa

    tui được kiu là ông cơ đấy
    tui cũng khoái mảng

    writeln('nhap so phan tu: ');readln(spt);
    for a:=1 to spt do begin
    write(nhap so thu ',i);readln(a[i]);end;
    for b:=1 to spt-1 do
    for c:=b+1 to spt do
    if a[b]>a[c] then
    begin
    d:=a[b];
    a[b]:=a[c];
    a[c]:=d;
    end;
    writeln('sau khi sap xep');
    for i:=1 to spt do writeln(a[i]);

    thực ra tui cũng gà lém, mà pài mr.baloha cho càng ngày càng vip nên có thiếu sót jì thì xin chỉ giáo giúp ạ....

    bài mới: nhập 2 chuỗi sau đó in ra các kí tự của 2 chuỗi giống nhau ;
    bạn nào vip tự mở rộng ra cũng được.!

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

    các gà nào mới thì vô học hỏi, bài mr.baloha cho gà kupo cũng hay lém,
    room đông người mới vui nhộn!

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

    còn mr.baloha đọc kĩ bài mình đi , xem cái vòng lặp while nữa, mình nghĩ là ko lộn đâu!

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

    anh kudo đặc biệt thích cái O(N), bld ko hiểu ,và cũng nói thật
    bld cũng chỉ biết đến pascal mới đầu tháng 5 đây chớ mấy,
    hix....chỉ giáo nhiều nhiều
    Được sửa bởi bld lúc 21:37 ngày 16-07-2009 Reason: Bổ sung bài viết

  20. 3 thành viên Like bài viết này:


Trang 1 / 72 12346 ... 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
  •