Обработка символьной информации (задачи, часть 3)

uses crt;
var
s, s1: string; i, n: integer;
begin
clrscr;

readLn(s); n:= length(s);
for i := 1 to n do
begin
s1 := copy(s, i, 1);
writeLn(s1)
end
end.

Ввод:
S=‘abcd’

Вывод:
a
b
c
d

конец

начало

Ввод s

Вывод s1

i:= 1(1)n

n:= Length(s)

s1:= Copy(s, i, 1);

между строкой и одномерным массивом символов типа char (т.е. array[1..N]

of char).

К любому символу в строке можно обращаться как к элементу одномерного массива, т.е. переменные типа string обрабатываются как массив. Например:
var
s : string;
begin
s := ‘Hello World!’;
if s[3]=’l’ then WriteLn(‘OK’);
end.

s,s1:string;
i,n:integer;
begin
writeln('vvedite slovo');
readln(s);
n:=length(s);
for i:=1 to n do
begin
s1:=s[i];
writeln(s1)
end
end.

Ввод:
S=‘abcd’

Вывод:
a
b
c
d

- текущая длина строки.

ord(s[0]) – длина строки.

Первый значащий символ

строки занимает второй байт и имеет индекс 1 и т.д.

n a m e

s[0]

s[1]

s[2]

s[3]

s[4]

s,s1: string;
i: integer;
begin
writeln ('vvedite slovo');
readln(s);
for i:=1 to ord(s[0]) do
begin
s1:=s[i];
writeln(s1)
end
end.

Ввод:
S=‘abcd’

Вывод:
a
b
c
d

начало

Ввод s

буквы «е» на «и».

имеет индекс 1.

true

символов


false

которого - текущая длина строки.


true

к элементу одномерного массива.


true

integer;
Begin
s1 := ‘умозаключение';
n := Length(s1);

WriteLn (‘Длина слова’, n)
s2 := copy(s1,1,2);
s3 := copy(s1,6,4);
s4 := copy(s1,4,2)+ copy(s1,2,2)+ copy(s1,6,1);
s5 := copy(s1,4,2)+ copy(s1,7,1);
s6 := copy(s1,7,2)+ copy(s1,6,1);
WriteLn(s2, s3, s4, s5, s6)
end.

4. Найти длину слова «умозаключение» и получить из него слова «ум», «ключ», «замок», «зал», «люк».