Определить частоту встречаемости каждого символа в массиве - Pascal

Узнай цену своей работы

Формулировка задачи:

Дан массив, состоящий из символьных значений. Определить частоту встречаемости каждого символа в массиве. Хотел создать строку из символов русского алфавита, и поочереди перебирать их в другом, неполучилось помогите плиз а то решил уже 14 задач мозг отказываеться работать... И еще запарка Найдите сумму элементов из заштрихованной области массива размерностью N на N. (заштрихованая область, все элементы по бокам границы матрицы... буду очень признателен...

Решение задачи: «Определить частоту встречаемости каждого символа в массиве»

textual
Листинг программы
uses crt;
const n=300;
var s:array[1..n] of char;{массив символов}
    a:array[byte] of integer;{массив встречаемости символов в массиве}
    i,j:integer;
    c:char;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
  s[i]:=chr(random(223)+33);
  write(s[i]);
 end;
writeln;
writeln;
for i:=33 to 255 do a[i]:=0;{обнулим исходный массив встречаемости}
for i:=1 to n do
a[ord(s[i])]:=a[ord(s[i])]+1;
writeln('Встречаемость символов:');
j:=0;
for i:=33 to 255 do
if a[i]>0 then{если ячейка не пустая}
write(chr(i),'-',a[i]:2,' ');{выводим символ и количество его вхождений}
readln
end.

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы