15.. Ucitiati string i prebrojati operatore u stringu (+,-,*,/).

Opis programa: Provjera se izvodi sa 4 IF naredbe za svaki operator posebno. Za svaki operator se uvečava brojač. Početna vrijednost brojača je 0.

Listing programa:

PROGRAM P15111027;
USES 
  WinCRT;
VAR
  i, br : Integer;
  s : String;
BEGIN
  Write('Unesi string ');
  Readln(s);
  br := 0; {pocetna vrijednost brojaca}
  FOR i := 1 TO LENGTH(s) DO
    BEGIN
      IF '+' = s[i] THEN br := br + 1;
      IF '-' = s[i] THEN br := br + 1;
      IF '*' = s[i] THEN br := br + 1;
      IF '/' = s[i] THEN br := br + 1;
    END;
    Writeln('Broj operatora u stringu = ', br);
END.

Ispis na ekranu:

Index