Неужели для определения сечения необходима целая программа? И почему КПД перемножается с косинусом?
Ну, половина программы просто работать не будет.

Конечно, можно все и вручную просчитать. Возьмите двигатель, предложенный Roman3R -
Необходимо определить номинальный ток трехфазного асинхронного электродвигателя переменного тока, если Рн = 25 Квт, номинальное напряжение Uн = 380 в, номинальный коэффициент полезного действия ?н = 0,9, номинальный коэффициент мощности cos ?н = 0,8
засеките время и проделайте все, что делает программа вручную. Для разных длин трас, для разных способов прокладки, при разной температуре.
Roman3R уже ответил по поводу произведения косинуса и КПД, но я объясню несколько по иному.
Pэ=U*I*cos(fi) - это электрическая мощность.
Но на шильдиках двигателей указывают не электрическую мощность, а механическую мощность на валу - это удобно с точки зрения расчета механизмов и применения двигателей.
Pм=Pэ*?
Отсюда Pэ=Pм/?
и подставляем в формулу электрической мощности:
Pм/? = U*I*cos(fi) => Pм = U*I*cos(fi)*?
Во всех формулах cos(fi)*? идут "рука об руку", поэтому можно вводить их раздельно, а можно пользоваться сразу их произведением.