Январь 7th, 2018 
admin Работа будет начинаться с проектирования формы проекта как у меня на рисунке:
Задаем имя на форме. В 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;
. матиматический фокус угадывание возраста в лазарусе
Опубликовано в рубрике