implementation. Procedure Revers(var ss:s;n:integer);. if n>length(ss) div 2 then . ss[length(ss)-n+1]:=t;. Revers(ss,n-1);. end;// Метод инвертирования строки. procedure TForm1.Button1Click(Sender: TObject);. s1:=edit1.text;.

implementation

{$R *.dfm}

Procedure Revers(var ss:s;n:integer);

var t:char;

begin

if n>length(ss) div 2 then

begin

t:=ss[n];

ss[n]:=ss[length(ss)-n+1] ;

ss[length(ss)-n+1]:=t;

Revers(ss,n-1);

end;

end;// Метод инвертирования строки

procedure TForm1.Button1Click(Sender: TObject);

begin

s1:=edit1.text;

end; // Ввод строки из окна

procedure TForm1.Button2Click(Sender: TObject);

var t:char;

r:integer;

begin

r:=length(s1);

revers(s1,r);

Edit2.Text :=s1;

end; // Событие, обеспечивающее вызов метода преобразования строки

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

Рис. 4 Результат инвертирования строки

⇐ Предыдущая 12