1. Расcчитайте значения соответствующих процедур и функций для строк str1 :=‘dorogoj drug’ str2:= ‘drug’

Суть вопроса: Работа со строками в программировании

Разъяснение:

а) Функция `Length` используется для определения длины строки. В данном случае, переменная `k` будет равна 12, так как строка `str1` содержит 12 символов.

б) Функция `Copy` копирует часть строки, начиная с указанной позиции и заданной длины. В данном случае, переменная `s` будет равна "ogo", так как копируется 3 символа, начиная со 4-й позиции.

в) Функция `Delete` удаляет заданную часть строки, начиная с указанной позиции и заданной длины. В данном случае, после выполнения функции, переменная `str1` станет равной "dor drug".

г) Функция `Insert` вставляет подстроку в заданную позицию исходной строки. В данном случае, после выполнения функции, переменная `str1` станет равной "dor drug".

д) Функция `Pos` возвращает позицию первого вхождения одной строки в другую. В данном случае, переменная `n` будет равна 7, так как строка `str2` первый раз встречается в строке `str1` на 7-й позиции.

Например:
а) k:= Length(Str1); -- k будет равно 12
б) s:=Copy(Str1, 4, 3); -- s будет равно "ogo"
в) Delete(str1, 3, 4); -- str1 будет равно "dor drug"
г) Insert(str1, Str2, 3); -- str1 будет равно "dor drug", str2 будет равно "drug"
д) n:=Pos(str1, str2); -- n будет равно 7

Совет:
Чтобы лучше понять работу с функциями и процедурами для работы со строками, рекомендуется проработать примеры использования функций на практике и самостоятельно проверить результаты.

Задание:

1. Даны следующие фрагменты программы. Определите, какое значение будет выводиться на экран в результате выполнения каждого из них.

1)

var str1, str2, str3, str4: string[25];

str1 := "Дима сдал";

str2 := "на отлично";

str3 := "экзамен";

str4 := str1 + "_ " + str2 + "_ " + str3;

WriteLn(str4);

2)

var str1, str2, str3: string[25];

str1 := "Belka ";

str2 := "bylka ";

str3 := "Belka ";

if (str1 = str3) then

    WriteLn(str2)

else

    WriteLn("Not equal");