Вариант 3
1. Результатом работы программы:
Program DemoFunctionLength; Var Word : string[9]; Begin Word := 'Я люблю программировать'; writeln(Length (Word)); End. |
будет:
9
23
'Я люблю программировать'
'Я люблю '
256
2. Результатом работы программы:
Program DemoFunctionPos; Var Word : string; SearchWord : string[20]; Position : Byte; Begin Word := 'Карл у Клары украл кораллы. Клара у Карла украла кларнет.'; SearchWord := 'Карл'; Position := Pos(SearchWord, Word); writeln (Position ); End. |
будет:
1 и 37
37
28
1
0
3. Составьте подпрограмму для решения задачи:
Вычеркните i-ые буквы текста и посчитайте в нем количество введенных повествовательных предложений.
Вариант 4
1. Встроенная функция Length позволяет определить: (а не, установленную при объявлении):
фактическую длину текстовой строки, хранящейся в указанной переменной,
величину предельного размера строки,
предполагаемую величину строки,
начальную длину строки,
длину строки, заранее заданную пользователем.
2. Результатом работы программы:
Program DemoFunctionConcat; Var Word : string; Word1, Word2 : string[20]; Begin Word1 := ' Microsoft '; Word2 := ' фирмы'; Word := Concat('Компьютеры ',Word1,Word2); writeln(Word); End. |
будет текст:
' фирмы Компьютеры Microsoft',
' Microsoft Компьютеры фирмы ',
'Компьютеры фирмы Microsoft',
'Компьютеры Microsoft фирмы ',
'Компьютеры Microsoft фирмы '.
3. Составьте подпрограмму для решения задачи:
Вычеркните из слова Х те буквы, которые встречаются в слове Z.
Вариант 5
1. При подсчете фактической длины строки:
учитываются все входящие в нее символы,
учитываются все входящие в нее символы, кроме пробелов,
учитываются не все входящие в нее символы,
учитываются все входящие в нее символы, исключая служебные символы,
учитываются все входящие в нее символы, имеющиеся на клавиатуре.
2. Результатом работы программы:
Program DemoProcedureStr; Var Word : string; Chislo : integer; Begin Chislo := 1560; Str(Chislo:8, Word); writeln(Word); End. |
будет текст:
'1500',
' 1560',
' 1560',
100000000',
'00001560'.
3. Составьте подпрограмму для решения задачи:
Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 символ.
Вариант 6
1. C помощью функции Pos Вы можете осуществить поиск некоторого фрагмента в строке. Если заданный фрагмент в строке присутствует, то:
функция возвращает количество фрагментов в строке,
функция возвращает нуль,
функция вырезает найденный фрагмент из строки,
функция заменяет найденный фрагмент на введенный ранее,
функция возвращает номер позиции, с которой начинается фрагмент.
2. Результатом работы программы:
Program DemoProcedureVal; Var Word : string; Chislo, Code : integer; Begin writeln('Введите строку цифр '); readln(Word); Val(Word, Chislo, Code); {преобразование строки в число} if Code <> 0 then writeln(‘??????????????’); End. |
должно быть следующее сообщение:
'Ошибка! В позиции ',Code,' не ноль!',
'Ошибка! Цифра Code,' не закодирована!',
'Прекрасно! Число в переменной ',Code,' !',
'Ошибка! В позиции ',Code,' не цифра!',
'Прекрасно! Число в переменной ', Chislo,' !'.
3. Составьте подпрограмму для решения задачи:
Составьте программу вычисления суммы мест, на которых в слове Х стоят буквы "в" и "п".