4. Задачи на вставку символов.

1. В тексте исправить ошибки в словах длиный и Генадьевич.

Var

St: Sring[255];

I,P: Byte;

Begin

WriteLn(‘Введите строку символов ‘);

ReadLn(St);

I:=1;

While I<=Length(St) Do Begin

If Copy(St,I,8)=’ длиный ‘ Then Insert(‘н’,St,I+4);

If Copy(St,I,12)=’ Генадьевич ‘ Then Insert(‘н’,St,I+3);

I:=I+1;

End;

2. В заданном тексте проверить наличие запятой перед каждым союзом «но». При отсутствии – вставить.

Var

St: Sring[255];

I,K: Byte;

Begin

WriteLn(‘Введите текст ‘);

ReadLn(St);

S:=’, но ’;

I:=1;

While I<=Length(St) Do Begin

If (Copy(St,I,4)=’ но ’) and (St[I-1]<>’,’) Then Begin

Delete(St,I,4);

Insert(S,St,I);

I:=I+4;

End;

I:=I+1;

End;

WriteLn(St);

End.

3. В текст вставить символ пробел после каждого имеющегося символа пробел.

USES Crt;

VAR

A : STRING [255]; I: INTEGER;

BEGIN

ClrScr;

WriteLn('Введите текст'); ReadLn(A);

I:=1;

While (I<=Length(A)) DO Begin

IF A[I]=' ' THEN Begin Insert (' ',A,I); I:=I+1; End;

I:=I+1;

End;

WriteLn(‘Измененный текст:’); WriteLn(A);

END.

Примеры для самостоятельного решения:

1. Исправить ошибки в тексте: в словах «рож», «мыш», «доч», в конце поставить «ь».

2. В тексте в последнем предложении после слова «мама» вставить «и папа».

3. В тексте после слов «например» поставить «,».

4. В тексте во втором предложении после слов «Ура» поставить «!!!».

9. Процедуры и функции, определенные пользователем

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

Процедура – это независимая поименованная часть программы. Она состоит из заголовка и тела. После однократного описания процедуру можно вызвать по имени из последующих частей программы. Имя процедуры не может находиться в выражении в качестве операнда.

Функция аналогична процедуре, но имеет два отличия:

• функция передает в точку вызова скалярное значение (результат своей работы);

• имя функции может входить в выражение как операнд.

Все процедуры и функции языка Pascal подразделяются на две группы:

1. встроенные (стандартные).

2. определенные пользователем.

Встроенные процедуры и функции являются частью языка и вызываются по имени.

Использование процедур и функций дает ряд преимуществ:

1. организовать работу нескольких программистов над одной программой с последующим объединением отдельно отлаженных и относительно независимых блоков в единое целое;

2. проводить отладку отдельных блоков и только после этого программы в целом;

3. значительно экономить память, т.к. многократно используемый участок заносится в память только один раз;

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