Аноны, умоляю. Помогите написать программу в Pascal для вычисления этой формулы. Очень выручите
Формула: y=cos(1+cos(2+..+cos(39+cos40)..)).
>>138138106 (OP)Сколько лет, какой курс?
Бамп
>>13813830116 лет. 2 курс шараги. В школе паскаль не учили, на первом курсе вообще школьная программа была. Понимаю, это по-идеи элементарное, но если шаришь, то выручи плиз
>>138138424А хуле ты там 2 года делал? Элементарная хуйня на цикл и строку
>>138138588анук нипиши на любом яп свой цикл и строку, а то я думаю ты хуесос. я лично только через рекурсию могу.
>>138138588Подруг ибал, пока ты тут на двачика сидел))))
>>138138588Да вот месяц назад только начали учить его, так охуенно объясняют, что хоть не ходи на лекции и тупо смотри ютуб, и то понятней объясняют. Но сейчас сроки поджимают, так что хотелось бы, чтобы кто-то помог, а я уже потом сам разберу с этой темой. Поможешь?
>>138138829Держи, ебанашка
>>138139267На паскале добавь program q в начало и замени все {} на begin end
>>138139267Подожди, ты в теле цикла каждый раз приравниваешь hui новое значение?
>>138139267ну норм кароч, маладец, а я чета не додуплил что так можно
>>138139267в форе там не "меньше 40", а "меньше 39"быстроfix
>>138139267Это ведь не на паскале написано, да? В паскале косинусы вродь как-то по-другому записываются
>>138138106 (OP)> Помогите написатьНу хорошо, вот тебе подсказка: иди циклом в декремент.
>>138139768Не, это на пхп больше похоже. И редактор нотпад++. Как пить дать пхп.
>>138139768Может есть смысл подумать о смене специальности? Ты явно не ту выбрал.
>>138139768Ебать, ты что не можешь погуглить операторы паскаля?Алсо раз такой тред, есть одна программа, она должна считать определенное значение через 2 произвольных цикла, но еще есть ограничение по времени и когда циклы вводятся по 100к+ программа тупит. Как можно это дело ускорить? Голову сломал уже, пытался множить на 10,100..., но тогда в ответе ебанина была
>>138139882Васян не отличает синтаксис паскаля от синтаксиса пыхи. Зочем ты его пугаешь "декрементами" и "циклами"?
>>138140115Потому что он попросил помочь написать. Дебил же. Надо было написать как задание да создать тред программирования, бросая анону вызов. Что-то вроде "все вокруг такие фрилансеры за 300ккк в секунду, а код писать даже на паскале не умеют".
Правда не шарю в синтаксисе пхп. Молю, напишите в паскале
>>138138106 (OP)А вы слыхали? Эти кляти паскали наш null nil'ом обзывают!
>>138140306Держи, ебанашка
>>138140915>pascal>downto
>>138140915Эх... Ебать говнокод. А вот нормально написать, в декремент- слабо?
>>138141139Так то лучше.
>>138141157Я твои декремент в рот ибал
>>138141139>>138140915О, спасибо, ребят
>>138141286В бейсике была еще такая приблуда, как step. Можно было написать:For N=39 to 1 Step -1...Next
[code]from math import cosdef tvoya_mamka(i = 40): res = i for i in range(i, 0, -1): res = cos(res) res += i - 1 return resif __name__ == "__main__": check = cos(1 + cos(2 + cos(3))) check_res = res(3) print(check, check_res)[/code]
>>138141761А это какого языка синтаксис?
>>138141761Пиздос. Это питон такой пришибленный или это у тебя такой говно-стайл?
Нам в коллежде задали написать программу, вычисляющую косинус введённого угла (в радианах). Как сделать?
>>138142342Какой язык?
>>138142434Да любой можно. Само собой, всякие встроенные функции нахождения косинуса использовать нельзя
>>138142514> встроенные функции нахождения косинуса использовать нельзяУверен?Ну ищи тогда в гугле, че ты.
>>138138106 (OP)Чет не вижу в треде того чувака, который на хаскеле в 1-2 строчке пилит. Давайте уже, хочу обдрочиться.
>>138142846Я тебе на плюсах в 1 строчку могу.
>>138142917Не сможешь, там еще инклуды <cmath> и <iostream>. Да и плюсы это изи порно, я люблю фетиш.
>>138143038> подразумевая что нельзя без инклудов
>>138143202Ну давай, запили. Обосрешся на выводе, так как прийдется под все ОС пилить системные вызовы.
>>138142514> встроенные функции нахождения косинуса использовать нельзя
>>138138106 (OP)На пихоне. Алгоритм должен быть очевиден, под паскаль сам перепишешь.
>в 1 строчку
Прочитал тред и охуел: даже в такой элементарной задаче местные долбоящеры умудрились написать быдлокод. Им луп любую последовательность выдать может, но нет, головой думать не хочу, хочу 39 раз вычитать итератор из 39. Тьфу, блядь.>>138146596-хуй
>>138147351>2016>питон
>>138147351А меня от cos(40) дергает, дауны сука.float a = 0;int i = 40;do{ a = cos(a+i);}while(--i);
>>138147950Хм, а ведь ты прав! Впрочем это уже рюшечки, на скорость выполнения не влияющие.
>>138147950Хотя нет, у тебя на одну операцию присваивания больше получается.
>>138147950Похапешник набыдлокодил - все за ним повторили)))мимо-похапешник
>>138148371Всмысле? На первой шаге a = cos(0 + 40)На второмa = cos(cos(40) + 39)На последнем a = cos(вся та ебало что у ОПа на пике + 1)
>>138138106 (OP)http://ideone.com/sjWDku
>>138148668Ну, во-первых, ты присваиваешь переменной значение 0 при инициализации, это лишнее действие. Во-вторых, у тебя ещё и один лишний раз крутится цикл. С точки зрения красоты кода ты, возможно и прав, с этим спорить не стану, но с точки зрения производительности твой код хуже.
>>138149566толсто
>>138149765Что не так?
>>138149666Похапешник победил?)))
>>138149666Производительность на ++ будет больше, итераций такое же количество. Ты просто вынес одну итерацию за цикл. Присвоение 0 выполняется у тебя в цикле, более того на питоне там обьект список создается. + Мое решение хотя бы дает правильный ответ, потому что считает в градусах, а не радианах)
>>138149807Точки с запятыми перед эндами только пидарасы ставят.
>>138150217>2016>считать в градусах
>>138150271А в плюсах я переношу фигурную скобку на новую строчку!
>>138150217При чём тут язык вообще, если мы за количество операций дискутируем? Пусть оно хоть на АДА будет писано, это не важно, мы алгоритмы сравниваем. И спасибо, Кэп, что подметил вынесение одной операции за цикл, тебе всего-то и осталось заметить, что итератор вычисляется на один раз меньше.
>>138138106 (OP)На языке Богов:main = print $ foldr (\i a -> cos(i + a)) 0 [1..40]>3.4956512082617776e-2
>>138150731Ты че даун? Это один и тот же алгоритм, только по-разному записан. Какое блядь сравнение итераций? Какое отношение присваивание имеет к алгоритмам?Вот тебе тогда супер-быстрый алгоритм https://ideone.com/TNS20L
>>138146596ты тупой пидор
#include <iostream>int main(){int sum = cos(40);for(int i = 39; i >= 1; --i) sum += (i + cos(sum));std::cout << sum << std::endl;return 0;}на крестах.
каждый долбоеб в этом треде начал с x=cos(40)
>>138152182БЫСТРОФИКС#include <iostream>int main(){int sum = cos(40);for(int i = 39; i >= 1; --i)sum = (i + cos(sum));std::cout << sum << std::endl;return 0;}на крестах.
>>138152252Не пизди: >>138151108
>>138150731А ещё у него одно лишнее преобразование инта в флоат и сложение из-за лишней итерации получается
>>138152343БЫСТРОФИКС#include <iostream>int main(){int sum = cos(40);for(int i = 39; i >= 1; --i)sum = (cos(i + sum));std::cout << sum << std::endl;return 0;}на крестах.
>>138139768Что за шарага?
>>138152252Да, остальные вообще объебались с результатом.
>>138152735>hurr dur derp
>>138152735Мне кажется, что ты объебался с языком
>>138152735И с результатом объебался, даун.def calculate(i), do: calculate(:math.cos(i), i-1)
>>138153207Да, ты прав, спасибо за наблюдательность.
ОП, пиши так. Это точно правильно и не быдлокод. Максимально быстро работает, ибо нет никаких итераций. Оптимизация итерационных алгоритмов такая.#include <iostream>using namespace std;int main(){int y = cos(1 + cos(2 + cos(3 + cos(4 + cos(5 + cos(6 + cos(7 + cos(8 + cos(9 + cos(10 + cos(11 + cos(12 + cos(13 + cos(14 + cos(15 + cos(16 + cos(17 + cos(18 + cos(19 + cos(20 + cos(21 + cos(22 + cos(23 + cos(24 + cos(25+ cos(26 + cоs(27 + cos(28 + cos(29 + cos(30 + cos(31 + cos(32 + cos(33 + cos(34 + cos(35 + cos(36 + cos(37 + cos(38 + cos(39 + cos(40))))))))))))))))))))))))))))))))))))))))cout << "y = " << y << endl;return 0;}Мимо, второй курс программной инженерии
>>138153457>int yпидор
>>138153457Пора бы тебе уже узнать про препроцессор и кодогенерацию на чистом си.
>>138153457И в догонку на крестах можно все посчитать через шаблоны и их специализацию через рекурсию еще во время компиляции. А начиная с 11 есть constexpr.
>>138153808Медленно компилироваться будет, лучше так.
>>138154016Да. Это называется оптимизированная компиляция.
>>138153457>Максимально быстро работаетfinitfldzfld1fld st(0)fadd st(0),st(0)fadd st(0),st(0)fadd st(0),st(0)fld st(0)fadd st(0),st(0)fadd st(0),st(0)faddp mov ecx,40cycle:fld st(0)fadd st(0),st(3)fcosfxch st(3)ffreefincstpfsub st(0),st(1)dec ecxjnz cycleffreefincstpffreefincstp
>>138156236Без циклов надо делать. Компиляция тоже должна быть максимально быстрой.