Построить блок-схему (используя цикл k = f^5 при f = exp^x+1. нужно построить программу и подпрограмму.

Sub iter()       dim s as double, pi as double, e as double, a as double       dim i as long, znak as integer, k as long       e = inputbox("введите значение eps")       pi = 4 * atn(1)       s = pi       i = 2       znak = 1       k = 0       a = tan(pi / (2 * i))       do while a > = e               s = s + znak * a               i = i + 1               a = tan(pi / (2 * i))               znak = -znak               k = k + 1       loop       msgbox "сумма равна " + str(s) + ", количество слагаемых " + str(k) end sub

3,78 Мбайт

Объяснение:

I = t * f * i * k, где  

I - информационный объём аудио файла (размер файла, содержащего запись звука)

t - общая длительность звучания (секунды)

f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)

i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения)

k -  количество каналов записи (1 - моно, 2 - стерео и т.д.)

Дано:

t = 1 мин = 60 сек

f = 22 000 Гц

i = 24 бита

k = 1 (т.к. другого не указанно)

Найти:

I

I = 60 * 22 000 * 24 * 1 = 31 680 000 бит = 3 960 000 байт = 3 867,1875 Кбайт ≈ 3,78 Мбайт

1 мин = 60 сек

1 байт = 8 бит

1 Кбайт = 1 024 байт

1 Мбайт = 1 024 Кбайт