<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644
Системное по- необходимоя часть по, без которой компьютер не может работать. (входит: опепационная система, драйверы, утилиты)
прикладное по- состоит из программ, с помощью которых пользователь решает информационные задачи ( входит: офисные приложения базы данных сетевые приложения обучающие программы энциклопедии игры программы переводчик)
системное программирования- предназначенны для создания всех видов программ. Инструмент для работы программистов.
3..................................................................................
Ну так-то вроде просто, уравнение.
Объем ролика W Мбит, при передаче каждые 6 бит превращаются в 8 бит.
Объем вырастает до 8/6*W = 4W/3 Мбит.
1-ая половина ролика, то есть 2W/3 Мбит, была передана со скор. V Мбит/сек.
2-ые 2W/3 Мбит были переданы со скоростью V+3 Мбит/сек.
Общее затраченное время T1 = 2W/(3V) + 2W/(3V+9) сек.
Если бы он скачал ролик с файлового сервера, со скоростью V-1,5 Мбит/с,
то объем ролика был бы W, потому что при файловой передаче нет преобразования каждых 6 бит в 8.
Затраченное время было бы T2 = W/(V-1,5) сек. И оно в 2 раза больше.
2*(2W/(3V) + 2W/(3V+9)) = W/(V-1,5)
Делим все на W, получаем
4/(3V) + 4/(3V+9) = 1/(V-1,5)
Избавляемся от знаменателей
4(3V+9)(V-1,5) + 4*3V(V-1,5) = 3V(3V+9)
Раскрываем скобки
12V^2 + 36V - 18V - 54 + 12V^2 - 18V = 9V^2 + 27V
Упрощаем до квадратного уравнения
15V^2 - 27V - 54 = 0
5V^2 - 9V - 18 = 0
D= 9^2 + 4*5*18 = 81 + 360 = 441 = 21^2
V1 = (9 - 21)/10 < 0
V2 = (9 + 21)/10 = 3 Мебибит в сек
переменные объявлены в области видимости функции if , а это значит , что когда функция завершает свое выполнение , все переменные из ее области видимости удаляются (то же и с циклами, и с функциями , и с классами и т.д.)
крч инициализируй нулями эти три переменные в начале программы