Question

Program ma policzyć spółgłoski w pascalu, napisałem takie cudo :
program spolgloski;
uses Crt;
var zdanie:string;
licznik:byte;
begin
Write('wpisz zdanie: ');
Readln(zdanie);
for licznik:=1 to length(zdanie) do if zdanie[licznik]= 'bcdfghjklmnpqrstwxzBCDFGHJKLMNPRQSTWXZ'then

writeln;
writeln('Liczba spolglosek wynosi: ');
readln;
end.
Niby wszystko jest okej, ale brakuje czegoś co policzy, bo nie wyświetla mi liczby spółgłosek.

Answer 1

Poprawiłem nieco. Da się to jeszcze upiększyć, ale już działa. W szczególności listę spółgłosek trzebaby jako stałą zdeklarować.

uses crt;
var zdanie:string;
licznik:byte;
i:byte;
s:string;
begin
    s:='bcdfghjklmnpqrstwxzBCDFGHJKLMNPRQSTWXZ';
    Write('wpisz zdanie: ');
    Readln(zdanie);
    licznik:=0;
    for i:=1 to length(zdanie) do
        if pos(zdanie[i],s)>0 then inc(licznik);
    writeln;
    writeln('Liczba spolglosek wynosi: ',licznik);
    readln;
end.

Answer 2

Zadanie w załączniku