Код
Выход
Проблема в функции calcdrag, где в цикле for уравнение для сопротивления дает нольнесмотря на то, что ни одна из переменных в уравнении не равна нулю.
Здесь вы делите 2 целых числа: double D = (1 / 2)..., и это дает вам ноль.
double D = (1 / 2)...
Попробуйте double D = (1.0 / 2)...
double D = (1.0 / 2)...