ВУЗ:
Составители:
10
Пример 2. Дана строка, состоящая из строчных латинских букв, цифр, про-
белов и знаков равенства. Для каждой цифры посчитать, сколько раз она встреча-
ется в строке.
Решение оформлено c использованием процедуры
S21( S, A).
Входные параметры: строка
S.
Выходные параметры: массив
А для хранения числа вхождений соответст-
вующей цифры.
Параметр для количества элементов в массиве не предусмотрен, так как ко-
личество элементов массива для данной задачи фиксировано и равно количеству
цифр – 10.
program S_2_1;
type mas = array[’0’..’9’] of integer;
{каждый элемент массива типа mas предназначен для
хранения числа вхождений соответствующей цифры от 0 до 9}
var S: string;
Res: mas;
j: char;
procedure S21(var S: string; var A: mas);
var n, i: integer;
j: char;
begin
n := ord(S[0]);
for j := ’0’ to ’9’ do
A[j] := 0;
for i := 1 to n do
{если символ S[i] принадлежит множеству цифр}
if S[i] in [’0’..’9’] then
Страницы
- « первая
- ‹ предыдущая
- …
- 6
- 7
- 8
- 9
- 10
- …
- следующая ›
- последняя »