Звук длительностью 3 минуты оцифрован с частотой 11000 гц. разрядность кодирования - 16 бит. определите размер полученного файла в мбайтах. результат округлите до двух цифр после запятой.
var a,b,x,z,sra,srg:real; begin writeln('Введите 4 числа'); read(a,b,x,z); sra:=(a+b+x+z)/4; srg:=power(a*b*x*z, 1/4); writeln('Среднее арифметическое этих чисел =',sra); writeln('Среднее геометрическое этих числе =',srg); end.
Задача №2
var a,b,sra,srg:real; begin writeln('Введите 2 числа'); read(a,b); sra:=(a+b)/2; srg:=power(a*b, 1/2); writeln('Среднее арифметическое этих чисел =',sra); writeln('Среднее геометрическое этих числе =',srg); writeln('Модули этих чисел a=',abs(a), ' b=',abs(b)) end.
Задача №3
var a,b,c:real; begin writeln('Введите длину катетов и гипотенузы соотвественно'); read(a,b,c); if a=0 then a:=sqrt(sqr(c)-sqr(b)); if b=0 then b:=sqrt(sqr(c)-sqr(a)); if c=0 then c:=sqrt(sqr(a)+sqr(b)); writeln('Площадь треугольника =',a*b*0.5); writeln('Периметр треугольника =',a+b+c); end.
Все в паскале: 1. Формула пути S=V*t,V=S/t; Значит программа имеет вид var s, v, t:integer; begin writeln('Введите путь и время'); readln(s, t); v:=s/t writeln('ответ: V=', v); end. Все остальное по анологии
Во 2 и 3 y:=/формула в условии/ и выводишь у В 4, воспользуйся формулой площади S=a*b (a и b - ширина с длинной) В 5 a=P-2*b (а основание, b бок сторона) В 7 o=(a+b+c)/3 (о - ср., а, b, c - число в классах) 8. var a, b:integer; begin writeln('Введите числа'); readln(a, b); writeln('Сумма=', a+b); writeln('Разность=', a-b); end. В 9 как 8, только вместо + и - надо * И /
11000 Гц = 11*1000=11*125* 2^3 (1/cекунд)
16 = 2^4 бит
Размер файла=
11*125*45*2^9 бит =11*125*45 /(2^14) Мбайт =61 875/16384≈
≈≈3,78 Мбайт