Программа вычисления функции y заданной математической формулой

[kalugin19]

67.PNG


вот код
хуйня.jpg

[ZX Spectrum-128]

Значит, под корнем квадратным отрицательное число, скорее всего.

[type_Oleg]

X у вас в чем ? В градусах или радианах?
Функция sin понимает аргумент, как угол в радианах.
Например, при x=1 : sin(99)=-0,99921 ; получается корень из отрицательного числа.

Непонятно, какая у вас область определения функции Y.

[kalugin19]

помогите правильно решить это задание

[type_Oleg]

Так что в задании сказано про X - градусы или радианы?
Попробуйте добавить:

..
 Readln(x);
 x:=x*PI/180;
..

[kalugin19]

там ничего не сказано, в том то и дело

Сообщение от type_Oleg

Попробуйте добавить:

..
 Readln(x);
 x:=x*PI/180;
..

все равно ошибка

[type_Oleg]

Сообщение от kalugin19

все равно ошибка

При каких значениях X ?
Например, при X=0 должно быть все в порядке. Y=0
Хотя я не проверял, мне лень переписывать, вы же картинку представили вместо текста.

[ViktorR]

1. Внимательно посмотри на свой код
Это не верно:

y := sqrt(sin(i)*(x+y));

Должно быть:

y := sqrt(sin(i*(x+y)));

2. Поэкспериментируй с подбором X.

Или просто используй - sqrt(abs(sin(...))

Как-то так, ...