15.. Učitati niz znakova /STRING/ i znak. Ispisati koliko puta se upisani znak pojavljuje u upisanom stringu.

Opis programa: String i znak se ispisuje sa tastature. FOR petlja omogućuje da se svi znakovi s[i] uporede sa učitanim znakom. Upoređivanje se izvodi naredbom IF c = z[i] THEN . Za svaki pronađeni isti znak uvačava se brojač br.

Listing programa:

PROGRAM P15111025;
USES 
  WinCRT;
VAR
  i, br : Integer;
  s : String;
  z : Char;
BEGIN
  Write('Unesi string ');
  Readln(s);
  Write('Unesi znak ');
  Readln(z);
  br := 0; {pocetna vrijednost brojaca}
  FOR i := 1 TO LENGTH(s) DO
    BEGIN
      IF z = s[i] THEN 
      br := br + 1;
    END;
    Writeln('Znak = ', z, ' se pojavio ', br, ' puta');
END.

Ispis na ekranu:

Index