Question

30 баллов. Составьте программу в Pascal ABC с помощью простых команд(9класс), которая вставляет заданное слово z после указанного слова t строки s. Строки s, t, z вводятся с клавиатуры Входные данные: землю покрыл снег {s} покрыл {t} пушистый {z} Выходные данные: землю покрыл пушистый снег

Answer 1

Ответ:

begin

 var s, t, z:string;

 write('s = '); readln(s);

 write('t = '); readln(t);

 write('z = '); readln(z);

 s.Insert(Pos(t, s) + Length(t), z + ' ').Print();

end.

Answer 2

Вот пример программы на Pascal ABC, которая вставляет заданное слово `z` после указанного слова `t` в строке `s`:

program InsertWord;
var
  s, t, z, result: string;
  posT: integer;
begin
  // Ввод строк s, t, z
  writeln('Введите строку s:');
  readln(s);
  writeln('Введите слово t:');
  readln(t);
  writeln('Введите слово z:');
  readln(z);

// Поиск позиции слова t в строке s
  posT := pos(t, s);

// Если слово t найдено, вставляем слово z после него
  if posT > 0 then
  begin
    // Формирование результирующей строки
    result := copy(s, 1, posT + length(t) - 1) + z + copy(s, posT + length(t), length(s) - posT - length(t) + 1);
    writeln('Результат:');
    writeln(result);
  end
  else
  begin
    writeln('Слово "', t, '" не найдено в строке "', s, '".');
  end;
end.

Программа сначала запрашивает ввод строки `s`, слова `t` и слова `z` с помощью функции `readln`. Затем она ищет позицию слова `t` в строке `s` с помощью функции `pos`. Если слово `t` найдено, программа формирует результирующую строку `result`, вставляя слово `z` после слова `t`. Результат выводится на экран с помощью функции `writeln`.

Пример входных данных: ``` Введите строку s: землю покрыл снег Введите слово t: покрыл Введите слово z: пушистый ```

Пример выходных данных: ``` Результат: землю покрыл пушистый снег ```

Примечание: Убедитесь, что вы используете среду разработки Pascal ABC, чтобы запустить эту программу.