Pascal - Procedury i funkcje

Zliczanie znaków

Zliczanie znaków
Pascal - Procedury i funkcje

Program: zliczający znaki w podanym tekście.

Użytkownik podaje frazę do wykonania na niej operacji. Wyszukiwane są:  

  • spacje,
  • litery “a”,
  • litery “z”,
  • przecinki.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program zliczaniecase;
uses crt;
var tekst:string;
    sp,a,z,przec:integer;
    i:integer;
procedure zliczaj (var licznik:integer);
begin
     licznik:=licznik+1;
end;
begin
     clrscr;
     write('Podaj tekst :');
     readln(tekst);
     a:=0;
     z:=0 ;
     sp:=0;
     przec:=0;
     for i:=1 to length(tekst) do
     case tekst[i] of
          ' ':zliczaj(sp);
          'a':zliczaj(a);
          'z':zliczaj(z);
          ',':zliczaj(przec);
     end;
writeln('liczba spacji w tekscie wynosi ',sp);
writeln('liczba a w tekscie wynosi ',a);
writeln('liczba z w tekscie wynosi ',z);
writeln('liczba przecinkow wynosi ',przec);
readln;
end.