Free pascal, программа для расчёта колебаний маятника, где ошибся я? program uiuiu; var t, p, l, g: integer; begin write('введите длину l'); readln (l); p: =3.14; g: =9.81; t: =2*p*sqrt(l/g); writeln('t='; t); end.

Вформуле для вычисления периода т есть дробь(деление) и извлечение корня   переменная т не может принимать целый тип(то есть integer) также р и g  -не целый тип замените integer на real

парабола 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.

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

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

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 гбайт.