Тема урока:

Практическая работа.

Решение задач с использованием символьных величин и строк символов.

Цели урока: закрепить навык решения задач с использованием символьных переменных и функций для работы со строковыми данными.

Актуализация знаний.

Строковые переменные и строковые константы

Строковые константы – это последовательность символов, заключенных в апо- строфы, например, ‘Пример’, ‘АВС 1А’.

Строковые константы, также как и числовые, могут быть описаны в разделе описания констант. Const Str= ‘СТРОКА’;

Переменные строкового типа описываются с помощью служебного слова String:

Var s1,s2:String[N];

где String – служебное слово;

S1,s2 – переменные строкового типа;

N – максимальная длина строки (от 0 до 255).

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

Length (St) – вычисляет длину строки Str в символах. Результат имеет целочис- ленный тип.

Пример:

S:=’Сканер’;

D:=length(S); Writeln (D);

На экран будет выведено:      6

Delete (Str,Poz,N) – удаляет N символов из строки Str, начиная с позиции Poz. Если значение Poz>255, возникает программное прерывание.

Пример:

S:=’Рубашка’;

Delete(S,3,3); Writeln (S);

На экран будет выведено: Рука

Insert (Str1,Str2,Poz) – вставляет строку Str1 в строку Str2, начиная с позиции Poz.

Пример:

S1:=’ма’;

S2:=’Форт’;

Insert(S1,S2,4); Writeln (S2);

На экран будет выведено: Формат

Copy (St, Poz, N) – выделяет из строки St подстроку длиной N символов, начи- ная с позиции Poz. Если значение Poz будет больше длины строки St. то резуль- татом будет пробел.

Пример:

S:=’Конфигурация’;

S:=Copy(S,4,6);

Writeln (S);

На экран будет выведено: фигура

Concat (St1,St2,…,StN) – выполняет сцепление строк St1, St2, … , StN в том порядке, в каком они указаны в списке параметров. Сумма всех сцепленных строк не должна превышать 255 символов.

Пример:

S1:=’ти’;

S2:=’кар’;

S3:=’на’; s:=Concat(S2,S1,S3); Writeln (S);

На экран будет выведено: картина

Pos (Str1, Str2) – обнаруживает первое появление в строке Str2 подстроки Str1. Результат имеет целочисленный тип и равен номеру той позиции, где находится первый символ подстроки Str1. Если в Str2 подстроки Str1 не найдено, резуль- тат равен 0.

Пример:

S1:=’Картридж’; S2:=’р’;

d:=pos(s2,s1); Writeln (d);

На экран будет выведено:      3

Str (X,Str) – преобразует числовое значение величины Х в строковое и при- сваивает переменной Str.

Пример:

Var x:byte; S:string;

… X:=456; Str (X,S);

Writeln (S);

На экран будет выведено: 456

UpCase (Ch) – преобразует строчную букву в прописную. Параметр и резуль- тат имеют литерный тип. Обрабатывает буквы только латинского алфавита.

Пример:

S:=’g’;

х:=UpCase(S); Writeln (x);

На экран будет выведено:      G

Val (Str, X, С) – преобразует строку Str в величину целочисленного или веще- ственного типа и присваивает переменной Х. Значение Str не должно содержать незначащих пробелов в начале и в конце. С – целочисленная переменная. Если во время операции преобразования ошибки не обнаружено, то значение С равно нулю, если ошибка обнаружена (например, цифры и буквы 45X переводятся в цифры), то С будет содержать номер позиции первого ошибочного символа.

Пример:

Var x,c:byte; S:string;                                   Var x,c:byte; S:string;

2     … S:='34V';

Val (S,X,c);

Практическая работа № 15.

1. Составить программы.

1.   Путем вырезок букв получить из слова «яблоко» слова «блок» и «око».

2.   Написать программу, которая отыскивает все числа N, N<1000, которые яв- ляются квадратами-палиндромами. (Пример: 11^2=121,262^2=69696).

3.    Составить программу определяющую, какая из двух фамилий длиннее. Фа- милии имеют разную длину (Вывести на экран длинную фамилию).

2. Выполнить упражнения.