Паскаль

[irkarap]

Составить программу вычисления и вывода значений функции
f (x), при x <c, COS-3x
f (x), при c > x 0.6 /x+1/
для любых произвольных значений х и с.

[irkarap]

Пожалуйста помогите!

[Ol'ga_new]

Сообщение от irkarap

Составить программу вычисления и вывода значений функции
f (x), при x <c, COS-3x
f (x), при c > x 0.6 /x+1/
для любых произвольных значений х и с.

Разве не одно и тоже должно быть? Что-то с условием, где знак поменять?

[DoDge_VipeR]

if x>c then write(0.6*abs(x+1))
else write(cos(-3*x));