Не сходится с ответом...

[Paul Oakenfold]

http://pic.co.ua/ru/view/01e8f7c415b...5873ff682f552/
там вторая задачка... на паскале расписать... но ответ для проверки не сошёлся...

program paul_oakenfold;
var
y,a,c,x,m : real;
flag : boolean;
begin
write ('a= '); readln (a);
write ('c= '); readln (c);
write ('x= '); readln (x);
flag:=false;
if (a>0) or (cos(c)<>0) or (sin(3*x)<>0) then
begin
flag:=true;
m:=4*sqr(cos(5*sqr(sin(x))))*cos(5*sqr(sin(x)))*co s(x)/
(5*sqr(sin(3*x))*sin(3*x))-4*sqrt(a)/(5*sqr(sqr(sin(c)/cos(c)))*
sin(c)/cos(c))
end;

if flag and (m>0) then
y:=3*abs(sqr(a)-5*sqr(sin(sqr(c)))/sqr(cos(sqr(c)))*sin(sqr(c))/cos(sqr(c)))
+sqrt(m);

write ('a c x y'); writeln;
write (a:0:1,' ',c:0:1,' ',x:0:1,' ',y:0:4); writeln;

readln
end.

Где я допустил ошибку? Подскажите пож.

[Sazary]

У меня картинка не открывается.
Подозреваю, что неверная ссылка.

[Serge_Bliznykov]

Paul Oakenfold,
1) Вы уже второй раз создаёте эту тему...
2) картинку прикладываю (я её взял из прошлого поста, в данной теме она действительно не открывается) и, на будущее, картинку неплохо было хотя бы немного обрезать/сжимать...
3) у меня ответ тоже не сошёлся (получилось 32 с хвостиком..)!
подозреваю, что проблема несовпадения c контрольным примером в том, что по разному задаются параметры тригонометрических функций - в радианах или градусах... (хотя, исключить возможность опечатки тоже нельзя... ;-)

собственно, задание:

[Sazary]

Serge_Bliznykov Спасибо за задание )

Попробовал перевести x и c в градусы

x:=x*180/pi;
c:=c*180/pi;

и в радианы

x := x*pi/180;
c := c*pi/180;

Ответы не сходятся.
Думаю, действительно опечатка.

[Stilet]

А мож это задачка с подпредвывертом.
Мож правильный результат как раз в том чтоб показать что представленный ответ не верен.
Такими любят кормить на олимпиадах, и ведь попадается больше половины на эту шутку

[Paul Oakenfold]

Да нет, это не с олимпиады, простая домашка...)))