Найдите на компьютере не менее 5-ти текстовых файлов (расширение .txt) 2. Произведите их сжатие архиватором RAR в обычный и SFX-архив.
3. Зафиксируйте размер файла до сжатия и после него.
4. Вычислите коэффициент сжатия (отношение размера исходного файла к
размеру сжатого файла)
5. Повторите пункты 1-4 для графических файлов (расширение .bmp)
6. Повторите пункты 1-4 для графических файлов (расширение .jpg)
7. Повторите пункты 1-4 для звуковых файлов (расширение .wav)
8. Сведите полученные результаты в таблицу. Сделайте выводы о том, какие
файлы сжимаются лучше.
9. Напишите отчет о проделанной работе.
3. Содержание отчета.
Отчет должен содержать следующие разделы:
ответы на контрольные вопросы.
Результаты сжатия файлов в виде таблицы.
Выводы о проделанной работе.
Вот пример программы на паскале ABC:
var a:array [1..1000000] of integer;
b:array [1..10] of longint;
c:integer;
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n);
max:=0;
for i:=1 to 10 do
b[i]:=0;
for i:=1 to n do begin
a[i]:=random(10)+1;
write(a[i],' ');
b[a[i]]:=b[a[i]]+1
end;
for i:=1 to 10 do if b[i]>max then
begin
c:=i;
max:=b[i]
end;
writeln;
writeln('Чаще всего в массиве встречается число ',c)
end.
var A:array [1..40] of integer;
sa,s3,s10,k,i: integer;
begin
sa:=0;
s10:=0;
s3:=0;
k:=0;
writeln('исходные значения');
for i:=1 to 40 do
begin
A[i]:= random(21);
write(A[i],'')
end;
writeln;
for i:=1 to 40 do
begin
if A[i]mod 2<>0 then
begin
sa:=sa+A[i];
k:=k+1;
if A[i]<10 then s10:=s10+A[i];
if A[i] mod 3=0 then
s3:=s3+A[i]; //здесь было странное выражение
end;
end; //здесь
writeln('среднее арефмитическое нечетных чисел',sa/k:5:0);
writeln('сумма чисел, не превышающих', s10);
writeln('сумма чисел, кратных трем', s3);
End.