Главная | Обратная связь | Поможем написать вашу работу!

Задания для самостоятельного решения

Лабораторная работа № 5. Строки

Строкой называется последовательность символов заключенных в апострофы. Переменные строкового типа можно описывать двумя способами:

1) String - строка переменной длины;

2) String [n] - строка длины меньшей и равной n. (n<256).

Символы внутри строки индексируются (нумеруются) от единицы. Индекс может быть положительной константой, переменной, выражением целого типа. Обратиться к любому символу строки можно указав имя строки и номер на котором стоит нужный символ (например, st[3]).

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

Операция или функция	Описание
Length(st)	Функция, находит количество символов в строке st, результатом является величина целого типа.
Concat(st,st1)	Функция склеивания строк.
Copy (st,i,n)	Функция выделения в строке st, начиная с позиции i, числа символов n. Например, Copy('Компьютер',7,3)= 'тер '
Delete(st,i,n)	Процедура удаления в строке st, начиная с позиции i, числа символов n. Например, Delete(' Компьютер',5,5) получилось 'Комп'
Insert(st1,st,i)	Процедура вставки подстроки st1 в строку st, начиная с позиции i. Например, было: st='Intel 4'; Insert('Pentium',st,6), стало: st='Intel Pentium4'
Pos(st1,st)	Функция поиска вхождение подстроки st1 в строку st, результатом является величина целого типа номер первого символа строки st1 в st. Например, st='Компьютер'; Pos('Комп', st)=1; Pos('Intel', st)=0.
Str(N,st)	Процедура преобразования числового выражения N в строковое st, если N – вещественное, можно указать формат записи вещественного числа N:n1:n2.
Val(st,N,k)	Процедура преобразования строкового выражения st в значение числовой переменной N, переменная k – целого типа, обозначающая код символа. Строка должна состоять из цифр.

Примечание: n, n1, n2,i: integer; st, st1: string; N: любое числовое.

Пример 1. Дано слово «снегурочка». Написать программу, которая получает слова «ночка», «ручка», «снег», «негр».

Program slova;

Uses crt;

Var st,st1:string;

Begin

Clrscr;

Writeln('Из слова снегурочка получили слова:');

st:='снегурочка';

st1:=st[2]+copy(st,7,4); //получаем слово «ночка»: соединяем 2 символ строки st и

Writeln(st1); //последние 4 символа

st1:=st[6]+st[5]+copy(st,8,3); //получаем слово «ручка»: соединяем 6, 5 символы строки st и

Writeln(st1); //последние 3 символа

st1:=copy(st,2,3)+st[6]; //получаем слово «негр»: соединяем 2,3,4 символы строки st и

Writeln(st1); //6 символ

delete(st,5,6); //получаем слово «снег»: удаляем последние 6 символов строки st

Writeln(st);

End.

Пример 2. Составить программу подсчёта, количества букв ‘a’ в заданной строке.

Program stroka;

Uses crt;

Var st:string; k,i:integer;

Begin

Clrscr;

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

Readln(st);

k:=0; //изначально количество букв ‘a’ равно 0

For i:=1 to length(st) do //просматриваем все символы строки st

if (st[i]='a') or (st[i]='а') then k:=k+1; //при нахождении буквы ‘a’ (русской или латинской)

Writeln('Количество букв "а" в строке - ',k); //прибавляем к переменной k единицу

End.

Задания для самостоятельного решения

1) Даны две строки. Написать программу, объединяющую их в одну и находящую длину полученной строки.

2) Дано слово «калейдоскоп». Написать программу, которая получает слова «доска», «клоп», «лейка», «далеко».

3) Составить программу, определяющую позицию подстроки S1 в строке S2. Строки S1 и S2 вводятся с клавиатуры.

Домашнее задание

1) Дана строка. Написать программу, которая определяет, сколько раз в этой строке встречается заданная буква.

2) Даны две строки. Составить программу, которая вставляет подстроку S2 в строку S1 с заданной позиции.

3) Дана строка цифр. Написать программу, которая вычисляет сумму цифр строки.