function Pow(x, y: real): real;
var
PowTmp: real;
begin
if (x < 0) then
PowTmp := (-1) * Exp(y * Ln(Abs(x)))
else if (x > 0) then
PowTmp := Exp(y * Ln(Abs(x)))
else PowTmp := 0;
if not (odd(round(y))) then PowTmp := Abs(PowTmp);
if (y = 0) then PowTmp := 1;
Pow := PowTmp;
end;
Вот функция, приклейте, куда нужно:)
Файл - структура данных, распознаваемых ПК. Каталог - список файлов с указанием места хранения на винчестере.
Необходимо умножить количество всех символов на кол-во информации, которое занимает 1 символ.
I=N*i=20*4=80 бит или 10 байт
Вот вам блок-схема. по ней очень легко написать программу. если не сможете, обращайтесь)67
9 Кбатй = 73728 бит (кбайт=8192 бит)
73728/1536=48сек
512*48=24576бит=3072 байт ( 1 байт = 8 бит)