sets.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program sets(input,output);
var
s1,s2:set of 'a'..'z';
n1,n2:integer;
c:char;
begin
 s1:=[];
 s2:=[];
 n1:=0;n2:=0;
 read(c);
 write(c);
 while c<>'?' do
  begin
  if c in['a'..'z'] then
   if c in['a','e','i','o','u'] then s1:=s1+[c]
   else s2:=s2+[c];
  read(c);
  write(c);
  end;
  writeln;
  for c:='a' to 'z' do
   if c in s1 then
    begin
     write(c);n1:=n1+1;
    end;
  writeln;
  writeln('n1=',n1);
  for c:='a' to 'z' do
   if c in s2 then
    begin
     write(c);n2:=n2+1;
    end;
  writeln;
  writeln('n2=',n2);
end.