SOft1k

Помогите написать код пожалуйста :
Задание к работе. Вычислить таблицу значений функции
[LATEX]Y\left\{= \begin{matrix} F1 (x),X \in X1 \\ F2 (x),X \in X2 \\ F3 (x),X \in X3 \\ F4 (x),X \in X4 \end{matrix}\right.[/LATEX]
для целочисленных значений аргумента Х в интервале [Xn, Xk]. Множества X1, Х2, Х3 и Х4, а также функции F1, F2, F3, F4 заданы ниже. Варианты приведены в виде «Вариант mn».

Множества которые заданы
M = 0
Xn=-10
Xk=-15
x1= [-2,5]
x2=Четные числа из интервала [6,10]
x3=Нечетные числа из интервала [6,10]
x4=Остальные

Функции которые заданы
1 =ln x+1/2x-1
2 =x/tgx+sin2x
3 =x^2 + lnx
4 =x/1+tgx

Пример выполнения задания
Program lab
Type arg = –2..10;
Var x:arg; z:real;
Begin
for x := -2 to 10 do begin
case x of
0..3: z := sin(x)+1;
4..10: if x mod 2 = 0 then z := sqr(ln(x)) else z := exp(x-4);
else z := 2*cos(x)
end; {case}
writeln ('При x =',x:3,' z =',z:6:2)
end
End.

Vladimir_S

Сударь, сформулируйте, пожалуйста, условие задачи внятно и без ошибок, коих — куча:
1. Вероятно, Xk=+15, а не -15.
2. Логарифм не может иметь отрицательного аргумента, а у Вас предлагаемые интервалы для функций, содержащих логарифм, включают отрицательные значения.
3. Напишите как следует вид функций, расставив правильно скобки. Например, четвертую, видимо следует понимать, как x/(1+tg(x)). Так?
4. Что за параметр M, равный нулю? Непонятно.