Ответ под номерам Б, я так считаю
Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
По формуле
<span>где D – частота дискретизации (Гц), T – время звучания или записи звука,
I - разрядность регистра (разрешение), n - количество каналов.
</span>Дано:
Бит памяти(округленно в меньшую сторону)
D = 44100 (Гц)
I = 16 (бит)
<span>n = 1 - сколько каналов аудио-файле?
</span>T - ?
(Сек)
P.S. Рассчитано для одного канала.
Program kvur;
var a,b,c,d: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
writeln('D=b*b-4*a*c=',d);
if (d>0) then begin
writeln('D>0 => уравнение имеет 2 действительных различных корня ');
writeln('x1= ',(-b+sqrt(d))/(2*a));
writeln('x2= ',(-b-sqrt(d))/2*a);
end else if (d=0) then begin
writeln('D=0 => уравнение имеет 2 совпадающих корня');
writeln('x1=x2=',-b/(2*a));
end else writeln('D<0 => уравнение не имеет действительных корней');
end.
Потому что операнды подобных функций всегда должны быть вещественными, то есть числа с плавающей точкой. Это связано с тем, что существует несколько экземпляров перегруженных функций, соответствующих списку аргументов.