Литерные (символьные) величины

Для работы с текстом нужно использовать переменную типа string. Объявить переменную типа string можно следующим образом :
var str1: string.
Это означает, что в переменную str1 можно помещать любую литерную величину длиной не больше 255 символов. Объявить переменную типа string можно и другим образом:
var str1: string[6].
Это означает, что в переменную str1 можно помещать любую литерную величину, состоящую из 6 символов.

При работе с литерной величиной можно получить доступ к отдельным его элементам – литерам. Например, если в переменной с именем str хранится значение “картошка”, то справедливы следующие равенства str[1]=’k’, str[3[=’p’ и т.д.

Функция Concat (склеивание, сцепление)

Сделаем объявления:
Var str1: string[40];
    Str2: string[10];
    Str3: [string[8];

Присвоим переменным значения str2:=’Компьютерная’, str3:=’программа’. Тогда в результате выполнения команды str1:=str2+str3 в переменной str1 будет помещено ‘Компьютерная программа’. То же самое можно получить str1:=’ Компьютерная’ + ’ программа’.

Применим функцию Conkat.
Str1:=Concat(str2,str1). Тогда в результате выполнения команды в переменной str1 будет помещено ‘Компьютерная программа’. Можно и так Str1:=Concat(str2,’программа’). Этих же результатов достигнем при выполнении команды: Str1:=Concat(‘Компьютерная’,’программа’).

Практическая работа №1.
1. Объявить переменные типа string.
2. Присвоить переменным str2:=’Компьютерная’, str3:=’программа’.
3. Произвести конкатенацию (склейку) всеми способами.
4. Результат работы программы вывести на экран монитора.

Функция Copy позволяет из слова скопировать заданные символы начиная с заданной позиции. Применять функцию Copy нужно следующим образом:
Copy(слово, начальная позиция, количество литер).
Если значение третьего параметра (количество литер) находится за пределами 1…255, возникает ошибка выполнение программы.

Например:
Var str1,str2: string;
begin
   str1:=’информатика’;
   str2:=Copy(str1,3,4);
   ……………………………
   ……………………………
end.
В переменную str2 будет помещена литерная величина ‘форма’.

Практическая работа №2.
Используя функции Copy и Сoncat, из слова ИНФОРМАТИКА получить слово МАРКА.
1. Объявить переменные
2. С клавиатуры поместить в переменную слово ИНФОРМАТИКА.
3. Скопировать символы ‘ МА’, ‘ Р’ и т.д.
4. Склеить
5. Вывести полученное слово на экран монитора.

Удаление символов из слова осуществляется с помощью процедуры delete. Применять процедуру delete нужно следующим образом:
Delete(слово из которого нужно удалить литеры, начальная позиция, количество удаленных символов).
Например.
Str1:=’компьютер’ в результате выполнения команды delete(str1,4,3) получим ‘комтер’.

Практическая работа №3.
С помощью процедуры delete из слова ИНФОРМАТИКА получить слово ФОРМА.
1. Объявить переменные
2. Одной из переменных присвоить слово ИНФОРМАТИКА.
3. Применяя процедуру delete вырезать лишние символы.
4. Результат вывести на экран монитора.

Используя процедуру Insert, можно вставить новые символы в исходное слово. Реализовать это можно следующим образом:
Insert(вставляемый символ, принимающее слово, позиция вставки)
Пример.
Присвоим переменной str1:=’поп’. В результате выполнения str1:=insert(‘то’,str1,3) получим str1=потоп. Здесь вставляемые символы ‘то’, принимающее слово ‘поп’ Вставка происходит с третьей позиции, т.е. после символа ‘о’. Все сказанное реализуется в программе:

program procedure_insert;
uses crt;
var str1:string;
k:integer;
begin
   cls;
   str1:='поп';
   writeln('str1=',str1);
   Insert('то',str1,3);
   writeln('str1=',str1);
end.
Если значение третьего параметра находится вне отрезка 1..255, возникает ошибка выполнения программы.

Для определения длины литерной переменной служит функция length. Пример обращения к функции length.
k:=length(имя литерной переменной), k – типа integer.

Пример. Найти длину литерной переменной ‘компьютер’.

program procedure_insert;
uses crt;
var str1:string;
k:integer;
begin
   cls;
   str1:='компьютер';
   k:=length(str1);
   writeln(str1);
   writeln('количество символов=',k);
end.

Длину литерной переменной можно находить, использую функцию ord. k:=ord(str1[0]);

Практическая работа №4.

(c) Москалев Н.И. 2013г.