Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
Var a: byte;
begin
writeln('Введите номер месяца:');
readln(a);
case a of
1, 2, 12: writeln('Зима');
3..5: writeln('Весна');
6..8: writeln('Лето');
9..11: writeln('Осень')
else writeln('Ошибка');
end;
end.
Частота дискретизации 44000 предполагает хранение 44000 отсчетов в секунду. При разрядности 16 бит = 16/8 = 2 байта, потребуется 44000·2 = 88000 байт для хранения информации за 1 секунду. А за минуту - в 60 раз больше, т.е. 60·88000 байт = 5280000 байт = 5280000/1024 Кбайт = 5156.25 Кбайт = 5156.25/1024 ≈ 5.035 Мбайт.
Тогда на диске объемом 700 Мбайт поместится примерно 700/5.035 = 139 минут записи.
Используй муактивити на касания мыши в скрипте.