Кто шарить в паскаль? хелп, написал свой "невероятно сложный и полезный код" который, возводил в степень, но почему-то получаются не круглые числа, а какие-то дроби. например: = 24.999999999996 код: program stepen; uses crt; var Num1:Real; Num2:Real; Num3:Real; begin Repeat WriteLn('выведите основание!' ); ReadLn(num1); WriteLn('принято! Видите степень!' ); ReadLn(num2); Num3:= exp(num2*LN(num1)) ; WriteLn('ответ: ', num3); WriteLn('продожить?'); until num3 = 0; clrscr(); WriteLn('ответ 0') End.
сразу извинюсь за костыли, узнал о паскаль 3 дня назад.
вычисление степени числа через экспоненту - приближенное значение.
Надежнее делать через цикл. Например через рипит.
Делаешь num3 =1, а потом 2 раза повторяешь умножение на 5
6^10 например. 10 раз повторяешь умножение на 6