Вычислить значение функции

@mrserega · Регистрация: 05.12.2014

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

Помогите решить задание, учусь не на программиста, поэтому далек от этого

Вычислить значение функции R, исходные данные ввести с клавиатуры.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?R=\frac{cos(x-z)+arctg(y+2)}{ln(z/d)}$

Вывести результат на экран

Добавлено через 3 часа 47 минут
Спасибо что отредактировали, но там еще условия есть:

Если сумма трех различных целых чисел х, у, z меньше 10, то наименьшее из х, у заменить полусуммой двух других, в противном случае прибавить к каждому числу +10. Результаты вывести на экран.

@ighor · 05.12.2014, 22:32

Pascal

PROGRAM xyz;
VAR x, y, z, d, r :real;
BEGIN
writeln ('x,y,z,d=');
readln(x, y, z, d);
if (x+y+z)<10 then begin if x<y then x:=((y+z)/2) else y:=(x+z)/2 end
else x:=x+10 ; y:=y+10; z:=z+10 ;
r:=( cos(x-z)+ arctan(y+2))/ln(z/d);
writeln(r);
end.

@mrserega · 05.12.2014, 22:50 **[ТС]**

Спасибо

@mrserega 0 / 0 / 0 Регистрация: 05.12.2014 Сообщений: 2
		1
	Вычислить значение функции 05.12.2014, 22:01. Показов 1557. Ответов 2 Метки нет (Все метки) Помогите решить задание, учусь не на программиста, поэтому далек от этого Вычислить значение функции R, исходные данные ввести с клавиатуры. $https://www.cyberforum.ru/cgi-bin/latex.cgi?R=\frac{cos(x-z)+arctg(y+2)}{ln(z/d)}$ Вывести результат на экран Добавлено через 3 часа 47 минут Спасибо что отредактировали, но там еще условия есть: Если сумма трех различных целых чисел х, у, z меньше 10, то наименьшее из х, у заменить полусуммой двух других, в противном случае прибавить к каждому числу +10. Результаты вывести на экран. 0

@mrserega 0 / 0 / 0 Регистрация: 05.12.2014 Сообщений: 2
	05.12.2014, 22:50 [ТС]	3
	Спасибо 0

Вычислить значение функции

Решение