Написать программу «Счастливый билет», которая позволяет суммировать все символы в левой части и в правой части билета, сравнивать полученные значения, совпавшие значения  выводить в список. Левая часть билета определяется пользователем, а правая заполняется с помощью пользовательской функции.

      1.  Размещаем компоненты на форме:    ListBox1; Button1; Label1, Edit1, Button2;

      2. Функциональность приложения: 

- создать обработчик события нажатия кнопки Выход

procedure TForm1.Button2Click(Sender: TObject);

  begin

    Close; //Выход из 

  end;

- далее необходимо объявить в интерфейсной части модуля пользовательскую функцию   

              function SumString(Val: string): Integer;

 -  Описание алгоритма функции

function TForm1.SumString(Val: string): Integer;

var

    i, r: Integer;

begin

    r := 0;                                               //Инициализирована переменная

    for i := 1 to Length(Val) do           //Цикл по всем символам номера

        R := R + StrToInt(Val[i]);        //Суммирование всех символов в номере

    Result := r;                                   //Возврат суммы

end;

- создать обработчик события формы OnCreate

procedure TForm1.FormCreate(Sender: TObject);

begin

    Edit1.Text := '123';                                 //Инициализируем значение левой части билета

end;

 -         создать обработчик события нажатия кнопки Подготовить

 procedure TForm1.Button1Click(Sender: TObject);

var

    SumLev, Prav, SumPrav: Integer;

    sLev, sPrav: string;                        // строки

begin

    sLev := Edit1.Text;                      //Получение левой части билета

    SumLev := SumString(sLev);    // Суммирование всех символов в левой части

    ListBox1.Clear;                         //Очищаем ListBox

    for Prav := 0 to 999 do             //Цикл по правой стороне билета

    begin

        sPrav := IntToStr(Prav);                 //Преобразование в строку правой части билета

        SumPrav := SumString(sPrav);     //Суммирование всех символов в правой части

        if SumLev = SumPrav then          //Если Сумма левой части равна сумме правой части

        begin

            ListBox1.Items.Add(sLev + ' - ' + sPrav);             //Добавляем в ListBox

        end;

    end;

end;

- создать обработчик события формы OnCreate

procedure TForm1.FormCreate(Sender: TObject);

begin

    Edit1.Text := '123';                                 //Инициализируем значение левой части билета

end;

Нравится