Question

Переделать вывод программы на строки. Паскаль. Как перенастроить на то, чтобы выводилось в столбик? Программа выводит строку, из которой удаляется заданное слово. Проблема в том, что строка выводится также горизонтально, как и задавалась. Прошу помощи! Пример: boat load cargo to the boat truck load cargo to the truck Может мне стоит использовать другой цикл? var p, s: string; k: byte; begin readln(p); readln(s); s := ' ' + s + ' '; // можете пояснить зачем нужны две эти строки? На практике если их убрать, то будет удаляться не все слово, а точнее будет оставаться последняя буква. Может можно это как-то исправить и без этих строк? p := ' ' + p + ' '; repeat k := pos(p, s); if k > 0 then delete(s, k, length(p) - 1); until k = 0; writeln(s); end.

Answer 1

Var
p, s: string;
k, l: byte;

begin

readln(p); 
readln(s);

s := ' ' + s + ' '; // Строка нужна для корректного удаления первого и/или последнего слова 
p := ' ' + p + ' '; // Строка нужна для удаления слова, а не последовательности символов в слове
l := length(p) - 1;
repeat
k := pos(p, s);
if k > 0 then delete(s, k, l);
until k = 0;
for var i:=1 to length(s) do
 if s[i]<>' ' then write(s[i]) else writeln;
end.

Answer 2

Перенастройка вывода программы на строки в Pascal

Чтобы изменить вывод программы на строки в Pascal, вам необходимо использовать цикл `for` или `while`, а также использовать функцию `writeln` для вывода каждой строки в отдельности.

Вот пример перенастройки вашей программы на вывод строк в столбик:

var
  p, s: string;
  k: byte;
  i: integer;
begin
  readln(p);
  readln(s);
  s := '+' + s + '+';
  p := '+' + p + '+';
  
  for i := 1 to length(s) do
  begin
    if s[i] = ' ' then
      writeln
    else
      write(s[i]);
  end;
  
  repeat
    k := pos(p, s);
    if k > 0 then
      delete(s, k, length(p) - 1);
  until k = 0;
  
  writeln(s);
end.

В этом примере мы добавили цикл `for` для посимвольного вывода строки `s` в столбик. Если символ является пробелом, мы переходим на новую строку с помощью `writeln`. Затем мы выполняем вашу исходную программу для удаления заданного слова.

Надеюсь, это поможет вам решить проблему с выводом строки в столбик. Если у вас возникнут еще вопросы, пожалуйста, дайте мне знать!