Структуры данных. Строки - 9 стр.

UptoLike

Составители:

Рубрика:

A[S[i]] := A[S[i]]+1

end;

begin

writeln (’Введите строку’);

readln (S);

S21(S, Res);

for j := ’0’ to ’9’ do

writeln(’символ ’,j,’ встречается ’,Res[j],’ раз(а)’)

end.

В случае если тип данных множество еще не известен, проверку факта, что

символ является цифрой, можно произвести следующим образом:

if (S[i] >= ’0’) and (S[i] <= ’9’) then

Контрольный пример

Входные данные: S=’a=1 b=27 ccc=2227’

Выходные данные: A=(0,1,4,0,0,0,0,2,0,0)

Результаты работы программы:

символ 0 встречается 0 раз(а)

символ 1 встречается 1 раз(а)

символ 2 встречается 4 раз(а)

символ 3 встречается 0 раз(а)

символ 4 встречается 0 раз(а)

символ 5 встречается 0 раз(а)

символ 6 встречается 0 раз(а)

символ 7 встречается 2 раз(а)

символ 8 встречается 0 раз(а)

символ 9 встречается 0 раз(а)