alinkalapko049
25.02.2020 00:56

Розробити у середовищі програмування Lazarus код до програми: Відомо таке співвідношення ідеальної ваги та зросту людини за віком: від значення зросту людини в сантиметрах беруться останні дві цифри; далі зі діапазонами віку:

- якщо вік людини до 25 років, то її вага має становити на 5 кг менше від одержаного двоцифрового числа;

- для людей 25-45 років - її вага має дорівнювати одержаному двоцифровомучислу;

- для старших за 45 років - двоцифрове число має бути більше на 5.

Має бути 3 текстові поля (Edit), в які користувач вводить показники ваги і зросту і в який виводиться результат, і 3 кнопки (Button) з назвами "До 25", "25-45", "45 і більше". У кожній кнопці свій код, який при натисканні опрацювує інформацію, залежно від діапзону віку. Результат має бути у вигляді тексту: "Ідеальна вага", "Недостатня вага" чи "Надлишкова вага".

Приклад кнопки "До 25" прикріпляю. Зверніть увагу - у коді є коментарі. Вони пишуться після подвійного слешу ( // ), якщо коментар короткий і у фігурних дужках ( { } ), якщо коментар на декілька рядків. У своєму коді також прописуйте коментарі до кожного рядку коду!

Скиньте проєкт

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
лика03481
07.10.2021 12:11
Оператор условия if
Оператор условия if является одним из самых популярных средств, изменяющих естественный порядок выполнения операторов программы.
Он может принимать одну из следующих форм:
•if <условие> then <оператор1>
else <оператор2>;
•if <условие> then <оператор>;
В переводе с английского языка данные форматы можно определить как:
•ЕСЛИ<условие>ТО<оператор1>ИНАЧЕ<оператор2>
•ЕСЛИ<условие>ТО<оператор>
Оператор условия if выполняется следующим образом. Сначала вычисляется выражение, записанное в условии. В результате его вычисления получается значение булевского типа.
В первом случае, если значение выражения есть True (истина) , выполняется <оператор1>, указанный после слова then (в переводе –“то”). Если результат вычисления выражения в условии есть False (ложь) , то выполняется <оператор2>.
Во втором случае, если результат выражения True, выполняется <оператор>, если False - оператор, следующий сразу за оператором if. Операторы if могут быть вложенными.
0,0(0 оценок)
Ответ:
ychenicaa7
06.05.2023 01:22
Ну раз значения случайные, тогда так.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  a, b, кол, сч: ЦЕЛ;
  массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
  ср_г: ВЕЩ;

УКАЗ
  кол := Приём.Число();
  Вывод.Цепь("^");
  a := Приём.Число();
  Вывод.Цепь(" ");
  b := Приём.Число();
  Вывод.Цепь("^");
  СОЗДАТЬ(массив, кол);
  ОТ сч := 0 ДО кол - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * (b - a + 1))) + a
  КОН;
  ср_г := 1;
  ОТ сч := 0 ДО кол - 1 ВЫП
    ср_г := ср_г * массив[сч]
  КОН;
  ср_г := Матем.степВВ(ср_г, 1 / кол)
  Вывод.ЧВещ("^%g", ср_г, 0, 0, 0)

КОН Задание.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота