Основные теоретические сведения

Приступая к решению задач этого раздела, следует вспомнить, что:

- каждому символу соответствует число — код символа;

- Тип STRING (строка) в Паскале похож на одномерный массив символов ARRAY[0..N] OF CHAR, однако, в отличие от массива, количество символов в строке-переменной может меняться только от 0 до 255 . В Паскале разрешается не указывать длину строки N, в этом случае она принимается максимально возможной, а именно N=255 .

Над строками определены две операции:

1. Операция сцепления (+) применяется для сцепления нескольких строк в одну, например:

SumStr := 'Borland' + 'Pascal' + '7.0'

2. Операции отношения (=, <>, >, <, >=, <=) проводят сравнение двух строк слева направо до первого несовпадающего символа, и та строка считается больше, в которой первый несовпадающий символ имеет больший номер в стандартной таблице обмена информацией.

Например, выражение

' mS-DOS' < 'MS-Dos'

'123' < '2 '

'стол' < ' столик'

Если строки имеют различную длину, но в общей части символы совпадают, считается, что более короткая строка меньше, чем более длинная.

Стандартные функции для обработки строк:

¾ length(S:string):byte – возвращает текущую длину строки S.

¾ concat(S₁,S₂,..S_N:string):string – возвращает сцепление строк S₁...S_N.

¾ copy(S:string; Start, Len:integer):string – возвращает подстроку S длиной Len, начинающуюся с позиции Start.

¾ delete(var S:string; Start,Len:integer) удаляет в S подстроку длиной Len, начинающуюся с позиции Start.

¾ insert(var S:string; Subs:string; Start:integer) вставляет в S подстроку Subs, начиная с позиции Start.

¾ pos(Subs,S:string):byte ищет первое вхождение подстроки Subs в строку S и возвращает номер символа S, с которого это вхождение начинается. Нуль, если нет ни одного вхождения.

¾ str(X; var S:string) преобразует число X в строку S.

¾ val(S:string; var X; var E:integer) преобразует строку цифр S в значение числовой переменной X, E – код возникшей при преобразовании ошибки.

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

Задача 1. Дан текст. Найти в нем количество буквосочетаний 'st'.

Система тестов:

№	Значение переменной st	Результаты
	st ghhgst stjkj
	sthghjghghghst

Решение задачи:

Program Kolichestvo_ST;

var

str : string;

counter, I : integer;

begin

repeat {Ввод непустой строки}

writeln ('Введите строку');

readln(Str)

until length(Str)<>0;

counter :=0;

for I:=1 to length(str)-1 do {или if str[i]+str[i+1]=’st’}

if (str[i]=’s’) and (str[i+1]=’t’) then

inc(counter);

writeln(' counter = ', counter);

readln;

end.

Задача 2. Дан текст из цифр и строчных латинских букв. Определить сколько гласных ( a , e , i , o , u, y) и сколько согласных букв в этом тексте.

Система тестов:

№	Значение переменной st	Результаты
	123 erty asd	гласных – 3 согласных – 4
	sdfdg3 43 3rtg 23	гласных – 0 согласных – 8

Решение задачи:

Program Glasnie_Soglasnie;

const

gl=[' I', 'o', 'u', 'a', 'e', 'y'];

Digit=[' ' , '0', '1', '2', '3', '4', '5', ' 6', '7', '8', '9'];

var

st: string;

gl_count, dig_count, i: integer;

begin

writeln ('Введите строку');

readln(st);

for I:=1 to length(st) do

begin

if st[i] in gl then

inc(gl_count);

if st[i] in digit then

inc(dig_count);

end;

writeln('glasn= ',gl_count');

writeln(‘soglasn= ', length(st)- gl_count - dig_count);

readln;

end.

Задача 3.Дан текст, В тексте заменить одно заданное слово на другое.

Система тестов:

№	Значение Text	st1	st2	Результаты

	I go to school.	school	shop	I go to shop..

Решение задачи:

Program Change_St1_to_St2;

var

text, st1, st2: string;

p, i: integer;

begin

Writeln(' Введите текст');

readln(text);

Writeln(' Введите слово которое следует заменить');

readln(st1);

Writeln(' Введите слово на которое следует заменить');

readln(st2);

p:=Pos(st1,text);

while p > 0 do

begin

Delete(text,P,length(st1));

Insert(st2, text,P);

p:=Pos(st1,text);

end;

writeln(text);

readln;

end.

Задания для самостоятельного выполнения

1. Дан текст. Найти в нем удвоенные буквы.

2. Дан текст. Проверить соблюдается ли в записи данной математической формуле баланс открывающихся и закрывающихся скобок.

3. Дан текст. Напечатать текст в обратном порядке.

4. Дан текст. Найти в нем количество слов.

5. Дан текст. Найти количество слов, заканчивающихся буквосочетанием 'kk'.

6. Дан текст. Заменить все гласные на символ ' * '.

7. Дан текст. Найти количество слов 'krokodil'.

8. Дан текст. Утроить все символы в тексте.

9. Дан текст. Удалить все гласные в тексте.

10. Дан текст. Удалить в тексте лишние пробелы между словами, оставив по одному.

11. Написать программу, которая проверяет, является ли введенная с клавиатуры строка целым числом.

12. Найти самое длинное и самое короткое слово в заданном тексте.

13. Дан текст. Удалить каждую вторую букву.

14. Дан текст из стpочных латинских букв. Напечатать:

а) все буквы, входящие в текст не менее двух pаз;

б) все буквы, входящие в текст по одному pазу.

15. Дан текст. Вывести текст по две буквы в столбик.

16. Дана строка символов, состоящая слов, разделенных пробелами. Напечатать упорядоченные по алфавиту слова из строки символов.

17. Написать программу, которая преобразует введенное пользователем десятичное число в шестнадцатеричное.

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

19. Дан текст. Из заданного предложения удалить все слова, которые уже встречались в нем ранее.

20. Удалить из слов с четной длиной все гласные, а из слов с нечетной длиной – все согласные.

21. Дана строка из слов, содержащих буквы и цифры. Слова разделены пробелами. Удалить из каждого слова цифры. Вывести полученные слова, упорядочив их по убыванию количества входивших в них цифр.

Лабораторная работа № 9. Функции и процедуры

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

Задачи:

¾ понять, что такое процедура и способы ее задания;

¾ понять, что такое функция и способы ее задания

¾ определить, в каких случаях целесообразно использовать процедуры, а в каких - функции.

Порядок выполнения работы:

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

2. Ознакомиться с представленными в лабораторной работе теоретическими сведениями.

3. Получить дополнительные теоретические знания из источников: [3: Глава 6], [4: Тема 8], [7: Занятие 11, 12], [10: Глава 8].

4. Реализовать на ЭВМ разобранные примеры.

5. Самостоятельно выполнить предложенные задачи.

Внимание: переходить к выполнению пунктов 4 и 5 только после тщательной проработки пунктов 1 – 3.