Как известно, автомобиль, изобретенный винтиком и шпун-тиком, работает не на бензине, а на газировке разных сортов. на одном литре лимонада он проезжает 120 км, на одном литре кока-колы — 100 км, на одном литре фанты — 150 км. цена одного литра фанты в цветочном городе — 3 монеты за литр, лимонада — 1 монета за литр, кока-колы — 2 монеты за литр. готовясь к путешествию, незнайка закупил 10 литров кока-колы, 5 литров лимонада и 10 литров фанты. винтик и шпунтик вместе купили 10 литров лимонада и 10 литров фанты. торопыжка — 5 литров фанты, 10 — кока-колы и 10 — лимонада. поэт цветик — 20 литров фанты. построить электронную таблицу, из которой будет видно: сколько всего литров горючего купил каждый из человечков, сколько ему это стоило и какое расстояние он может проехать на этом горючем; сколько всего было куплено горючего каждого вида всеми человечками вместе, сколько это стоило и какое расстояние можно проехать на этом горючем; сколько всего горючего всех видов было куплено всеми человечками и сколько оно стоило.

Смотри в файле ( решение

4дано

[v] информационный объём = 625 кбайт = 625 · 10³ бит

[i] глубина кодирования = 16 бит

[d] частота дискретизации = 32 кгц = 32 · 10³ гц

найти

[t]

решение

v = d · t · i · k ⇒ t = v / (d · i · k) = 625 / (32 · 16 · 2) = 0.6 секунды

5

800 · 600 = 480000 пикселей на экране,

480000 · 4 = 1920000 пикселей на четырех страницах,

1920000 · 24 = 46080000 бит для хранения цвета = 5,76 мбайт.

6

800 · 600 = 480000 пикселей на экране,

480000 · 24 = 11520000 бит для хранения цвета,

так как за 1 секунду меняется 30 кадров, а у нас 60 секунд, то

11520000 · 60 · 30 = 20736000000 бит = 2.6 гбайт.

парабола y=2-x^2=(√2+x)(√2-x) пересекает ось абсцисс в точках x1=-√2; x2=√2.

поэтому нужно проверять два условия: (x1 ≤ x ≤ x2) и (0 ≤ y ≤ 2-x^2)

с операторами select case это будет так:

x = inputbox ("введите x")

y = inputbox ("введите y")

select case x

case -sqrt(2) to sqrt(2)

_ _ select case y

_ _ case 0 to (2 - x^2) : msgbox ("попадает! ")

_ _ case else : msgbox ("y не попадает")

_ _ end select

case else : msgbox ("x не попадает")

end select

только проверь, как в твоей версии vb пишется функция квадратного корня. в некоторых версиях бывает sqr вместо sqrt.

на знаки подчеркивания _ не обращай внимания, это для выравнивания.

там пробелы должны быть, но сайт их съедает.