Пример решения задачи со строками в визуальной среде.

Задача 2. Получить инверсную строку.

Рис. 3 Алгоритм инверсии строки

Unit Unit1_revers_string;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

Type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

End;

s=string[60];

Var

Form1: TForm1;

s1:s;

Implementation

{$R *.dfm}

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

var t:char;

Begin

if n>length(ss) div 2 then

a

b

c

d

e

f

g

h

i

j

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 Результат инвертирования строки

Не нашли, что искали? Воспользуйтесь поиском: