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

@nick810 · Регистрация: 26.11.2016

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

Как это сделать на паскале?

Дано выражение

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> t=\sqrt{\frac{\cos ^2\pi r+k\cdot 10^{-2}}{\cos ^2\pi r+\left|\frac{m}{k} \right|}}<br />$

где m = ln cos πr, k - целое число, r, t, m - вещественные числа.

Вычислить значение выражения при

а) r = 0.07; k = 6
б) r = 0.63; k = -15

@Puporev · 26.11.2016, 16:25

Если m=ln(cos(pi*r)), то при r=0.63 m не определено, поскольку cos(pi*r)<0, ln не определен.

Добавлено через 4 минуты
А при допустимых значениях решается просто.

Pascal

function T(k:integer;r:real):real;
var m,x:real;
begin
m:=ln(cos(pi*r));
x:=sqr(cos(pi*r));
T:=sqrt((x+k*0.01)/(x+abs(m/k)));
end;
begin
writeln('r=0.07 k=6 t=',T(6,0.07):0:2);
writeln('r=0.33 k=-15 t=',T(-15,0.33):0:2);
end.

@nick810 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 4
		1
	Вычислить значение выражения 26.11.2016, 11:04. Показов 1225. Ответов 1 Метки нет (Все метки) Как это сделать на паскале? Дано выражение $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> t=\sqrt{\frac{\cos ^2\pi r+k\cdot 10^{-2}}{\cos ^2\pi r+\left\|\frac{m}{k} \right\|}}<br />$ где m = ln cos πr, k - целое число, r, t, m - вещественные числа. Вычислить значение выражения при а) r = 0.07; k = 6 б) r = 0.63; k = -15 0

Опции темы

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

Решение