Вопрос 50.Операции над строковыми переменными.

Для работы со строковыми переменными используются специальные процедуры и функции:

Функцыи
Length(имя строковой переменной)		Определение длины строки
Pos(st1, st2)		Нахождение первого появления в строке st2 строки st1
Copy(st, начальная позиция, количество копируемых позиций)		Выделение со строки st подстроки от начальной позиции указанное количество позиций
Процедуры
Delete(st, начальная позиция, количество удаляемых символов)	Удаление со строки st символов от начальной позиции указанное количество позиций
Insert(st1, st2, начальная позиция)	Вставка строки st1 в строку st2 с отмеченной позиции
Str(арифметическое выра-жение, строковая пере-менная)	Преобразование числового значения арифметического выражения в строковую переменную

Задача. Дано слово. Подсчитать, сколько раз в нем встречается данная буква и заменить ее на символ “ - “.

Program a39;

Var

s,a,x :String[30];

l,i,k:Integer;

Begin

Writeln('Ввести слово'); Readln(s);

l:=Length(s); {Определение длины слова}

Writeln('Ввести букву'); Readln(a);

x:=''; {новое слово пока пустое}

k:=0; {счетчик количества данной буквы}

For i:=1 to l do

If copy(s,i,1)=a {если текущая буква слова равна данной букве}

Then Begin x:=x+'-'; k:=k+1; End

{то к новому слову прибавляем символ «-» и к счетчику прибавляем 1}

Else x:=x+copy(s,i,1);

{иначе к новому слову прибавляем текущую букву старого слова}

Writeln('Данное слово -- ', s);

Writeln('Буква ',a,' встречается ',k,' раз');

Writeln('Полученное слово -- ',x);

Readln;

End.

Вопрос 51.Тип записи: понятие поля, понятие записи, формат объявления записи.

Наиболее гибкий и удобный механизм построения структур данных самой разной длины заложен в комбинированном типе. Значения комбинированного типа предназначены главным образом для представления объектов при создании информационных систем. Например, в информационной системе об успеваемости студентов группы одна строка будет содержать сведения об одном студенте, например, его ФИО, номер группы, оценки по разным предметам, даты сдачи экзаменов и зачетов. Как видим, значения комбинированного типа состоят из нескольких компонент, которые имеют разные типы. Эти компоненты называются полями. Каждому полю записи дается свое имя и задается тип элементов этого поля.

Формат объявления комбинированного типа следующий:

1 способ Type Имя комбинированного типа = record Имя поля 1: тип компонентов поля 1; . . . . . Имя поля N : тип компонентов поляN; End; Var Имя записи : Имя комбинированного типа;

2 способ Var Имя записи : record Имя поля 1: тип компонентов поля 1; . . . Имя поля N : тип компонентов поляN; End;

Record – служебное слово, Имя комбинированного типа и имя записи дает пользователь.

Пример. Рассмотрим запись, которая состоит из следующих компонент: фамилия студента, день, месяц и год рождения, домашний адрес и телефон. Такую запись можно объявить следующим образом:

Type

Student = Record

Fio, Adres, Telefon : String[40];

Den, Mes, God : Integer;

End;

Var a: Student;

Отсюда видно, что если в записи имеется несколько полей одинакового типа, то их можно перечислить через запятую и тип указать один раз.

Формат объявления переменной типа запись обозначает только структуру этой перменной. Чтобы записи присвоить какое-то значение, необходимо присвоить значения всем полям этой записи. Обращение к отдельному полю происходит по следующему формату: