Вычислить абсолютное значение выражения;

@Анатолий! · Регистрация: 18.12.2012

Author24 — интернет-сервис помощи студентам

(tan(cos(sin(A+B)/(C+D))))-89ln|cosA|)/(cos(A+B)*sin(A-|B|)-41|A*N|)

где D-целая часть от деления A/B
C-дробная часть от деления A/B
N-случайное число от 0 до A

@Harlem · 14.03.2013, 09:01

Вот:

Pascal

write('Введите A,B: '); read(a,b);
n:=random(a)+1;
d:=a div b;
c:=a mod b;
k:=abs(sin((cos(sin(a+b)/(c+d))))-89*ln(abs(cosA))/(cos(a+b)*sin(a-abs(b))-41*abs(a*n))/cos((cos(sin(a+b)/(c+d))))-89*ln(abs(cosA))/(cos(a+b)*sin(a-abs(b))-41*abs(a*n)));
writeln;
write('Абсолютное значение выражения:  ',k);

Добавлено через 8 минут
Вот проверенное на компиляторе:

Pascal

var a,b,c,d,n:integer;
k:real;
...
 
write('Введите A,B: '); read(a,b);
n:=random(a)+1;
d:=a div b;
c:=a mod b;
k:=abs(sin((cos(sin(a+b)/(c+d))))-89*ln(abs(cos(A)))/(cos(a+b)*sin(a-abs(b))-41*abs(a*n))/cos((cos(sin(a+b)/(c+d))))-89*ln(abs(cos(A)))/(cos(a+b)*sin(a-abs(b))-41*abs(a*n)));
writeln;
write('Абсолютное значение выражения:  ',k);

@Анатолий! · 17.03.2013, 20:10 **[ТС]**

От души СПАСИБО!!!

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста

@Анатолий! 3 / 1 / 0 Регистрация: 18.12.2012 Сообщений: 35
		1
	Вычислить абсолютное значение выражения; 13.03.2013, 23:11. Показов 1134. Ответов 2 Метки нет (Все метки) (tan(cos(sin(A+B)/(C+D))))-89ln\|cosA\|)/(cos(A+B)sin(A-\|B\|)-41\|AN\|) где D-целая часть от деления A/B C-дробная часть от деления A/B N-случайное число от 0 до A 0

	17.03.2013, 20:10

Вычислить абсолютное значение выражения;

Решение