Question

Надо создать 3 программы в Паскаль!!! (36 балла)1) Программа которая определяет число вхождений слог 'MA' в строке.2) Программа которая заменяет слогу 'MA' на слогу 'TA'3) Программа которая удаляет с строке слогу 'TO'

Answer 1

Все три объединил в одну. Смотри в приложении. 

Answer 2

Программа 1: Определение числа вхождений слога 'MA' в строке

Для создания программы, которая определяет число вхождений слога 'MA' в строке, можно использовать следующий алгоритм:

1. Запросить у пользователя ввод строки. 2. Инициализировать переменную `count` для подсчета числа вхождений слога 'MA' и установить ее значение равным 0. 3. Использовать цикл для прохода по каждому символу в строке. 4. Внутри цикла проверить, если текущий символ и следующий символ образуют слог 'MA', то увеличить значение переменной `count` на 1. 5. После завершения цикла, вывести значение переменной `count`, которое будет представлять число вхождений слога 'MA' в строке.

Пример кода на языке Pascal:

program CountMA;
var
  inputString: string;
  count: integer;
  i: integer;
begin
  writeln('Введите строку:');
  readln(inputString);
  
  count := 0;
  for i := 1 to Length(inputString) - 1 do
  begin
    if (inputString[i] = 'M') and (inputString[i+1] = 'A') then
      count := count + 1;
  end;
  
  writeln('Число вхождений слога ''MA'': ', count);
end.

Программа 2: Замена слога 'MA' на слог 'TA'

Для создания программы, которая заменяет слог 'MA' на слог 'TA' в строке, можно использовать следующий алгоритм:

1. Запросить у пользователя ввод строки. 2. Использовать функцию `Pos` для поиска позиции первого вхождения слога 'MA' в строке. 3. Если слог 'MA' найден, то использовать функцию `Copy` для создания новой строки, заменяя слог 'MA' на слог 'TA'. 4. Вывести новую строку с замененным слогом 'MA'.

Пример кода на языке Pascal:

program ReplaceMA;
var
  inputString, outputString: string;
begin
  writeln('Введите строку:');
  readln(inputString);
  
  outputString := inputString;
  if Pos('MA', outputString) > 0 then
    outputString := StringReplace(outputString, 'MA', 'TA', [rfReplaceAll]);
  
  writeln('Новая строка: ', outputString);
end.

Программа 3: Удаление слога 'TO' из строки

Для создания программы, которая удаляет слог 'TO' из строки, можно использовать следующий алгоритм:

1. Запросить у пользователя ввод строки. 2. Использовать функцию `Pos` для поиска позиции первого вхождения слога 'TO' в строке. 3. Если слог 'TO' найден, то использовать функцию `Copy` для создания новой строки, исключая слог 'TO'. 4. Вывести новую строку без слога 'TO'.

Пример кода на языке Pascal:

program RemoveTO;
var
  inputString, outputString: string;
begin
  writeln('Введите строку:');
  readln(inputString);
  
  outputString := inputString;
  if Pos('TO', outputString) > 0 then
    outputString := StringReplace(outputString, 'TO', '', [rfReplaceAll]);
  
  writeln('Новая строка: ', outputString);
end.

Надеюсь, эти программы помогут вам выполнить задание! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.