Question

Дана строка символов , состоящих из маленьких латинских букв . Определить сколько каждого вида символов содержится в данной строке. Pascal ABC

Answer 1

Const  l:array[1..26] of char = ('a','b','c','d','e','h','i','j','k','l','m','n','o','p','q','r','f','s','t','u','v','w','x','i','y','z');
Var
s:string;
j,i,k:integer;
a:array [1..100] of integer;
begin
readln(s);
k:=0;
For i:=1 to length(s) do
for j := 1 to 26 do
If s[i] = l[j] then
begin
a[j]:=a[j]+1;
end;
for i:=1 to 26 do begin
if a[i]<>0 then
writeln(l[i], ' = ', a[i]);
end;
end.

Answer 2

Определение количества каждого вида символов в строке

Для определения количества каждого вида символов в данной строке, можно воспользоваться следующим алгоритмом:

1. Создать словарь, где ключами будут символы, а значениями - количество вхождений каждого символа. 2. Пройтись по каждому символу в строке и увеличивать соответствующее значение в словаре. 3. Вывести полученные результаты.

Пример кода на языке Pascal ABC:

var
  inputString: string;
  charCount: array['a'..'z'] of Integer;
  ch: Char;
begin
  // Инициализация счетчиков символов
  for ch := 'a' to 'z' do
    charCount[ch] := 0;

// Ввод строки
  Write('Введите строку: ');
  Readln(inputString);

// Подсчет символов
  for ch in inputString do
  begin
    if ch in ['a'..'z'] then
      Inc(charCount[ch]);
  end;

// Вывод результатов
  for ch := 'a' to 'z' do
  begin
    if charCount[ch] > 0 then
      Writeln('Символ ', ch, ' встречается ', charCount[ch], ' раз');
  end;
end.

Примечание: В данном примере предполагается, что строка состоит только из маленьких латинских букв. Если в строке могут быть другие символы, то код нужно дополнить соответствующими проверками.

Источники: --