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

@scarus · Регистрация: 11.04.2010

выглядит так:

sin(x+y), если x>y
S: { , где x=x0(hx)xk
cos(x-y), если x<=y y=yo(hy)yk

Помогите пожалста)

@Inadequate · 11.04.2010, 13:59

Delphi

x := x0 * hx * xk;
y := y0 * hy * yk;
if x > y then
  s := sin(x + y)
else
  s := cos(x - y);

только опиши переменные

@scarus · 11.04.2010, 14:05 **[ТС]**

а разве там не должно быть операторов for, repeat или whil ?

@Inadequate · 11.04.2010, 14:24

а я их тут не вижу. либо ты неправильно написал название темы, либо ты неполное задание запостил. Тут простой условный оператор без всяких циклов.

@scarus · 11.04.2010, 14:34 **[ТС]**

ну в таком случае огромное спасибо

@scarus 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 18
		1
	Вычислить значение выражения 11.04.2010, 13:23. Показов 1294. Ответов 4 Метки нет (Все метки) выглядит так: sin(x+y), если x>y S: { , где x=x0(hx)xk cos(x-y), если x<=y y=yo(hy)yk Помогите пожалста) 0

@scarus 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 18
	11.04.2010, 14:05 [ТС]	3
	а разве там не должно быть операторов for, repeat или whil ? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	11.04.2010, 14:24	4
	а я их тут не вижу. либо ты неправильно написал название темы, либо ты неполное задание запостил. Тут простой условный оператор без всяких циклов. 0

@scarus 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 18
	11.04.2010, 14:34 [ТС]	5
	ну в таком случае огромное спасибо 0

Решение