Announcement

Collapse
No announcement yet.

giup minh giai bai nay voi: pascal nhe

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • giup minh giai bai nay voi: pascal nhe

    nhap vao 2 so nguyen duong m,n m<n.xet xem m co xuat hien trong n ko? neu co xuat hien bao nhieu lan?
    vi du:
    m=20, n=20220
    in ra
    20 co xuat hien trong 20220
    so lan xuat hien la 2

  • #2
    uses crt;
    var m,n:string;
    i:integer;
    begin
    Writeln('Nhap m,n');
    Readln(m);
    readln(n);
    i:=0;
    While Pos(n,m) <> 0 do
    begin
    Delete(m,Pos(n,m),Length(n));
    inc(i);
    end;
    If i > 0 then writeln('n xuat hien trong m ',i,' lan')
    else writeln('n khong xuat hien trong m');
    readln
    end.

    Comment


    • #3
      thank ban thu!
      co cach nao giai ma ko dung kieu string dc ko ban?

      Comment


      • #4
        giai giup bai nay bang pascal nhe !
        so tu nhien co nhieu tinh chat thu vi. vi du so 23 so dao nguoc la 32. hai so nay co ucln la 1, nhung so nay gi la so than thien.32,23 deu goi la so than thien.hay tim va dem xem co bao nhieu so than thien trong [a,b].

        giai ko dung ham giup minh nhe !

        Comment


        • #5
          uses crt; var m,n:string; i:integer; begin Writeln('Nhap m,n'); Readln(m); readln(n);

          Theo mình thấy thì cách này tuy ngắn nhưng không chặt.
          VD: số m=22 và n=202220 thì số lần xuất hiện của m trong n là 2, nhưng nếu code như vậy thì kết quả ra là 1.
          Mà nhìn lại thì thấy đề cũng không rõ ràng lắm, ví dụ cũng chưa tổng quát.
          P/s: :byebye: mình chỉ có chút ý kiến cho năng động xíu thui :byebye:

          Comment


          • #6
            Originally posted by mytea View Post
            thank ban thu!
            co cach nao giai ma ko dung kieu string dc ko ban?
            À cách trên sai nha bạn
            Sửa lại thành vầy mới đúng *-*
            PHP Code:
            uses crt;
            var 
            m,n:string;
                
            i:integer;
            begin
                    Writeln
            ('Nhap m,n');
                    
            Readln(m);
                    
            readln(n);
                    
            i:=0;
                    While 
            Pos(n,m) <> do
                    
            begin
                            Delete
            (m,1,Pos(n,m)+Length(n)-1);
                            
            inc(i);
                    
            end;
                    If 
            0 then writeln('n xuat hien trong m ',i,' lan')
                    else 
            writeln('n khong xuat hien trong m');
                    
            readln
            end

            Không xài string thì bạn xài code này
            PHP Code:
            uses crt;
            var  
            i,m,n,t:integer;
            function 
            zzz(x:integer):integer;
            var 
            y,z:integer;
            begin
                    y
            :=1;
                    for 
            z:=1 to x do
                    
            begin
                    y
            :=y*10;
                    
            end;
                    
            zzz:=y;
            end;
            function 
            check(x:integer):integer;
            var 
            y:integer;
            begin
                    y
            :=0;
                    while 
            x<>do
                    
            begin
                    inc
            (y);
                    
            x:=x div 10;
                    
            end;
                    
            check:=zzz(y);
            end;
            begin
                    Writeln
            ('Nhap m,n');
                    
            Readln(m);
                    
            readln(n);
                    
            i:=0;
                    
            t:=check(n);
                    while 
            <> do
                    
            begin
                    
            if m mod t n then
                    begin
                    inc
            (i);
                    
            m:=m div t;
                    
            end
                    
            else m:=m div 10;
                    
            end;
                    If 
            0 then writeln('n xuat hien trong m ',i,' lan')
                    else 
            writeln('n khong xuat hien trong m');
                    
            readln
            end

            Originally posted by 16520682 View Post
            Theo mình thấy thì cách này tuy ngắn nhưng không chặt.
            VD: số m=22 và n=202220 thì số lần xuất hiện của m trong n là 2, nhưng nếu code như vậy thì kết quả ra là 1.
            Mà nhìn lại thì thấy đề cũng không rõ ràng lắm, ví dụ cũng chưa tổng quát.
            P/s: :byebye: mình chỉ có chút ý kiến cho năng động xíu thui :byebye:
            Cái này mình cũng nghĩ là do đề không rõ ràng :/
            16521200
            Nguyễn Hoài Thu
            Last edited by 16521200; 14-09-2016, 13:40.

            Comment


            • #7
              giai giup minh voi
              nhap vao so nguyen n ( n<=10) va thuc hien :
              a. in ra tren man hinh tam giac pascal bac n
              b. khai trien da thuc ( x+y)^n
              vd
              n=3 tam giac bac 3 la
              1
              1 1
              1 2 1
              1 3 3 1
              b. khai triển đa thức : (x+y)^3 = x^3 +3x^2y +3xy^2+ y^3

              Comment


              • #8
                Cái này giống mấy em cấp 3 đi thi tin mà vô đây hỏi bài ấy nhỉ :sunglasses::sunglasses::salute::salute:

                Comment


                • #9
                  neu dung thi co help e gium ko? em cung thich lap trinh nen muon hoc them. thay may anh chi cntt gioi qua.

                  Comment


                  • #10
                    thanks you!

                    Comment


                    • #11
                      lập trình pascal

                      cần xin tài liệu các bài tập kiểu mảng và xâu ký tự.

                      Comment

                      LHQC

                      Collapse
                      Working...
                      X