Počítání písmen – Delphi – Fórum – Programujte.com

Zadání :

Na vstupu je dána věta.

a) Kolik různých písmen angl. abecedy se ve větě nachází?

Dosavadní kód:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i,count:integer;
    c:char;
begin
s:=Edit1.text;
count:=0;
while Length(s) > 0 do

  begin
    Inc(Count);
    c := s[1];
    i := 1;
    while i <= Length(s) do
    begin
      If (c=s[i]) then
        delete(s,i,1)
      else
        Inc(i);
  end;
      end;
 label2.caption:='Počet různých písmen ve větě je '+InttoStr(Count);
 end;

Problém mám tedy akorát s tím, že počítám všechny znaky, nikoliv jen písmena. Nevím, jak tam správně hodit nějaký ten cyklus. Další úkoly, jako například vypsat písmena, která se nachází právě jednou nebo písmena, která se nachází alespoň třikrát, z toho doufám následně odvodím. Díky všem za pomoc.

#1 MadKing
Řek bych, že na to jdeš dost blbě - především velmi neefektivně.

1. písmena anglické abecedy jsou a-z a je jich 26.

2. mělo by být jedno jestli je písmeno velké či malé

3. už i vzhledem k dalším úkolům by bylo určitě vhodné spočítat počet výskytů každého jednoho písmene zvlášť - na to ale jedna proměnná stačit nebude...

Takže doporučení - projdi jedním cyklem ten zadaný řetězec a pro každé písmenko (převedené na velké) přičti jedničku do odpovídající proměnné (už jste dělali pole?) Pak stačí projít tyto výsledky a spočítat kolik jich je nenulových a máš první úkol hotový - ty další jsou už pak jasné...

#2 JoDiK
Díky za radu. Tady přikládám řešení, kdyby někdo chtěl mrknout.

procedure TForm1.Button1Click(Sender: TObject);
var s:string[255];
    pole:array[65..90] of integer;
    i,j,poc,poc1,poc2:integer;
begin
poc:=0;
s:=edit1.text;
For j:=65 to 90 do
pole[j]:=0;
For i:=1 to length(s) do
If ord(upcase(s[i])) in [65..90] then pole[ord(upcase(s[i]))]:= pole[ord(upcase(s[i]))]+1;
for j:=65 to 90 do
If pole[j]>0 then poc:=poc+1;
If poc=0 then label2.caption:='Musíte psát pomocí znaků anglické abecedy'
          else Label2.caption:='Počet různých písmen obsažených ve větě je '+IntToStr(poc);

//______________________________________________________________________________________________________  //

poc1:=0;
Label3.caption:='Písmena vyskytující se v textu právě jednou: ' ;
for j:=65 to 90 do
If pole[j]=1 then begin
                  Label3.caption:=Label3.caption+chr(j)+', ';
                  poc1:=poc1+1;
              end;
If poc1=0 then label3.caption:='Ve větě se nenachází písmeno s jedním výskytem';
//______________________________________________________________________________________________________  //

poc2:=0;
Label4.caption:='Písmena vyskytující se v textu alespoň 3-krát: ' ;
for j:=65 to 90 do
If pole[j]>=3 then begin
                  Label4.caption:=Label4.caption+chr(j)+', ';
                  poc2:=poc2+1;
              end;
If poc2=0 then label4.caption:='Ve větě se nenachází písmeno obsažené alespoň 3-krát';





end;

#3 MadKing
Vidím, že se rád procvičuješ v používání převodních funkcí.

Leda, že bys nevěděl, že typ char je taktéž ordinální, takže ho lze použít jako řídící proměnnou cyklu i index do pole - takže by se ti to dost zjednodušilo a možná i zpřehlednilo (místo 65 je lepší vidět A)...

pole:array['A..'Z'] of integer;

For j:='A' to 'Z' do

znak:=upcase(s[i])
If znak in ['A'..'Z'] then pole[znak]:= pole[znak]+1;

Label3.caption:=Label3.caption+j+', ';