Відомо таке співвідношення ідеальної ваги та зросту людини за віком: від значення зросту людини в сантиметрах беруться останні дві цифри; якщо вік людини до 25 років, то її вага має становити на 5 кг менше від одержаного двоцифрового числа, для людей від 25 до 45 років — дорівнювати цьому двоцифровому числу, а для старших за 45 років — двоцифрове число потрібно збільшити на 5. У вибраному самостійно середовищі програмування розробіть проект Ідеальна вага, у якому користувач вводить у текстове поле свій зріст у сантиметрах та вагу, обирає діапазон віку, до якого він належить. Після натиснення кнопки запуску проекту в текстовому полі чи вікні повідомлення отримують висновок: вага ідеальна, надлишкова вага, недостатня вага.
Створюємо інтерфейс
Зріст вводимо в Edit1, вагу в Edit2, обираємо вік в RadioButton1- RadioButton3, висновок про вагу виводимо в Label5.
Програмний код:
var
Zrist,Zifri,Vaga,iVaga:integer; - Zrist (зріст) ,Zifri
(останні дві цифри зросту) , Vaga (введена вага),
iVaga (обчислена ідеальна вага) – змінні
begin
Zrist:=strtoint(edit1.text);
Vaga:=strtofloat(edit2.text);
Zifri:= Zrist mod 100; - беремо останні дві цифри від зросту
if RadioButton1.checked=true then
iVaga:=Zifri-5
else if RadioButton2.checked=true
then iVaga:=Zifri
else iVaga:=Zifri+5;
Якщо встановлений перемикач RadioButton1, то ідеальна
вага обчислюється для до 25 років, інакше для 25-45, інакше для понад 45
if Vaga<iVaga then
Label5.caption:='Недостатня вага'
else if Vaga>iVaga then
Label5.caption:='Надлишкова вага'
else Label5.caption:='Ідеальна
вага';
якщо вага менше ідеальної, то виведення недостатня,
інакше якщо більша - надлишкова,інакше ідеальна
end;
Робота програми:
Немає коментарів:
Дописати коментар