Как это записать на языке Pascal?
Что бы при вводе 25 не было NaN

212

304

Посмотреть ответы 2

Ответы на вопрос:

voVIK2008

Информатика

4,4(84 оценок)

NaN выводится, потому что — отрицательное число. И потом происходит извлечение корня из этого отрицательного числа.

Чтобы NaN не было, нужно передать положительное число в функцию Power(), а потом возвращенный результат сделать отрицательным. (Это сработает только для нечетных степеней корня)

Нужно немного изменить код:

if x > 5 then

begin

cosVal := cos(sqr(x));

if cosVal < 0 then

writeln(Power(abs(cosVal), 1 / 3) *-1)

else

writeln(Power(cosVal, 1 / 3));

end;

Fateev20067

Информатика

4,8(47 оценок)

Фонограф (от греч. φωνή «звук» + γράφω «писать») — первый прибор для записи и воспроизведения звука. Изобретён Томасом Эдисоном, представлен 21 ноября 1877 года.