Pascal - Konsolowe

Zliczanie spółgłosek

Zliczanie spółgłosek
Pascal - Konsolowe

Program: zliczający ilość spółgłosek w wprowadzonym tekście.

Użytkownik wprowadza tekst, po czym program zlicza ilość konkretnych liter we wprowadzonym tekście.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program spolgloski;
uses crt;
var tekst:String;
    i,spl:integer;
begin
     clrscr;
     Write('Wprowadz tekst: ');
     read(tekst);
     for i:=1 to length(tekst) do
     case tekst[i] of
     'q', 'v', 'x',
     'b', 'c', 'd', 'f',
     'g', 'h', 'j', 'k',
     'l', 'm', 'n', 'p',
     'r', 's', 't', 'w',
     'z' : spl:=spl+1;
     end;
     Writeln('We wprowadzonym tekscie jest ',spl,' spolglosek!');
     readkey;
end.