Содержание

Слайд 2

Свойства структуры данных СТРОКА: Линейная Фиксированного размера С произвольным доступом к элементам Однородная

Свойства структуры данных СТРОКА:

Линейная
Фиксированного размера
С произвольным доступом к элементам
Однородная

Слайд 3

Литера - это символ, заключенный в апострофы. Способы моделирования строки: представлении

Литера - это символ, заключенный в апострофы.
Способы моделирования строки:
представлении строки

в виде массива литер. В этом случае над строкой определены все те операции, которые определены над массивами и для обработки строки используется типовые алгоритмы обработки массивов.
предполагает использование - тип STRING. В этом случае для обработки строки используются процедуры и функции, позволяющие выполнять над текстом различные действия, такие как удалять часть символов, вставлять новые символы в строку, определять позицию некоторого символа в строке и т.д.
Слайд 4

Слайд 5

1. Укажите тип переменной х в операторе присваивания: x:=‘видео’+’адаптер’ 2. Пусть

1. Укажите тип переменной х в операторе присваивания: x:=‘видео’+’адаптер’
2. Пусть задана

программа
var
st, st1, st2: string;
begin
st1:= ‘инфо’;
st2:=’мати’;
st:=st1+' р'+st2+’ка’;
writeln(st);
end;
Чему будет равно значение переменной st=__________________
3. Строка а “аромат”, строка b равна “финик”. Известны алгоритмы образования строк a и b из строки n:
a:=n[11]+n[5]+n[4]+n[6:8]
b:=n[3]+n[1:2]+n[9]+n[10]
Строка n=______________________
Слайд 6

4. Пусть задана программа var st, subst : string; k :

4. Пусть задана программа
var
st, subst : string;
k :

integer;
begin
st:=‘Мама мыла раму’;
subst:=’ма’;
k:=pos (subst, st);
writeln(k);
end;
Чему будет равно значение переменной k=__________________
5. Пусть задана программа
var
st : string;
k : integer;
begin
st:=‘Динамическое программирование.’;
k:=length(st);
writeln(k);
end;
Чему будет равно значение переменной k=__________________
Слайд 7

6. Пусть задана программа var st : string; k, i :

6. Пусть задана программа
var
st : string;
k, i :

integer;
begin
st:=‘Программирование’;
k:=length(st);
i:=1;
while i<=k do
if st[i]=’р’ then delete (st, i, 1)
else i:=i+1;
writeln(st);
end;
Чему будет равно значение переменной st=__________________
Слайд 8

Задача 1. Дан текст. Подсчитать количество букв а в последнем слове

Задача 1. Дан текст. Подсчитать количество букв а в последнем слове

данного текста.

Анализ постановки задачи
Исходным данным для решения задачи является строковая переменная st, в которой хранится заданный текст.
Введем обозначения объектов программы:
i- переменная целого типа обозначающая номер текущей литеры; col- переменная, в которой будем хранить количество букв а в последнем слове.
Для решения задачи воспользуемся следующим алгоритмом:
Введем исходную строку.
Определим позицию последнего символа в строке (т.к. текст будем рассматривать с конца).
Обнулим счетчик.
Посимвольно проведем сравнение с буквой а до пробела.
Выведем результат.

Слайд 9

Подпрограмма PROCEDURE chet (st: string; var col: integer); VAR i: integer;

Подпрограмма

PROCEDURE chet (st: string; var col: integer);
VAR i: integer;
BEGIN
i:=length(st);
col:=0;

while st[i]<>' ' do begin
if st[i]='а' then col:=col+1;
i:=i-1
end;
END;
Слайд 10

Задача 2. Дан текст. Выдать на печать самое длинное слово из

Задача 2. Дан текст. Выдать на печать самое длинное слово из

текста, учитывая, что все слова разной длины.

Анализ постановки задачи
Исходным данным для решения задачи является переменная типа string, в которой хранится исходный текст st.
Введем обозначения объектов программы:
st1- переменная, в которой будем хранить текущее слово из текста; st2- переменная, в которой будем хранить самое длинное слово в тексте; i- переменная целого типа, обозначающая номер текущей литеры; max- максимальное количество букв в слове.
Для решения задачи воспользуемся следующим алгоритмом:
Введем исходный текст.
Собираем текущее слово в дополнительную переменную (st1).
Определяем максимальную длину слова.
Выводим результат.

Слайд 11

Основная программа var s, stt2: string; begin writeln(‘Введите предложение’); readln(s); max_slovo(s,

Основная программа

var s, stt2: string;
begin
writeln(‘Введите предложение’);
readln(s);
max_slovo(s, stt2);
writeln(‘Самое

длинное слово в тексте ', stt2);
end.