Процедура delete позволяет удалить часть строки. В общем виде обращение к процедуре выглядит так: delete (Строка, p, n);
где строка – переменная строкового типа; p – номер символа, с которого начинается удаляемая подстрока; n – длина удаляемой подстроки.
Например, в результате выполнения команд:
s:= ‘Город Санкт-Петербург’;
delete (s, 7, 6);
значение переменной s будет строка ‘Город Петербург’.
Примеры удаления символов
s:=‘котик’;
delete (s, 4, 2); s=‘кот’
s:=‘информатика’;
delete (s, 1, 2);
delete (s, 6, 4); s=‘форма’
Задачи:
Дано слово:
удалить из него третью букву;
удалить из него k-ю букву.
удалить из него первую из букв "о", если такая буква есть.
удалить из него последнюю из букв "т", если такая буква есть.
Дано слово. Если его длина нечетная, то удалить среднюю букву, в противном случае - две средних буквы.
Дано предложение. Удалить из него все символы с n1-го по n2-й (n1n2).
Дано предложение. Удалить из него все буквы "с".
Дано слово. Удалить из него все повторяющиеся буквы, оставив их первые вхождения, то есть в слове должны остаться только различные буквы.
Дано предложение. Удалить из него все буквы "о", стоящие на нечетных местах.
Функция pos.
Функция pos позволяет определить положение подстроки в строке. В общем виде обращение к функции выглядит так: pos (Подстрока, строка);
где Подстрока – строковая константа или переменная, которую надо найти в строковой константе или переменной строка.
Например, в результате выполнения команды: p:= pos (‘Пе’, ‘Санкт-Петербург’); значение переменной p будет равно 7. Если в строке нет искомой подстроки, то функция возвращает ноль.
Примеры определения позиции
k:=pos(‘р’, ’мир’); k=3
s:=‘колокол’;
n:=pos(‘кол’, s); n=1
s1:=‘ок’; s2:=‘кок’;
i:=pos(s1, s2); i=2
k:=pos(‘п’, ’мама’); k=0
Задачи:
Дано предложение, в котором имеется несколько букв "е". Найти:
а) порядковый номер первой из них;
б) порядковый номер последней из них.
Дано предложение. Определить, есть ли в нем буква "а". В случае положительного ответа найти также порядковый номер первой из них.
Дано предложение. Определить количество букв "н", предшествующих первой запятой предложения.
Дано предложение. Напечатать все символы, расположенные между первой и второй запятой. Если второй запятой нет, то должны быть напечатаны все символы, расположенные после единственной имеющейся запятой.
Дано предложение, в котором имеются одна буква "с" и одна буква "т". Определить, какая из них встречается раньше (при просмотре слова слева направо).
Процедура val.
процедура val позволяет преобразовать изображение числа в число. В общем виде обращение к процедуре выглядит так: val (Строка, число, код).
где строка – строковая константа или переменная, содержащая изображение числа; число - переменная, которой должно быть присвоено значение, изображенное строкой строка; код – возвращаемый процедурой код ошибки. Если строка может быть преобразована в число, то код ошибки равен нулю.
var
month: integer;
st: string[10];
code: integer;
begin
repeat
write (‘Месяц->’);
readln (st);
val (st, month, code);
if code<>0 then
writeln (‘Ошибка! Месяц следует задать цифрой.’);
until code=0;
end.
Задачи:
Дан текст. Напечатать все имеющиеся в нем цифры.
Дан текст. Определить количество цифр в нем.
Дан текст, в котором имеются цифры.
а) Найти их сумму.
б) Найти максимальную цифру.
Дан текст, в начале которого имеются пробелы и в котором имеются цифры. Найти порядковый номер максимальной цифры, считая, что первый номер имеет первый непробел. Если максимальных цифр несколько, то должен быть найден номер первой из них.
Процедура str.
Процедура str позволяет преобразовать число в его изображение, т.е. в строку. В общем виде обращение к процедуре выглядит так: str (выражение, строка).
где выражение – выражение или переменная целого или вещественного типа, строка – строковая переменная, которой будет присвоено изображение выражения.
Процедура ord
Процедура ord возвращает десятичный код символа.
ord(C[1]) где C[1] стока длины1 или переменная типа char.
Задачи общие:
Дано предложение. Определить число букв "о" в нем.
Дано предложение. Определить число пробелов в нем.
Дано предложение. Определить число вхождений в него некоторого символа.
Дано предложение. Определить долю (в %) букв "а" в нем.
Дан текст. Сколько раз в нем встречается символ "+" и сколько раз символ "*".
Дано предложение. Определить сколько в нем одинаковых соседних букв.
Дано предложение. Определить число вхождений в него буквосочетания "ро".
Дано предложение. В нем слова разделены одним пробелом (начальные и конечные пробелы в предложении отсутствуют). Определить количество слов в предложении.
Дано предложение. В нем слова разделены одним или несколькими пробелами. Определить количество слов в предложении.
Дан текст. Подсчитать общее число вхождений в него символов "+" и "-".
Дано предложение. Определить, сколько в нем гласных букв.
Дано предложение. Все буквы "е" в нем заменить на букву "и".
Дано предложение. Все его символы, стоящие на четных местах заменить на букву "ы".
Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух".
Дано предложение. Заменить в нем все вхождения буквосочетания "бит" на "рог".
Дана последовательность слов. Проверить, правильно ли в ней записаны сочетания "жи" и "ши".
Дана последовательность слов. Проверить, правильно ли в ней записаны сочетания "ча" и "ща". Исправить ошибки.
Дано слово. Определить, сколько различных букв в нем.
Даны два слова. Определить, можно ли из букв первого из них получить второе. Рассмотреть два варианта:
повторяющиеся буквы второго слова могут в первом слове не повторяться;
каждая буква второго слова должна входить в первое слово столько же раз, сколько и во второе.
Даны три слова. Напечатать только те буквы слов, которые есть только в одном из слов. Рассмотреть два варианта:
повторяющиеся буквы каждого слова рассматриваются;
повторяющиеся буквы каждого слова не рассматриваются.
Даны три слова. Напечатать их общие буквы. Повторяющиеся буквы каждого слова не рассматривать.
Даны три слова. Напечатать неповторяющиеся в них буквы.
Символы.
Для хранения и обработки отдельных символов используются переменные типа char. Значением переменной типа char может быть любой символ. Переменная символьного типа должна быть объявлена в разделе описания переменных так:
Примеры: otv: char;
В результате выполнения программы:
var
c1, c2, otvet: char;
begin
c1:=’*‘;
c2:=c1;
write (‘Вы хотите научиться программировать?’);
readln (otvet);
writeln (c1, ‘Ваш ответ: ’, otvet, c2);
readln;
end.
переменная с1 получает значение присваиванием значения константы, с2 – присваиванием значения переменной с1, а значение переменной otvet вводится с клавиатуры.
Обратите внимание: переменная otvet объявлена как char, т.е. один символ. Поэтому если в ответ на вопрос программы будет введено, например слово «Да», то переменная otvet получит значение «Д».
Работа в системе турбо паскаль (ТП) Яп паскаль был разработан Н. Виртом в 1968 – 1970году и получил широкое распространение благодаря наглядности программ и легкости...
Основные понятия языка паскаль Алфавит языка Паскаль. Под алфавитом понимается упорядоченная определенным образом совокупность взаимно различимых знаков — символов....
Интегрированная среда программирования Интегрированная среда программирования Delphi позволяет сравнительно легко и быстро создавать законченные приложения Windows. Поэтому...
"Среда программирования Turbo Pascal " Развивающая: развитие алгоритмического мышления, навыков работы на компьютере, познавательных интересов, памяти, внимания, самостоятельности...