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. Составьте подпрограмму для решения задачи:
Составьте программу вычисления суммы мест, на которых в слове Х стоят буквы "в" и "п".