Контрольная работа.

Вариант 1

1. Результатом вычисления функции Copy('программирование',4,5) будет слово

23. миров

24. грамм

25. программ

26. программа

27. грамми

2. Результатом работы программы:

Var x : string[6]; Begin   x := ‘мим’+’озадаченный’; writeln(x); End.

будет слово:

27. мим озадаченный

28. мимозадаченный

29. мимоза

30. озадаченный мим

31. озадаченныймим

3. Составьте подпрограмму для решения задачи:

Выясните, какая из букв (первая или последняя) встречается в заданном слове чаще.

Вариант 2

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.

будет предложение:

6. 'Фирма MICROSOFT'

7. 'ФИРМА MICROSOFT'

8. 'фирма Microsoft

9. 'фирма MICROSOFT'

10. 'фирма microsoft

2. Вызывая функцию Copy не нужно указывать:

• имя строки, из которой должен извлекаться копируемый фрагмент,

• позицию в строке, начиная с которой будет копироваться фрагмент,

• число копируемых символов;

• имя строки, в которую копируется данный фрагмент

• имя функции.

3. Составьте подпрограмму для решения задачи:

Сколько букв "у" в слове стоит на четных местах?

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

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