giup minh giai bai nay voi: pascal nhe

[mytea]

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ự.

[mytea]

thanks you!

[mytea]

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

[16520808]

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:

[mytea]

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

[16521200]

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 *-*

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,1,Pos(n,m)+Length(n)-1);
                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. 

Không xài string thì bạn xài code này

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<>0 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 m <> 0 do
        begin
        if m mod t = n then
        begin
        inc(i);
        m:=m div t;
        end
        else m:=m div 10;
        end;
        If i > 0 then writeln('n xuat hien trong m ',i,' lan')
        else writeln('n khong xuat hien trong m');
        readln
end. 

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 :/

[16520682]

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:

[mytea]

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 !

[mytea]

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

[16521200]

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.

[mytea]

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