Задание 1. Проверка на совпадение первой и последней букв строки

Составить программу, проверяющую совпадают ли первая и последняя буквы слова Х, введенного с клавиатуры.

Решение задачи строится на нахождении первой и последней букв слова при помощи операции копирования одного символа и дальнейшего сравнения букв между собой.

Запустите Turbo Pascal. В окне редактирования наберите текст программы:

Program slovo_1;

var X: String[15];

d: Integer;

begin

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

Read (X);

d:=Length(x); {Находим длину слова Х}

If Copy(X,1,1)=Copy(X,d,1)

Then Writeln('Первая и последняя буквы совпадают')

Else Writeln ('Первая и последняя буквы не совпадают');

end.

Задание 2. Подсчет количества букв

Составить программу, подсчитывающую количество вхождений буквы "а" в заданное слово Х, введенное с клавиатуры.

Program slovo_2;

var X: String[15];

d, s, i: Integer;

begin

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

Read (X);

d:=Length(x); {Находим длину слова Х}

s:=0; {Обнуляем счетчик букв "а"}

For i:=1 To d Do

If Copy(X,i,1)='a'

Then s:=s+1; {При совпадении i-ой буквы слова с "а" увеличиваем счетчик на 1}

If s<>0 Then Writeln ('Количество букв "а" в слове ', X, 'равно ',s)

Else Writeln ('Слово не содержит буквы а');

end.

Задание 3. Слова - перевёртыши

Составить программу, проверяющую, является ли введенное с клавиатуры слово Х перевертышем.

Program slovo_3;

var X,Y: String[15];

d, i: Integer;

begin

Writeln ('Введите слово Х');

Read (X);

{Ввод пустого слова Y}

Y:='';

{Нахождение длины слова Х}

d:=Length(X);

For i:=d Downto 1 Do Y:=Y+Copy(X,i,1); {Составляем слово Y, обратное для Х}

If X=Y Then Writeln ('Слово является перевертышем')

Else Writeln ('Слово не является перевертышем');

end.

Задание 4. Замена букв в слове

Заменить в слове Х все буквы "а" на буквы "я".

Program slovo_4;

var X,Y: String[15];

d, i: Integer;

begin

Writeln ('Введите слово Х');

Read (X);

Y:='';

d:=Length(X); {Находим длину слова Х}

For i:=1 To d Do

If Copy (X,i,1)='a'

Then Y:=Y+'я'

Else Y:=Y+Copy(X,i,1);

Writeln(Y:15);

end.

Задание 5. Удаление символов в слове

Удалить из строки все "лишние" (парные) пробелы.

Program slovo_5;

var s: String[50];

l: Integer;

begin

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

Read (s);

I:=pos (' ', s);

if l=0 then Writeln ('Парных пробелов нет')

else

begin

while l >0 do {пока в строке есть парные пробелы}

begin

delete (s, pos (' ',s), 1);

I:=pos (' ',s)

end;

Writeln ('Получена строка:');

Writeln (s);

end;

end.