ادخال كلمة متكونة من ثلاث أحرف واظهارها على شكل مجموعات

**mah11** 21/7/2013, 8:47 pm

الكود:: Program sous_ensemble; var ph : string[20]; n,p : integer; procedure defrague(s:string); {1} var i : integer; begin s:=''; write(' {}'); for i:=1 to n do begin s:=copy(ph,i,1); write(' ','{',s,'}'); end; writeln; end; function gf(s:integer):integer; {2} var i : integer; begin s:=1; for i:=1 to n do s:=s*2; gf:=s; end; procedure gj(d:string); {3} var j,k : integer; begin d:=''; k:=n-1; write(' {'); for j:=1 to n do begin d:=copy(ph,j,1); if j=k+1 then write(d) else write(d,','); end; write('}'); end; procedure defrague2(s,e:string); {4} var i,l : integer; begin s:=''; l:=n-1; for i:=1 to n do begin s:=copy(ph,i,1); if i=l+1 then e:=copy(ph,1,1) else e:=copy(ph,i+1,1); write(' ','{',s,',',e,'}'); end; writeln; end; begin writeln; write(' ','Entrez Le Nom De 3 Caractere : ? '); read(ph); writeln; n:=length(ph); defrague(ph); writeln; defrague2(ph,ph); writeln; gj(ph); writeln; writeln; p:=gf(n); writeln(' ',p); readln; readln; end.