Проанализируйте результаты и объясните результат обработки первой строки.
Пример решения задачи со строками в визуальной среде. Задача 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);
Begin if n>length(ss) div 2 then
t:=ss[n];
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 Результат инвертирования строки
|
var t:char;
j
begin
ss[n]:=ss[length(ss)-n+1];
