Nhập vào xâu S. Đếm xem trong xâu có bao nhiêu kí tự khác nhau
Nhập vào xâu S. Đếm xem trong xâu có bao nhiêu kí tự khác nhau
Ý bạn là sao? Muốn lời giải? Hay thắc mắc gì ở cái đề bài?
[=========> Bổ sung bài viết <=========]
khai báo thêm 1 mảng trung gian b[a..z] of interger
giúp bạn đoạn code chính nha:
Code:For i:=1 to length(s) do Begin If (s[i]<>" ") and (B[s[i]]=0) then Begin dem:=dem+1; B[s[i]]=1; End; end;
Được sửa bởi Long_Phung lúc 22:50 ngày 28-02-2010 Reason: Bổ sung bài viết
minh` chua hieu? lam' doan. code nay`....cau. thu? giai? thich' chi tiet' ho. minh` cai'
Code:Var so: set of char; s:string; i,dem:byte; begin write('nhap xau');readln(s); so:=[];dem:=0; For i:=1 to length(s) do s:=s+[s[i]]; For i:=1 to length(s) do If s[i] in so then begin dem:=dem+1; so:=so-[s[i]]; end; Writeln('co tat ca ',dem,' ki tu khac nhau trong xau vua nhap'); readln; end.
thanks cậu nhưng sao mình chạy thử nhưng nó lại đưa ra là 0 có phần tử nào khác nhau mà trong bài của cậu lại có mấy cái mình chưa học, nhưng dù sao cũng thanks
mình đưa ra đoạn ct nha:
s2:='';
for i:=1 to length(s1) do {s1 la xâu nhập vào ban đầu}
if pos(s1[i],s2)=0 then s2:=s2+s1[i];
socackitukhacnhau:=length(s2);
Bookmarks