PDA

Просмотр полной версии : строки и символы на Паскале.



xwww
24.04.2008, 18:19
Начал проходить програмирование, уже прошёл массивы, но вот застрял на строках и символах, такое задание:
Для встречающихся в заданном тексте пар рядом расположенных символов указать, сколько раз встречается каждое из таких двухбуквенных сочетаний.

вот настрочил часть кода, немогу понять как сделать чтобы прога анализировала введённы текст на предмет введённых 2ух символов :(

program pp;
var
st,k:string;
n,i:integer;
begin

writeln('введите текст');
readln(st);
writeln('введите двубуквенные символы');
readln (k);
end;
ИИИ?

writeln ('двубуквенных символов в тексте - ',k);
end.

KRen
28.04.2008, 16:25
Почитай про функцию POS. Пихаешь в нее обе строки и гоняешь в цикле пока Pos <> 0, при этом удаляя найденные пары и наращивая счетчик. Вроде бы так, попробуй.