Всем привет, вроде тему создал в нужном разделе Сейчас нет возможности скачать Visual Basic, но очень нужно откомпилировать: Выручите пожалуйста PHP: Sub primer31_1() ' Имитация работы с использованием скидок n = 100000 min_zakaz = 1: max_zakaz = 40: zatr = 12: plata1 = 25: plata2 = 20 For i = 1 to n r = Rnd x = Int(min_zakaz + (max_zakaz + 1 - min_zakaz) * Rnd) if x <= 10 then prib = (plata1 - zatr) * x else prib = (plata2 - zatr) * x sumprib = sumprib + prib next i sredprib=sumprib/n MsgBox ("Средняя прибыль от выполнения заказа: " + Str(Round(sredprib,2))) End Sub В ответе должно получиться: 170,5 Скачать код: http://zalil.ru/30089035 и PHP: Sub primer31_2() 'Имитация работы без скидок n = 100000 min_zakaz = 1: max_zakaz = 20: zatr = 12: plata = 25 for i = 1 to n r = Rnd x = Int(min_zakaz + (max_zakaz + 1 - min_zakaz)*Rnd prib = (plata - zatr) * x sumprib = sumprib + prib next i sredprib = sumprib/n MsgBox ("Средняя прибыль от выполнения заказа: " + Str(Round(sredprib,2))) End Sub В ответе должно получиться: 136,55 Скачать код: http://zalil.ru/30089043
тупо откомпилить? этож некрасиво будет ну ща стой! n = 100000 min_zakaz = 1: max_zakaz = 40: zatr = 12: plata1 = 25: plata2 = 20 чо это? >_<
Это входные данные, я их изначально задал, но не объявил, т.к. последний раз Basic видел более 10 лет назад... Забылось всё Написал бы сам на Delphi/C++, но препод извращенец
http://zalil.ru/30090299 первый, вышло 170 http://zalil.ru/30090306 второй, вышло 137 буду через пару мин если что, но хз смогу ли за вб сесть
