Function sq(var x1,y1,x2,y2,x3,y3: real):real;
<span>begin
</span><span>// вычисляем площадь с помощью
</span><span>// векторного произведения
</span><span> sq:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2;
</span><span>end;
</span><span>// основная программа
</span><span>var x1,y1,x2,y2,x3,y3,x4,y4,s:real;
</span><span>begin
</span><span> write('координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: ');
</span><span> readln(x1,y1,x2,y2,x3,y3,x4,y4);
</span><span> s:=sq(x1,y1,x2,y2,x3,y3)+sq(x1,y1,x4,y4,x3,y3);
</span><span> writeln('площадь четырехугольника S = ',s);
</span><span>end.
</span>координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: 2 2 4 4 7 4 6 2
<span>площадь четырехугольника S = 7
</span>
итак, у нас есть файл, сжатый в два раза.
значит объем оригинального кода = 500кб * 2 = 1000кб
1000 кб = 1024000 байт или 8192000 бит (умножили на 8)
определим сколько бит приходитс на секунду записи:
8192000 бит / 30 сек = примерно 273066 бит в секунду. Известно что один отсчет занимает 16 бит, узнаем число отсчетов (частоту дискретизации)
273066/16 = примерно 17066 отсчетов в секунду.
Ответ: примерно 17.1 кГц
Вероятная система каталога:
D:\\
-Информатика\
--Контрольная.txt
-Млекопитающие\
--хищники\
.
Ход такой, исходный путь:
<span>D:\\
-Млекопитающие\
--хищники\
.
Поднялся на 2 уровня вверх, то-есть перешол в корень каталога(</span>D:\\ ), после чего перешол в папку (-Информатика\ ), потом находим файл (--Контрольная.txt).