Математический фокус на Delphi

Работа будет начинаться с проектирования формы проекта как у меня на рисунке:

Задаем имя на форме. В Object Inspection находим Caption и заполняем его названием Математический фокус. Активируем вкладку Additional и находим Static Text, на форме выделяем прямоугольник для ввода текста. В Object Inspection находим Caption и заполняем его: «Угадывание день рождения, номер месяца рождения и возраст», рекомендую Font поставить в значение 12 и fsBold=true. Напишем небольшое пояснение. Для этого вставляем поле Memo из вкладки Standard выбираем свойство Lines… и набираем «От суммы дня рождения и номера месяца отнимите ваш возраст. От суммы дня рождения и возраста отнимите номер месяца рождения. От суммы вашего возраста и номера месяца рождения отнимите число, обозначающее день рождения». В свойстве Scroll Barss активируем вертикальную полосу прокрутки ssVertical.

Далее нам потребуется из вкладки Standard три компонента Edit и располагаем как у меня на рисунке. К ним сразу же нам
понадобится 3 компонента Static Text из вкладки Additional. Устанавливаем их на форме
и в полях Caption прописываем названия: первое число, второе число и соответственно третье число.

Осталось установить еще 3 компонента Static Text из вкладки Additional. Устанавливаем их на форме и в
полях Caption прописываем названия как у меня на рисунке. Устанавливаем 2 кнопки с надписями: Вычислить и Выход. Все проектирование формы окончено. Если Вам понадобятся аккумуляторы для телефонов и гаджетов Вы можете купить их по оптимальной и доступной цене.  Займемся программированием.

Для кнопки Выход пропишем значение Close; для кнопки Вычислить: перед Begin надо прописать var a1,a2,a3,r1,r2,r3:SmallInt; а сам блок вычислений после Begin выглядит у меня так:

a1:=StrToInt(Edit1.Text);

a2:=StrToInt(Edit2.Text);

a3:=StrToInt(Edit3.Text);

r1:=(a1+ a2)div 2;

r2:=(a1+ a3)div 2;

r3:=(a2+a3)div 2;

Label4.Caption:=’День рождения: ‘ + IntToStr(r1);

Label5.Caption:=’Номер месяца рождения: ‘ + IntToStr(r2);

Label6.Caption:=’Ваш возраст: ‘ + IntToStr(r3);

Вот собственно и все. Сохраняем проект и запускаем. Тестируем.

Сам листинг этих двух кнопок, если не понятно:

procedure TForm1.Button1Click(Sender: TObject);

var a1,a2,a3,r1,r2,r3:SmallInt;

begin

a1:=StrToInt(Edit1.Text);

a2:=StrToInt(Edit2.Text);

a3:=StrToInt(Edit3.Text);

r1:=(a1+ a2)div 2;

r2:=(a1+ a3)div 2;

r3:=(a2+a3)div 2;

Label4.Caption:=’День рождения: ‘ + IntToStr(r1);

Label5.Caption:=’Номер месяца рождения: ‘ + IntToStr(r2);

Label6.Caption:=’Ваш возраст: ‘ + IntToStr(r3);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

. матиматический фокус угадывание возраста в лазарусе