Question

Сделать из программы процедуру 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.

Answer 1

Var fr,frn,s1:string; 

procedure StrSeq(var fr,frn,s1:string);
var i:integer;
begin;
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;
end;

 begin
 writeln('Vvedite frazu:');
 readln(fr);
 StrSeq(fr,frn,s1);
end.

Answer 2

Процедура на языке Pascal для данной программы может быть следующей:

scssCopy code
program kokokoko;
uses crt;
var
  fr, frn, s1: string;
  i: integer;

procedure reverseWordsInPhrase();
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));
    frn := '-';
    for i := length(s1) downto 1 do
      frn := frn + s1[i];
    write(frn);
  end;
  readkey;
end;

begin
  reverseWordsInPhrase();
end.

Здесь reverseWordsInPhrase является процедурой, которая содержит основной код программы. Она вызывается в блоке begin..end для выполнения.

После компиляции и запуска этой программы, она запросит у пользователя ввод фразы и затем выведет перевернутые слова этой фразы.