// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var F:real->real:=x->2*x*x-6*x+8; var a,b:real; Write('a b= '); Read(a,b); Writeln('Min=',Range(a,b,9).Select(x->F(x)).Min) end.
Пример a b= -2 6 Min=3.50617283950617
2. Решение "по-школьному" ("дедушкин метод")
function F(x:real):real; begin F:=2*x*x-6*x+8 end;
var a,b,y,h,min:real; i:integer; begin Write('a b= '); Read(a,b); h:=(b-a)/9; min:=F(a); for i:= 1 to 9 do begin y:=F(a+i*h); if y<min then min:=y end; Writeln('Min=',min) end.
Давайте посчитаем скорость передачи без сжатия:
Объём файла: 60Мб
Скорость передачи: 222бит/сек
Для начала переведем 60мб в биты:
60*1024 = 61440 кбт
61440*1024=62914560 байт
62914560*8=503316480 бит
А теперь посчитаем за сколько времени передастся файл без сжатия:
503316480/222=2267191,35 секунд
Отлично, теперь получим размер сжатого файла:
503316480*0,7=352321536 бит
А передастся файл за:
352321536/222=1587033,95 секунд
Но мы не учли скорость архивации и разархивирования:
1587033,95 + 15 + 7 = 1587055,95 секунд
Ну и видно, что файл даже с временем на сжатие будет передан быстрее.