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

UptoLike

ВУЗ: 

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

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

Рубрика: 

12
Упражнения
1) Измените вывод в программе
S_2_1 таким образом, чтобы выводились
значения только для тех цифр, которые встречаются в строке
S.
2) Для каждой строчной латинской буквы определите, сколько раз она
встречается в строке.
Пример 3. Дана строка. Напечатать в алфавитном порядке все различные
латинские строчные буквы этой строки.
Задача имеет красивое и короткое решение. Для его реализации в качестве
основного организуется цикл по всем латинским строчным буквам, так как в таб-
лице
символов (ACSII или Unicode) они упорядочены по алфавиту.
program S_3_1;
var n, k, i: integer;
S: string;
begin
writeln (’Введите строку’);
readln (S);
n := ord(S[0]);
for i := ’a’ to ’z’ do
begin
k := 1;
while (k<=n) and (S[k]<>i) do
k := k+1;
if k <= n then
write(i,’ ’)
end;
writeln
end.

Страницы