Free Pascalban hogyan tudom lekérdezni a karakterek számát?

Végigmész egy for ciklussal a szövegen, és ha az adott karakter egyenlő azzal, amit keresel, akkor egy számlálóhoz hozzáadsz 1-et.

nem pascalban, de kb így nézne ki:

string text; // amiben keresel

char keresettbetu; // az a betű amit keresel

int szamlalo = 0; // hany darab keresett betű van a szovegben

for (int i = 0, i < text.Lenght, i +=1)

{

if (text[i] == keresettbetu)

{

szamalalo += 1;

}

}

Bocsi, egy Linux Mint-es DVD-rol megy a gepem, nincs ekezet :( felujitas kozben vagyok.

A Pascal stringek karaktereinek indexe 1-tol kezdodik a 0-as index a string hoszzat tartalmazza alapesetben. A szamlalo novelesere az Inc() eljaras a szep :)

program x_y_szamlalo;

var

x, y : word;

s : string;

i : byte;

begin

x := 0;

y := 0;

write('kerem a szoveget : ');

ReadLn(s);

for i := 1 to length(s) do

begin

if (lowercase(s[i])='x') then

inc(x);

if (lowercase(s[i])='y') then

inc(y);

{case elágazással is lehetne ezt megoldani:

case lowercase(s[i]) of

'x' : inc(x);

'y' : inc(y);

end;

}

end;

WriteLn;

WriteLn('A szovegben ',x,' x és ',y,' y betű található.');

end.