7) What is the result printed on the screen after executing the following program fragment? var str1,str2,str3, str4
7) What is the result printed on the screen after executing the following program fragment?
var str1,str2,str3, str4: string[25];
str1 := "Дима сдал";
str2 := "на отлично";
str3 := "экзамен";
str4 := str1 + "_ " + str2 + "_ " + str3;
8) Compare the two strings: "Belka ", "Bylka ", "Belka ", "Belka ", "bylka ", "Bylka ", "bylka ", "bylk ".
9) Given str1:="AB CD EF GH"; and str2:="Сегодня прекрасный день"; find the lengths k1 and k2 respectively.
10) Given str1:="АБВГДЕЖЗИЙКЛ"; str2:="ABCDEFGH"; find the value of the variable str3 after executing the following program fragment:
str3:= copy(str1,5,3);
writeln(str3);
writeln(copy(str2,1,4));
11) Given str1:="абвгдежзийкл"; delete a substring from str1 starting from the second position and with a length of 5. Finally, print the updated value of str1.
var str1,str2,str3, str4: string[25];
str1 := "Дима сдал";
str2 := "на отлично";
str3 := "экзамен";
str4 := str1 + "_ " + str2 + "_ " + str3;
8) Compare the two strings: "Belka ", "Bylka ", "Belka ", "Belka ", "bylka ", "Bylka ", "bylka ", "bylk ".
9) Given str1:="AB CD EF GH"; and str2:="Сегодня прекрасный день"; find the lengths k1 and k2 respectively.
10) Given str1:="АБВГДЕЖЗИЙКЛ"; str2:="ABCDEFGH"; find the value of the variable str3 after executing the following program fragment:
str3:= copy(str1,5,3);
writeln(str3);
writeln(copy(str2,1,4));
11) Given str1:="абвгдежзийкл"; delete a substring from str1 starting from the second position and with a length of 5. Finally, print the updated value of str1.
Skvoz_Ogon_I_Vodu 36
7) Результат, выводимый на экран после выполнения данного фрагмента программы, будет следующим:\[
\text{{str1}} := \text{{"Дима сдал"}};
\]
\[
\text{{str2}} := \text{{"на отлично"}};
\]
\[
\text{{str3}} := \text{{"экзамен"}};
\]
\[
\text{{str4}} := \text{{str1 + "\_ " + str2 + "\_ " + str3}};
\]
При объединении строк оператором "+", строки присоединяются друг к другу, и в результате получается новая строка. В данном случае, после выполнения этого оператора получится следующая строка:
\[
\text{{str4}} = \text{{"Дима сдал\_ на отлично\_ экзамен"}}.
\]
Таким образом, на экран будет выведена строка "Дима сдал\_ на отлично\_ экзамен".
8) Сравним две строки: "Belka ", "Bylka ", "Belka ", "Belka ", "bylka ", "Bylka ", "bylka ", "bylk ".
Для сравнения строк будем использовать лексикографический порядок, где каждый символ в строке имеет своё значение. Если первый символ двух строк разный, строка, у которой символ на этой позиции меньше, будет считаться меньшей. Если первый символ одинаковый, сравниваются следующие символы и так далее.
Сравнивая данные строки, получим следующий порядок:
"Belka " < "Belka " < "Bylka " < "Belka " < "Bylka " < "bylka " < "bylk " < "bylka ".
Таким образом, строка "Bylka " будет считаться наибольшей, а строка "bylk " наименьшей.
9) Рассмотрим строки: str1 := "AB CD EF GH"; и str2 := "Сегодня прекрасный день". Найдем длины k1 и k2 соответственно.
Для определения длины строки в Pascal используется функция Length(). Применим эту функцию к двум строкам:
k1 = Length(str1) = 11 (пробелы также учитываются в длине строки).
k2 = Length(str2) = 24.
Таким образом, длина строки str1 равна 11, а длина строки str2 равна 24.
10) Даны строки: str1 := "АБВГДЕЖЗИЙКЛ"; str2 := "ABCDEFGH". Найдем значение переменной str3 после выполнения данного фрагмента программы:
str3 := Copy(str1, 4, Length(str2)).
Функция Copy() возвращает подстроку из указанной строки. Первым параметром указывается исходная строка, вторым параметром указывается позиция начала вырезаемой подстроки, а третьим параметром указывается её длина.
Применим функцию Copy() к строке str1 с позиции 4 (включительно) и длиной, равной длине строки str2. Получим следующий результат:
str3 := "ГДЕЖЗИ" (последний символ "К" не входит в вырезанную подстроку).
Таким образом, после выполнения данного фрагмента программы, значение переменной str3 будет равно "ГДЕЖЗИ".