1. Составьте программу вычисления суммы мест, на которых в слове Х стоят буквы "в" и "п".
2. Дана строка символов. Дано слово. Удалить из строки это слово.
3. Дана строка символов. Выделить подстроку между первой и второй точкой.
4. Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить, сколько слов начинается и кончается одной и той же буквой.
5. Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить, сколько слов содержат хотя бы одну букву "е".
Занятие 5. Контрольная работа
Вариант 1
1. Результатом вычисления функции Copy('программирование',4,5) будет слово
a) миров
b) грамм
c) программ
d) программа
e) грамми
2. Результатом работы программы:
Var x : string[6];
Begin
x := ‘мим’+’озадаченный’; writeln(x);
End.
будет слово:
a) мим озадаченный
b) мимозадаченный
c) мимоза
d) озадаченный мим
e) озадаченныймим
3. Составьте подпрограмму для решения задачи:
Выясните, какая из букв (первая или последняя) встречается в заданном слове чаще.
Вариант 1I
1. Результатом работы программы:
Program DemoUpcase;
Var
Word : string;
i : Byte;
Begin
Word := 'фирма Microsoft';
for i := 1 to Length (Word) do
Word[i] := UpCase (Word[i]);
writeln(Word); {выводится текст 'фирма MICROSOFT'}
End.
будет предложение:
a) 'Фирма MICROSOFT'
b) 'ФИРМА MICROSOFT'
c) 'фирма Microsoft
d) 'фирма MICROSOFT'
e) 'фирма microsoft
2. Вызывая функцию Copy не нужно указывать:
a) •имя строки, из которой должен извлекаться копируемый фрагмент,
b) •позицию в строке, начиная с которой будет копироваться фрагмент,
c) •число копируемых символов;
d) имя строки, в которую копируется данный фрагмент
e) имя функции.
3. Составьте подпрограмму для решения задачи:
Сколько букв "у" в слове стоит на четных местах?
Вариант III
1. Результатом работы программы:
Program DemoFunctionLength;
Var
Word : string[9];
Begin
Word := 'Ялюблюпрограммировать';
writeln(Length (Word));
End.
будет:
a) 9
b) 23
c) 'Ялюблюпрограммировать'
d) 'Ялюблю'
e) 256
2. Результатом работы программы:
Program DemoFunctionPos;
Var
Word : string;
SearchWord : string[20];
Position : Byte;
Begin
Word := 'Карл у Клары украл кораллы. Клара у Карла украла кларнет.';
SearchWord := 'Карл';
Position := Pos(SearchWord, Word);
writeln (Position );
End.
будет:
a) 1 и 37
b) 37
c) 28
d) 1
e) 0
3. Составьте подпрограмму для решения задачи:
Вычеркните i-ые буквы текста и посчитайте в нем количество введенных повествовательных предложений.
Вариант 1V
1. Встроенная функция Length позволяет определить: (а не, установленную при декларации):
a) фактическую длину текстовой строки, хранящейся в указанной переменной,
b) величину предельного размера строки,
c) предполагаемую величину строки,
d) начальную длину строки,
e) длину строки, заранее заданную пользователем.
2. Результатом работы программы:
Program DemoFunctionConcat;
Var
Word : string;
Word1, Word2 : string[20];
Begin
Word1 := 'Microsoft';
Word2 := 'фирмы';
Word := Concat('Компьютеры ',Word1,Word2);
writeln(Word);
End.
будет текст:
a) ' фирмыКомпьютеры Microsoft',
b) ' Microsoft Компьютеры фирмы ',
c) 'Компьютеры фирмы Microsoft',
d) 'КомпьютерыMicrosoftфирмы ',
e) 'КомпьютерыMicrosoftфирмы '.
3. Составьте подпрограмму для решения задачи:
Вычеркните из слова Х те буквы, которые встречаются в слове Z.
Вариант V
1. При подсчете фактической длины строки
a) учитываются все входящие в нее символы,
b) учитываются все входящие в нее символы, кроме пробелов,
c) учитываются не все входящие в нее символы,
d) учитываются все входящие в нее символы, исключая служебные символы,
e) учитываются все входящие в нее символы, имеющиеся на клавиатуре.
2. Результатом работы программы:
Program DemoProcedureStr;
Var
Word : string;
Chislo : integer;
Begin
Chislo := 1560;
Str(Chislo:8, Word);
writeln(Word);
End.
будет текст:
a) '1500',
b) ' 1560',
c) ' 1560',
d) 100000000',
e) '00001560'.
3. Составьте подпрограмму для решения задачи:
Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 символ.
Вариант V1
1. C помощью функции Pos Вы можете осуществить поиск некоторого фрагмента в строке. Если заданный фрагмент в строке присутствует, то:
a) функция возвращает количество фрагментов в строке,
b) функция возвращает нуль,
c) функция вырезает найденный фрагмент из строки,
d) функция заменяет найденный фрагмент на введенный ранее,
e) функция возвращает номер позиции, с которой начинается фрагмент.
2. Результатом работы программы:
Program DemoProcedureVal;
Var
Word : string;
Chislo, Code : integer;
Begin
writeln('Введите строку цифр ');
readln(Word);
Val(Word, Chislo, Code); {преобразование строки в число}
if Code <> 0
then
writeln(‘??????????????’);
End.
должно быть следующее сообщение:
a) 'Ошибка! В позиции ',Code,' не ноль!',
b) 'Ошибка! Цифра Code,' не закодирована!',
c) 'Прекрасно! Число в переменной ',Code,' !',
d) 'Ошибка! В позиции ',Code,' не цифра!',
e) 'Прекрасно! Число в переменной ', Chislo,' !'.
3. Составьте подпрограмму для решения задачи:
Составьте программу вычисления суммы мест, на которых в слове Х стоят буквы "в" и "п".
