Стандартные процедуры и функции для работы со строками

Стандартные процедуры и функции для работы со строками

Multiple Choice

Как описываются строковые переменные?

• string

• integer

• real

• char

• boolean

Multiple Choice

Из чего состоят строки ?

• Из слов

• Из цифр

• Из символов

• Из последовательно расположенных символов, и используются для хранения текста

Multiple Choice

Какую длину может иметь строка?

• >10, но <100 символов

• обязательно >3 символов

• до 1000 символов

• может иметь произвольную длину

Multiple Choice

Какие операции возможны над строками?

• Сложение и вычитание

• Умножение и деление

• Сравнение и сложение

• Сравнение и умножение

Multiple Choice

Сравнение строк происходит посимвольно. А какая строка больше, если строки имеют разную длину?

• Та, в которой больше символов

• Та, в которой меньше символов

• Та, в которой сумма кодов символов больше

• Та, в которой сумма кодов символов меньше

Multiple Choice

Результатом сложения двух строк будет являться ...

• новая строка, в которой записаны символы второй строки, а затем символы первой

• новая строка, в которой записаны символы первой строки, а затем символы второй

• новая строка, в которой записаны повторяющиеся символы двух строк

Program primer_8_8;

var s,p,t:string;

n1, n2, k:integer;

begin

 writeln('строка s');

 readln(s); {s- исходная строка}

 writeln('подстрока p');

 readln(p); {p- исходная подстрока}

 n1:=length(s); {определяем длину строки s}

 n2:=length(p);{определяем длину подстроки p}

 k:=0; {первоначальное значение счетчика}

 for var i:=1 to n1-n2+1 do {устанавливаем цикл от 1 до разницы в длинах строк}

 begin

  t:=copy(s, i, n2); {выделяем из строки "S" подстроку "t" такой же длины, что и "p" с текущего символа}

  if t=p then {сравниваем подстроки}

   k:=k+1; {если они равны, то увеличиваем значение счетчика на 1}

  end;

  writeln('Встречается',k, 'раз(-а)'); {выводим результат}

  

end.

Тестирование программы

program primer_8_9;

const s = 'ТЕСТИРОВАНИЕ'; {слово будет храниться как константа в строке s}

var s1: string;

begin

s1 := s[6]; {в строке s1 будет храниться 6ойсимвол строки s}

s1 := s1 + copy(s,5,8);{к строке s1 добавляем скопированные символы из строки s} {ПОЛУЧИМ СЛОВО РИРОВАНИЕ}

delete(s1, 3, 1); {удаляем из строки s1 третий символ}

{ПОЛУЧИМ СЛОВО РИОВАНИЕ}

insert(s[3], s1, 3); {на третье место ставим третий символ}

{ПОЛУЧИМ СЛОВО РИСОВАНИЕ}

writeln('Слово =', s1); {Выводим результат на экран}

end

Тестирование программы