Задача №1 Дана строка, подсчитать количество вхождений слова «кот» в данную строку. Пример: st:=’кровать’; copy(st,2,3); Результат типа string A:=’ров’; program pr1; var st: string; i,k: integer; begin write('введите строку: '); readln(st); k:=0; for i:=1 to length(st) do if copy(st,i,3)='кот' then k:=k+1; write('количество вхождений=',k); end. Задача №2 Найти номер позиции, с которой в заданной строке в первый раз встретится некоторое введенное слово. Пример: A:=’юмор’; B:=’ор’; Pos(В,А); Результат типа integer D:=3; program pr2; var st1,st2:string; t:integer; begin write ('введите строку: '); readln(st1); write ('введите слово: '); readln(st2); t:=pos(st2,st1); write('введенное слово начинается с ',t,' позиции'); end. Задача №3 Подсчитать количество запятых в заданном тексте с массива символов. program pr3; var st:string; i,k:integer; begin write ('введите строку: '); readln(st); k:=0; for i:=1 to length(st) do if st[i]=',' then k:=k+1; write('количество запятых=',k); end. Задача №4 Заменить в заданной строке все вхождения «ку» на «за» с операции копирования, удаления и вставки. program pr4; var st:string; i:integer; begin write('введите строку:'); readln(st); for i:=1 to length(st) do if copy(st,i,2)='ку' then begin delete(st,i,2); insert('за',st,i); end; write(st); end. Д/з Решить задачи и составить к ним программы: В строке заменить все двоеточие(:)точкой с запятой (;). Подсчитать количество замен. Подсчитать количество букв «О» и «о» в строке.

Свойства многострочного текстового поля. Для ввода и вывода значений элементов одномерного массива можно воспользоваться многострочным полем (компонент типа ТМеmо), который можно разместить на форме так же, как и другие компоненты. Среди свойств этого компонента есть много таких, которые имели ранее рассмотренные нами компоненты: Name, Color, Font, Enabled, Visible, Height, Width, Top, Left и in. Среди свойств, которых не было предыдущие компоненты, рассмотрим следующие:
ScrollBars (англ. Scroll - прокрутка, bars - прямоугольные полосы) - значение этого свойства определяет наличие или отсутствие на этом компоненте полос прокрутки (горизонтальной - ssHorizontal, вертикальной - ssVertical обоих - ssBoth) для просмотра текста, который выходит за пределы компонента;
ReadOnly (англ. Read - читать, only - только) - значение этого свойства определяет возможность редактирования строк компонента: False - можно редактировать, True - нельзя (только для чтения)
Lines (англ. Lines - линии, строки) - значением этого свойства является набор значений, расположенных в строках этого компонента; каждая строка имеет номер, нумерация строк начинается с 0;
Lines.Count (англ. Count - подсчет) - значение этого свойства равно количеству заполненных данными строк компонента; отметим, что это свойство отсутствует в списке свойств окна Object Inspector.
Тогда при сохранении проекта эти значения также будут сохранены и автоматически появятся в этом поле после запуска проекта на выполнение.

Виртуальная реальность — созданный техническими средствами мир, передаваемый человеку через его ощущения: зрение, слух, осязание и другие. Виртуальная реальность имитирует как воздействие, так и реакции на воздействие. Для создания убедительного комплекса ощущений реальности компьютерный синтез свойств и реакций виртуальной реальности производится в реальном времени.

Объекты виртуальной реальности обычно ведут себя близко к поведению аналогичных объектов материальной реальности. Пользователь может воздействовать на эти объекты в согласии с реальными законами физики (гравитация, свойства воды, столкновение с предметами, отражение и т. п.). Однако, часто в развлекательных целях пользователям виртуальных миров позволяется больше, чем возможно в реальной жизни (например: летать, создавать любые предметы и т. п.)[1].

Не следует путать виртуальную реальность с дополненной. Их коренное различие в том, что виртуальная конструирует новый искусственный мир, а дополненная реальность лишь вносит отдельные искусственные элементы в восприятие мира реального.