Val (s, X, errcode) преобразует строку s в значение числовой переменной X, при этом строка s должна содержать символьное представление числа.

Задача: Вставить в заданную позицию строки другую строку.

var

s1,s2: string;

i: byte;

begin

write('Input string 1: ');

readln(s1);

write('Input string 2: ');

readln(s2);

write('Input position: ');

readln(i);

insert(s2,s1,i);

writeln(s1);

readln

end.

Задача: Найти в строке определенную последовательность символов и заменить ее другой.

var

s,s_old,s_new: string;

i,l_old: byte;

begin

write('Insert string: ');

readln(s);

write('What change? ');

readln(s_old);

l_old := length(s_old);

write('What to replace? ');

readln(s_new);

i := pos(s_old,s);

delete(s,i,l_old);

insert(s_new,s,i);

writeln(s);

readln

end.

Задача: Скопировать часть строки с определенной позиции и определенной длины в другую строку.

var

s1,s2: string;

n,len: byte;

begin

write('Input string: ');

readln(s1);

write('Place of start of copy: ');

read(n);

write('Length of copy: ');

readln(len);

s2 := copy(s1,n,len);

writeln('Your copy: ',s2);

readln

end.

Задача: Определить длину строки, введенной пользователем.

var

s: string;

len: byte;

begin

write('Input string: ');

readln(s);

len := length(s);

writeln('Its lenght is ', len,' characters.');

readln

end.

Задача: Удалить из строки ее часть с заданной позиции и заданной длины.

var

s: string;

i,len: byte;

begin

write('Input string: ');

readln(s);

write('Place of start to delete: ');

readln(i);

write('Length to delete: ');

readln(len);

delete(s,i,len);

writeln(s);

readln

end.

Практическая часть

1. Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

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

3. Дана строка. Определить, сколько раз входит в нее группа букв abc.

4. Дана строка. Подсчитать, сколько в ней букв a, v, y.

5. Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.

6. В строке удалить символ «двоеточие» (:) и подсчитать количество удаленных символов.

7. Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

8. Строка содержит произвольный текст. Проверить, каких букв в нем больше: гласных или согласных.

9. В записке слова зашифрованы — каждое из них записано наоборот. Расшифровать сообщение.

10. Результаты вступительных экзаменов представлены в виде списка из N строк, в каждой строке которого записаны фамилия студента и отметки по каждому из M экзаменов. Определить количество абитуриентов, сдавших вступительные экзамены только на «отлично».

Практическое занятие 13

Обработка строковых данных

(III вариант)

Цель

Научиться использовать в программах процедуры и функции обработки строковых и символьных данных

Принадлежности

1 Методические указания

2 Конспект по дисциплине

3 Компьютеры с установленной средой программирования Turbo Pascal 7.0

Порядок выполнения

1 Получить у преподавателя вариант с заданием для выполнения

2 Выбрать алгоритм решения предложенных задач

3 Написать программы на языке программирования Turbo Pascal и отладить их в среде Turbo Pascal 7.0

4 Сдать преподавателю результаты работы (в тетради и отлаженные программы в индивидуальных папках на сервере «Студент»).

Исходные данные

По заданному варианту

Содержание отчета

1 Краткие теоретические сведения

2 Отлаженные программы в среде Turbo Pascal 7.0

Вывод