Задачи для дополнительного решения (на усмотрение учителя)

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

Составьте программу вычисления суммы мест, на которых в слове Х стоят буквы "в" и "п".