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