Создать тест
ВходСимвольные строки
Список вопросов теста
Вопрос 1
Запишите команду, позволяющую получить из слова Информатика слово формат
Варианты ответов
- Insert ('Информатика','формат',3)
- Copy ('Информатика',3,6)
- Delete ('Информатика',3,8)
- Copy ('Информатика',3,8)
Вопрос 2
Операторные скобки - это
Варианты ответов
- элемент программы, который может принимать разные значения, но в каждый момент времени имеет единственное значение
- элемент программы, который позволяет объединить несколько операторов (действий) в один составной оператор
- элемент программы, значение которого не меняется
- элемент программы, который не обрабатывается транслятором языка, но поясняет смысл отдельных записей в программе
Вопрос 3
Переводит числовое значение в строковое функция ...
Варианты ответов
- Str
- Val
- Var
- String
Вопрос 4
Поясните семантику процедуры
Pos (Str1, Str2)
Варианты ответов
- определяет позицию символа, с которого начинается первое вхождение строки Str1 в строку Str2
- вставляет строку Str1 в строку Str2
- определяет, входит ли строка Str1 в строку Str2
- сравнивает длины строк Str1 и Str2
Вопрос 5
Сравните строки
balkon и balken
Варианты ответов
- >
- <
Вопрос 6
Сравните строки
Balkon и balkon
Варианты ответов
- <
- >
Вопрос 7
Какой тип данных используется в языке Паскаль для обозначения символьных строк?
Вопрос 8
Отметьте все правильные объявления символьных строк
Варианты ответов
- var s: string;
- var string: s;
- var s, s1, s2: array[1..10] of char;
- var s1, s2: integer;
- var s, s1, s2: string;
Вопрос 9
Что будет выведено на экран после выполнения программы?
s := '123'; s := s + '0' + s; s := s + s; writeln ( s );
Вопрос 10
Что будет выведено на экран после выполнения этой программы?
s := '123'; s := s + s[2] + s + s[3]; writeln ( s );
Вопрос 11
Что будет выведено на экран после выполнения этой программы?
s := '12345';
n := Length(s) + Length('456');
writeln ( n );
Варианты ответов
- 8
- 5
- 3
- 12345456
Вопрос 12
Что будет выведено на экран после выполнения программы?
s := '123456789'; s1 := 'abcdef'; s := Copy(s,5,2) + '0' + Copy(s1,3,3); writeln ( s );
Вопрос 13
Сколько единиц будет выведено на экран?
s := '123456';
while Length(s) > 0 do begin
Delete ( s, 1, 2 );
writeln ( '1' )
end;
Вопрос 14
Программа должна считать, сколько раз в строке S встречается подстрока '12'. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов.
c := 0;
repeat
...
if p <> 0 then begin
c := c + 1;
Delete ( S, 1, p+1)
end;
until p = 0;
Вопрос 15
Программа должна считать, сколько раз в строке S встречается цифра '0'. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов.
c := 0;
for k:=1 to Length(S) do begin
if S[k] = '0' then
...
end;
Получите комплекты видеоуроков + онлайн версии
0
805
Нравится
0
