Сделать из программы процедуру pascal


Program kokokoko;
uses crt;
var
fr,frn,s1:string;
i:integer;
begin
clrscr;
writeln('Vvedite frazu:');
readln(fr);
fr:=fr+' ';
While Pos(' ',fr)>0 do
Begin
s1:=Copy(fr,1,Pos(' ',fr)-1);
Delete(fr,1,Pos(' ',fr));
Begin
frn:='-';
for i:=length(s1) downto 1 do frn:=frn+s1[i];
write(frn);
End;
End;
readkey;
end.

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

Вот как это можно сделать:

1. Программа начнёт с создания процедуры ReverseWords, которая будет принимать строку в качестве входного параметра.
2. Логика программы останется практически без изменений, но код будет перенесён в процедуру.
3. В главной программе будет просто вызов этой процедуры с нужным параметром.

Пример реализации:

pascal
program kokokoko;
uses crt;
procedure ReverseWords(fr: string);
var
  frn, s1: string;
  i: integer;
begin
  fr := fr + ' ';  { Добавляем пробел в конце для удобства }
  
  while Pos(' ', fr) > 0 do
  begin
    s1 := Copy(fr, 1, Pos(' ', fr) - 1);  { Извлекаем слово до первого пробела }
    Delete(fr, 1, Pos(' ', fr));  { Удаляем это слово из строки }
    
    frn := '-';  { Инициализируем строку для перевёрнутого слова }
    for i := Length(s1) downto 1 do
      frn := frn + s1[i];  { Переворачиваем слово }
      
    Write(frn);  { Выводим перевёрнутое слово }
  end;
end;
var
  fr: string;
begin
  clrscr;
  writeln('Vvedite frazu:');
  readln(fr);
  
  ReverseWords(fr);  { Вызываем процедуру для обработки введённой строки }
  
  readkey;  { Ожидаем нажатия клавиши }
end.

Что изменилось?

1. Мы создали процедуру ReverseWords, которая принимает один параметр — строку fr. В этой процедуре выполняется вся логика обработки строки (поиск слов, их переворот и вывод).
2. В основной части программы теперь просто вызывается эта процедура с аргументом, который пользователь вводит.

Преимущества такого подхода:

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