Các cậu ơi bài tập xâu kí tự....

[phamduy93]

Nhập vào xâu S. Đếm xem trong xâu có bao nhiêu kí tự khác nhau

[Long_Phung]

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

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;

[phamduy93]

minh` chua hieu? lam' doan. code nay`....cau. thu? giai? thich' chi tiet' ho. minh` cai'

[nirvanat]

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.

[phamduy93]

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

[hamj]

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);