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

UptoLike

ВУЗ: 

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

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

Рубрика: 

8
2 ПОСИМВОЛЬНАЯ ОБРАБОТКА СТРОК
Пример 1. Дана строка. Получить новую строку, содержащую символы
исходной строки в обратном порядке.
Задачу можно решить с помощью операции
конкатенации. Очередной
символ
S[i] исходной строки S добавляется к результирующей строке Sr слева,
что и обеспечивает размещение символов в обратном порядке.
program S_1_1;
var S,Sr: string;
i: integer;
begin
writeln (’Введите строку’);
readln (S);
Sr := ’’;
for i := 1 to ord(S[0]) do
Sr := S[i]+Sr;
writeln(Sr)
end.
Более эффективный способ решения задачи состоит в том, что результи-
рующая строка заполняется
посимвольно, как обычный массив.
program S_1_2;
var S,Sr: string;
i,n: integer;
begin
writeln (’Введите строку’);
readln (S);
n := ord(S[0]);
Sr[0]:= S[0]; {или Sr[0]:=chr(n);}

Страницы