Программирование операций с символами и строками в средах Turbo Pascal и Delphi 6.0: Учебное пособие, страница 5

 var

    i:integer;

    slovo1:string[5];

    slovo2:string[5];

begin

    slovo1:=edit1.text;

    slovo2:=edit2.text;

    for i:=1 to 5 do

          if copy(slovo1,i,1)=copy(slovo2,i,1) then begin

           delete(slovo1,i,1);

           delete(slovo2,i,1);

           memo1.lines.add(slovo1+' '+slovo2 );

      end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

        close;

end;

end.

Задача 4.4.1. Из данной символьной строки выбрать все цифры и сформировать другую строку из этих цифр, сохранив их последовательность.

                                             Текст  программы

Program Prog4_41;

Uses winCrt;

var

    S1, S2:string;

begin

         Write(‘Введите строку’);

          Readln(S1);

          S2:= ‘ ‘;

           For i:=1 to length(S1) do

                  If (S1[i]>=’0’) and (S1[i]<=’9’)   Then S2:=S2+S1[i];

                  Writeln(‘Результат’, S2)

End.  

                  Результат  работы программы

                       Рис.

Задача 4.3.2. Удаление из 2-х слов  совпадающих символов  в среде Delphi

                                             Решение

1. Открыть новый проект командой главного меню File | New | Application.

2. Поместим на форме Form1  компоненты  в соответствии с макетом

3. Выделим объект  Form1  (щелкнем  в окне формы) и для свойства Caption(заголовок) установим значение  "Выделение последовательнсти цифр".

4.Для меток Label1 и Label2  зададим  свойство Caption "Вводимая строка” и

“Полученная строка”, выбрав нужный шрифт (Font, его размер и цвет) .

5. Для  однострочных  редакторов Edit1и Edit2 значение для свойства Text установите равным пустой строке.

6. Для кнопки Button1 установите значение  свойства Caption Вычислить, а кнопки Button2  - Закрыть.

7.  Активизируйте двойным щелчком кнопку Вычислить  и в заготовку

обработчика события OnClick (Между строками

      procedure TForm1.Button1Click(Sender: TObject);

и    end;)

поместите текста процедуры:

var

S1, S2:string;

    i:integer;

begin

s1:=edit1.text;

          S2:= ' ';

           For i:=1 to length(S1) do

                  If (S1[i]>='0') and (S1[i]<='9')   Then S2:=S2+S1[i];

                  edit2.Text:=S2;

end;

8. Два раза щелкние на свободном месте окна форма и в заготовку процедуры  поместие следующий код;

Edit1.Text:='';

      Edit2.Text:=''

9. Активизируйте двойным щелчком кнопку Закрыть и в заготовку обработчика события OnClick поместите код  Form1.close;

10. Сохраните проект при помощи команды  меню File | Save Project As.

 в новую папку, например, C:\MyProject\sim1.

11. Выполните компиляцию программы  и исправьте ошибки. если они будут обнаружены.

12. Запустите программу с помощью клавиши F9.

                                Результат решения задачи

13. Удалите проект

Полный  текст модуля

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

 var

    S1, S2:string;

    i:integer;

begin

          s1:=edit1.text;

          S2:= ' ';

           For i:=1 to length(S1) do

                  If (S1[i]>='0') and (S1[i]<='9')   Then S2:=S2+S1[i];

                  edit2.Text:=S2;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

     close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

   {Присвоение начальных значений}

   Edit1.Text:='';

   Edit2.Text:='';

end;

end.