Создать модуль из имеющегося кода - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Добрый день! Помогите пожалуйста с программой. Написал её, а нужно ещё сделать модуль. Сама программа вот(без модуля, в первоначальном виде)
Program Lab_7;
 
var  s, s1: string;
     i, j, k:integer;
 
begin
    
write('Введите строку= ');
    readln(s);
    s:=s+' ';
    k:=1;
       for i:=1 to length(s) do
      begin
      if s[i]=' ' then begin
       for j:=i-1 downto k do
         s1:=s1 + s[j];
         s1:=s1 + ' ';
         k:=i;
        end;
end;
    writeln('Результат= ', s1);
 end.
Далее попытался написать модуль, но не совсем получилось. Модуль:
unit modul;
 
interface
 
Procedure Inver;
 
implementation
 
Procedure Inver;
 
begin
 
Procedure Inver;
var  s, s1: string;
     i, j, z, k:integer;
 
begin
 
write('Введите строку= ');
    readln(s);
    s:=s+' ';
    k:=1;
       for i:=1 to length(s) do
      begin
      if s[i]=' ' then begin
       for j:=i-1 downto k do
         s1:=s1 + s[j];
         s1:=s1 + ' ';
         k:=i;
        end;
end;
end;
end.
Программа в результате:
Program Lab_7;
uses modul;
 
begin
    Procedure Inver(s, s1);
    writeln('Результат= ', s1);
end.
Знаю, что тут куча ошибок. Модули никогда не писал. Сейчас делал, используя информацию, которую нашел. Помогите пожалуйста

Решение задачи: «Создать модуль из имеющегося кода»

textual
Листинг программы
s:=s+' ';
k:=1;
s1:='';

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5