Контрольная работа
Вариант 1.
1. Дано слово. Получить и вывести на экран буквосочетание, состоящее из его третьего и. последнего символов.
2. Найти количество различных цифр заданного числа (деление и остаток не использовать).
3. Дана строка. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран.
Вариант 2.
1. Дано слово, состоящее из четного числа букв. Вывести на экран его первую половину
2. Подсчитать стоимость телеграммы по ее тексту. Одно слово стоит 3 руб. Плата за услуги телеграфиста – 5 руб.
3. В строке удалить символ двоеточие (:) и подсчитать количество удаленных символов.
Вариант 3.
1. Путем вырезок и склеек букв получить из слова вертикаль слова тир и ветка.
2. Найти количество трехзначных чисел, сумма цифр которого равна А, заканчивающихся на В. (А и В вводятся с клавиатуры).
3. Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т.е. является ли оно палиндромом).
Вариант 4.
1. Дано слово. Добавить к нему в начало четыре символа «+» и в конец — пять символов «*»
2. Составить программу подсчитывающей в тексте число слов “шина”.
3. Дана строка. Указать те слова, которые содержат хотя бы одну букву Л.
Вариант 5.
1. Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования.
2. Дано предложение. Определить число буки .О в нем.
- Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.
Вариант 6.
1. Даны два слова. Верно ли, что первое слово начинается на ту же букву, которой оканчивается второе слово?
2. Дано предложение. Все буквы «е» в нем заменить на букву «и».
3.Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.
Тест по теме «Строки»
1. Каков будет результат выполнения оператора s:=Length(‘Каникулы’)?
1) 24
2) 8
3) True
4) 0
2. Каков будет результат выполнения оператора delete(‘информатика’,3,4);
1) инатика
2) форма
3) формат
4) инф
3. В типе STRING количество символов одной строки не должно превышать:
1) 200
2) 255
3) 1024
4) 16
4. Каково значение выражения: x:=Length(‘Привет’)+ Length(‘Ура’);
1) 9
2) ПриветУра
3) 12
5. Каково значение выражения: X:=Copy(‘привет’,2,3);
1) при
2) рив
3) вет
6. Переменная Х=’Информатика’ Правильное описание переменной:
1) x: string[13];
2)X:char(11)
3) x:string;
4) x: string[11];
7. Какие значения получат переменные после выполнения процедуры:
VAL(25!3,x,k)
1. x=0 k=3
2. x=25.3 k=0
3. x=0 k=0
8. Определите истинное выражение:
1. ‘123’>’7’
2. ‘Муха’>’Бегемот’
3. ‘Стол’<’Стул’
9. Определить значение переменной после выполнения программы:
Begin А:=’град’; В:= ‘ус’; c:=A+B; C:=B+A; Writeln(c); End.
1. градус
2. усград
3. градусусград
10. Определить значение переменной после выполнения программы:
Begin А:=’град’; В:= ‘ус’; c:=B[2]+B[1]+A[4]; Writeln(c); End.
4. дус
5. суд
6. рад