Определить, сколько раз в заданном тексте встречается каждое различное двухбуквенное сочетание - Pascal ABC

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

Задание В заданном тексте определить,сколько раз встречается каждое различное двухбуквенное сочетание. (Как я понял, это определёННый,феРРум,кООператив...) (ну только разные) И как вообще для таких "штук" рисуется блок схема,немного недопонял.

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

textual
                            Листинг программы 
                        
var
  a: array ['А'..'Я','А'..'Я'] of Integer;
 
  for i:=2 to Length(s) do
    if (UpCase(s[i-1]) in ['А'..'Я']) and (UpCase(s[i]) in ['А'..'Я']) then
      Inc(a[UpCase(s[i-1]),UpCase(s[i])]);
 
  for c1:='А' to 'Я' do for c2:='А' to 'Я' do
    if a[c1,c2]>0 then WriteLn(c1,c2,' - ',a[c1,c2]);

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

7 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы