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
|