Transcript Рядкові величини

Рядкові
величини
Рядок
Рядок - це послідовність
символів, що взятий у апострофи
довжиною до 255 символів.
Описують рядкові величини в
розділі опису змінних або констант.
Var
ідентифікатор: string[макс.довжина];
Const
ідентифікатор=‘довільний текст’;
Приклад:
Var
A, B, C: string[15];
D: string;
Const
A=‘Інформатика’;
В=‘Школа’;
Функції обробки рядкових
величин
Length(рядок); знаходження
довжини
рядка
(кількості
символів)
Copy(рядок, і, n); виділяє ncимволів починаючи з позиції і
Concat(рядок1, рядок2, ...);
з’єднує рядки в один рядок.
Pos(рядок1, рядок2); дає
номер
символу,
з
якого
починається входження рядка1
в рядок2
Приклад:
A:=Length(‘Олімпіада’);
B:=Copy(‘Інформатика’, 3, 5);
C:=Concat(‘Петров’, ’ Іван’);
D:=Pos(‘форма’, ’інформатика’);
Процедури обробки рядкових
величин
Insert(рядок1, рядк.змінна, і);
вставляє рядок1 у рядок заданий
рядковою змінною, починаючи з
позиції і
Delete(рядк.змінна,
і,
n);
вилучає n-символів з рядка
починаючи з позиції і
Str(число,
рядк.змінна);
переводить чисове дане в дане
типу рядок
Val(‘рядок’, змінна1, змінна2);
засилає у числову змінну1
числовий образ рядка
Приклад:
Нехай А:=‘Інтика’;
B:=‘Політехніка’;
Insert(‘форма’, A, 3);
Delete(B, 1, 4);
Str(2004, D);
Val(‘2004’, A, B);
Приклад 1
Знайти
довжину
слів:
ДИСКОВОД,
ВІДЕОМОНІТОР,
КОМПЮТЕР
Program Task1;
Const
A=‘ДИСКОВОД’;
B=‘ВІДЕОМОНІТОР’;
C=‘КОМПЮТЕР’;
Var
L1, L2, L3: integer;
Begin
L1:=Length(A);
L2:=Length(B);
L3:=Length(C);
WriteLn(L1, L2, L3);
End.
Приклад 2
Дано
слово
АЛГОРИТМ. Складіть
слова: АЛГО, РИТМ,
ГОРА.
Program Task2;
Const
A=‘АЛГОРИТМ’;
Var
A1, A2, A3:string;
Begin
A1:=copy(A, 1, 4);
A2:=copy(A, 5, 4);
A3:=copy(A, 3, 3)+
copy(A, 1, 1);
WriteLn(A1, A2, A3);
End.
Приклад 3
Підрахуйте кількість
букв А в слові
АБАБАГАЛАМАГА.
Program Task3;
Const
A=‘АБАБАГАЛАМАГА’;
Var
k, L, i: integer;
Begin
k:=0;
L:=Length(A);
For i:=1 to L do
begin
if copy(A, i,1)=‘A’ then k:=k+1;
end;
Writeln(k);
End.
Приклад 4
Скласти програму, яка
замінює в реченні “Мова
програмування
Turbo
Pascal” словосполучення
“Мова програмування” на
словосполучення
“Програмування мовою”.
Program Task4;
Var R, R1, R2, R3: string;
N: integer;
Begin
Writeln(‘Початковий текст’);
Readln(R);
Writeln(‘Замінити слово’); Readln(R1);
Writeln(‘На слово’); Readln(R2);
While Pos(R1, R)>0 do Begin
N:=pos(R1, R);
Delete(R, N, Length(R1));
Insert(R2, R, N);
end;
Writeln(R);
End.