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

UptoLike

ВУЗ: 

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

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

Рубрика: 

9
for i := 1 to n do
Sr[i] := S[n-i+1];
writeln(Sr)
end.
Следует обратить внимание на использование одного из операторов
Sr[0]:=S[0] или Sr[0]:=chr(n). Таким образом устанавливается длина строки
Sr равной длине строки S, так как в языке Pascal информация о текущей длине
строки хранится в ее символе с нулевым индексом.
Ниже приводится еще один вариант решения, в котором преобразова-
нию подвергается исходная строка.
Решение оформлено в виде процедуры
S13( S ). Строка S является и
входным, и выходным параметром.
procedure S13(var S: string);
var i, n: integer;
C: char;
begin
n := ord(S[0]);
for i := 1 to n div 2 do
begin
C := S[i];
S[i]:= S[n-i+1];
S[n-i+1]:= C
end
end;
Контрольный пример
Входные данные: S=’строка для теста’
Выходные данные: S=’атсет ялд акортс’

Страницы