Программирование на языке Паскаль. Символы и символьные строки

Строковый тип данных определяет совокупность символов произвольной длины. Для определения строкового типа

Описание строк

В разделе var строки описываются следующим образом:
var <имя_строки>: string[<длина>]
Максимальная длина строки - 255 символов. Нумеруются ее

Примеры описаний:
var s1: string[10]; (*строка длиной 10 символов*)
s2: string; (*строка

Символ-константа и строка-константа

Неименованные константы
В тексте программы на языке Pascal последовательность любых символов,

Пустая строка задается двумя последовательными апострофами:
st:= '';
Если же необходимо сделать так, чтобы среди символов строки содержался и

Нетипизированные константы

Все правила задания символов и строк как неименованных констант остаются

Типизированные константы

Типизированная константа, которая будет иметь тип char или string, задается в разделе const следующим образом:
const

Программа «Строка 1»

Действия с символами

Операции
Результатом унарной операции
#<положительная_неименованная_константа_целого_типа>
является символ, номер которого в таблице ASCII соответствует заданному

Стандартные функции

Функция chr(k:byte):char "превращает"; номер символа в символ. Действие этой функции аналогично действию операции #. Например:
c:= chr(48);

Стандартные процедуры и функции  pred(), succ(), inc() и dec(), определенные для значений любого порядкового типа,

Чем плох массив символов?

var B: array[1..N] of char;

Это массив символов:

каждый символ

Символьные строки

длина строки

рабочая часть

s[1]

s[2]

s[3]

s[4]

var s: string;

var s: string[20];

Длина строки:

n := length

Строки можно рассматривать как одномерный массив символов, но в отличии от

Программа «Строка 2»

Символьные строки

Задача: ввести строку с клавиатуры и заменить все буквы "а"

Операции над строками

1. Сцепление строк (конкатенация).
(программа «Строка 3»)
2. Сравнение строк

Задания

"4": Ввести символьную строку и заменить все буквы "а" на буквы

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

1. Функция concat(s1,_,sN:string):string  осуществляет слияние ( конкатенацию )

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

2. Функция copy(s:string;i,k:byte):string
вычленяет из строки s подстроку длиной k символов, начиная

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

3. Процедура delete(s:string;i,k:byte) удаляет из строки s подстроку длиной k символов, начиная

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

4. Процедура insert(ss,s:string;i:byte) вставляет подстроку ss в строку s, начиная с i -го символа.

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

5. Функция length(s:string):byte возвращает длину строки s:
length('abc3de Xyz') =

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

7. Процедура str(x[:w[:d]],s:string) превращает десятичное число x (можно указать,

Операции со строками

Объединение: добавить одну строку в конец другой.

Запись нового значения:

var

Удаление и вставка

Удаление части строки:

Вставка в строку:

s := '123456789';
Delete ( s,

Поиск в строке

Поиск в строке:

s := 'Здесь был Вася.';
n := Pos

Примеры

s := 'Вася Петя Митя';
n := Pos ( 'Петя', s );
Delete

Пример решения задачи

Задача: Ввести имя, отчество и фамилию. Преобразовать их к

Программа

program qq;
var s, name, otch: string;
n: integer;
begin
writeln('Введите имя, отчество

Задания

"4": Ввести имя файла (возможно, без расширения) и изменить его расширение

Программирование на языке Паскаль

Рекурсивный перебор

Рекурсивный перебор

Задача: Алфавит языка племени "тумба-юмба" состоит из букв Ы, Ц,

Рекурсивный перебор

1

K

Рекурсия: Решения задачи для слов из К букв сводится к

Процедура

procedure Rec(p: integer);
begin
if p > K then begin
writeln(s);
count

Процедура

procedure Rec(p: integer);
const letters = 'ЫЦЩО';
var i: integer;

Программа

program qq;
var s: string;
K, i, count: integer;
begin
writeln('Введите длину слов:');