Структуры данных. Строки - 13 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

15
3 ИСПОЛЬЗОВАНИЕ СТАНДАРТНЫХ ПРОЦЕДУР И ФУНКЦИЙ
Пример 5. Дана строка. Напечатать в алфавитном порядке все различные
латинские прописные буквы этой строки.
Для решения задачи используется не посимвольная обработка строки
S, как
в примере 3, а стандартная функция
pos (см. Приложение).
program S_5_1;
var k, i: integer;
S: string;
begin
writeln (’Введите строку’);
readln (S);
for i := ’A’ to ’Z’ do
begin
k := pos(i,S);
if k > 0 then
write(i,’ ’)
end;
writeln
end.
Пример 6. Даны строки
S, S1, S2. Заменить в строке S все вхождения под-
строки
S1 подстрокой S2.
Решение оформлено в виде процедуры
S61( S, S1, S2).
Входные параметры: строки
S, S1, S2.
Выходные параметры: строка
S.

Страницы