Рядкові величини Рядок це послідовність символів кодової таблиці ЕОМ. При використанні у виразах рядок охоплюється з двох сторін апострофами. Кількість. - презентация

1 Рядкові величини Рядок це послідовність символів кодової таблиці ЕОМ. При використанні у виразах рядок охоплюється з двох сторін апострофами. Кількість символів в рядку (максимальна довжина рядка) може змінюватися від 0 до 255. Для опису рядкових величин використовують ідентифікатор string, після якого в квадратних дужках записується максимальне значення довжини рядка для даної величини.

2 Формат, var :string[максимальна довжина рядка]; Приклад. var Rl: string[10]; R2: string[4]; Максимальна довжина рядка для змінної R1=10, для R2=4. Якщо довжина рядка не вказана, то вона автоматично приймає значення 255 байт.

3 Рядкові величини можна використовувати в програмі і у вигляді констант. Наприклад. Const NАМЕ ='інформатика';

4 Для роботи з рядковими величинами існує ряд процедур і функцій. Функція Concat Формат Concat(Rl,R2,R3); Функція Concat здійснює склеювання рядків Rl; R2, R3 в один рядок в такому порядку, в якому вони записані.

5 Наприклад. Program Fconcat; Const Rl='Moвa '; R2='програмування '; R3=Turbo Pascal'; Var R:string[35]; begin R:=concat(Rl,R2,R3); writeln(R); end.

6 Rl='Moвa '; R2='програмування '; R3=Turbo Pascal'; R:=concat(Rl,R2,R3); 'MoвaпрограмуванняTurbo Pascal';R:= На екрані дисплея буде надруковано: Мова програмування Turbo Pascal.

7 Даний результат можна отримати ще з допомогою операції склеювання "+". Наприклад. Program Fconcat; var R:string[35]; begin R='Мова '+'програмування '+'Turbo Pascal'; writeln(R); end.

8 Функція Length Формат: Length(R); Функція Length видає фактичну довжину рядка, який міститься в даній змінній. При підрахуванні довжини рядка враховуються всі символи, в тому числі і проміжки.

9 Наприклад. Program Flength; Const R=Turbo Pascal; Var N: integer; begin N:=length(R); writeln('n=',N); end. На екрані дисплея буде надруковано: п=12

10 Функція Copy Формат Copy(R, Poz, N); Функція Copy копіює фрагмент довжиною N рядка R, починаючи з позиції Poz.

11 Наприклад. Program Fcopy; const R='Turbo Pascal'; var WORD: string[6]; Poz, N: integer; begin Poz:=7; N:=6; WORD:=Copy(R, Poz, N); writeln(WORD); end. На екрані дисплея буде надруковано слово: Pascal

12 Робота програми R= TurboPascal Pos:= word= N:=6

13 Робота програми R= TurboPascal Pos:= Pword= N:=6

14 Робота програми R= TurboPascal Pos:= Paword= N:=6

15 Робота програми R= TurboPascal Pos:= Pasword= N:=6

16 Робота програми R= TurboPascal Pos:= Pascword= N:=6

17 Робота програми R= TurboPascal Pos:= Pascaword= N:=6

18 Робота програми R= TurboPascal Pos:= Pascalword= N:=6

19 Функція Pos Формат. Pos(WORD,R); Функція Pos знаходить номер позиції Р, з якої починається перше входження слова WORD в рядку R. Якщо слово WORD в рядку R не знайдено, то буде надруковано число 0.

20 Наприклад. Program Fpos; Const R='Севастополь'; WORD='сто'; Var P: integer; begin P:=Pos(WORD, R); writeln('P=',P); end. На екрані дисплея буде надруковано: Р=5

21 Робота програми R='Севастополь'; WORD='сто'; Севастополь сто

22 Робота програми R='Севастополь'; WORD='сто'; Севастополь сто

23 Робота програми R='Севастополь'; WORD='сто'; Севастополь сто

24 Робота програми R='Севастополь'; WORD='сто'; Севастополь сто

25 Робота програми R='Севастополь'; WORD='сто'; Севастополь сто

26 Робота програми R='Севастополь'; WORD='сто'; Севастополь сто

27 Робота програми R='Севастополь'; WORD='сто'; Севастополь сто P=5 Pos(WORD, R) = 5

28 Процедура Insert Формат Insert(WORD, R, Poz); Процедура Insert вставляє слово WORD в рядок R, починаючи з позиції Poz.

29 Наприклад. Program Finsert; Var Poz: integer; R, WORD: string[35]; begin Poz:=20; R:='Moвa програмування Pascal'; word:=Turbo ; insert(WORD, R, Poz); writeln(R); end.

30 Poz:=6; R:='Moва Pascal'; word:=Turbo ; insert(WORD, R, Poz); МоваPascal Poz=6 Turbo

31 Poz:=6; R:='Moва Pascal'; word:=Turbo ; insert(WORD, R, Poz); МоваPascal Poz=6 Turbo

32 Poz:=6; R:='Moва Pascal'; word:=Turbo ; insert(WORD, R, Poz); МоваTurboPascal Poz=6 Turbo

33 Процедура Delete Формат Delete(R, Poz, N); Процедура Delete знищує слово, яке починається з вказаної позиції Poz і має задану довжину N в рядку R.

34 Наприклад. Program Fdelete; Var R:string[35]; N, Poz: integer; begin R:='Moвa Turbo Pascal'; Poz=6; N:=6; delete(R, Poz, N); writeln(R); end. На екрані дисплея буде надруковано: Мова Pascal

35 Poz:=6; R:='Moва Turbo Pascal'; word:=Turbo ; delete(R, Poz,6); МоваTurboPascal Poz=6 N=6

36 Poz:=6; R:='Moва Turbo Pascal'; word:=Turbo ; delete(R, Poz,6); МоваPascal Poz=6