Главная » Файлы » Основные файлы сайта |
[ Скачать с сервера (208.9 Kb) ] | 20.10.2012, 14:55 |
Написать программу «Счастливый билет», которая позволяет суммировать все символы в левой части и в правой части билета, сравнивать полученные значения, совпавшие значения выводить в список. Левая часть билета определяется пользователем, а правая заполняется с помощью пользовательской функции. 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);
- создать обработчик события формы OnCreate procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text := '123'; //Инициализируем значение левой части билета end; Подпишись, чтобы получать свежие исходники!
Нравится | |
Просмотров: 6514 | Загрузок: 1314 | Рейтинг: 0.0/0 |
Другие примеры
Всего комментариев: 0 | |