Announcement

Collapse
No announcement yet.

giup minh giai bai nay voi: pascal nhe

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts
    mytea
    Thành viên mới

  • mytea
    replied
    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ự.

    Leave a comment:

  • mytea
    Thành viên mới

  • mytea
    replied
    thanks you!

    Leave a comment:

  • mytea
    Thành viên mới

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

    Leave a comment:

  • 16520808
    Nguyễn Hoàng Trọng Nghĩa

  • 16520808
    replied
    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:

    Leave a comment:

  • mytea
    Thành viên mới

  • mytea
    replied
    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

    Leave a comment:

  • 16521200
    Nguyễn Hoài Thu

  • 16521200
    replied
    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.

    Leave a comment:

  • 16520682
    Nguyễn Tấn Lợi

  • 16520682
    replied
    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:

    Leave a comment:

  • mytea
    Thành viên mới

  • mytea
    replied
    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 !

    Leave a comment:

  • mytea
    Thành viên mới

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

    Leave a comment:

  • 16521200
    Nguyễn Hoài Thu

  • 16521200
    replied
    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.

    Leave a comment:

  • mytea
    Thành viên mới

  • mytea
    started a topic giup minh giai bai nay voi: pascal nhe

    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

LHQC

Collapse
Working...
X