Розробити у середовищі програмування Lazarus код до програми: Відомо таке співвідношення ідеальної ваги та зросту людини за віком: від значення зросту людини в сантиметрах беруться останні дві цифри; далі зі діапазонами віку:
- якщо вік людини до 25 років, то її вага має становити на 5 кг менше від одержаного двоцифрового числа;
- для людей 25-45 років - її вага має дорівнювати одержаному двоцифровомучислу;
- для старших за 45 років - двоцифрове число має бути більше на 5.
Має бути 3 текстові поля (Edit), в які користувач вводить показники ваги і зросту і в який виводиться результат, і 3 кнопки (Button) з назвами "До 25", "25-45", "45 і більше". У кожній кнопці свій код, який при натисканні опрацювує інформацію, залежно від діапзону віку. Результат має бути у вигляді тексту: "Ідеальна вага", "Недостатня вага" чи "Надлишкова вага".
Приклад кнопки "До 25" прикріпляю. Зверніть увагу - у коді є коментарі. Вони пишуться після подвійного слешу ( // ), якщо коментар короткий і у фігурних дужках ( { } ), якщо коментар на декілька рядків. У своєму коді також прописуйте коментарі до кожного рядку коду!
Скиньте проєкт
var
i, j, n, len, rem: integer;
a: array[1..200] of byte;
begin
write('Введите число: ');
read(n);
len := 1;
a[1] := 1;
for i := n + 1 to 99 {100} do
begin
for j := 1 to len do
begin
rem := a[j] * i + rem;
a[j] := rem mod 10;
rem := rem div 10;
end;
while rem > 0 do
begin
inc(len);
a[len] := rem mod 10;
rem := rem div 10;
end;
end;
writeln('Произведение чисел из интервала (', n, '; 100): ');
for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000
2) файлы на диске хранятся в древовидной системе каталогов, начиная от корневого каталога обозначенного буквой диска
3) редактировать, создавать, удалять, копировать, вырезать, вставить, переименовать, поменять атрибуты, права, владельцев и тп
4) вопрос не ясен.
5) действие по умолчанию, то что происходит если дважды кликнуть на объект