Создать модуль из имеющегося кода - 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:='';
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д