Помогите пожалуйста с задачами.(Pascal)

[Rus32]

Помогите пожалуйста еще несколько задач решить.))))))

1.Решить задачу, организовав итерационный цикл. Вычислить длину кривой на участке xЭ[0,4], если она задана уравнением:y=x^3/2(x в степени три вторых) . Вычисления произвести с точностью eps=10^-3, 10^-2, считать точным значением 9,073415289388. Определить, как изменяется число итераций при изменении точности.

2.Написать программу на обработку одномерного массива. Определить число инверсий в массиве из 40 целых чисел (инверсия - это пара элементов, в которой большее число расположено слева от меньшего).

3.Решить поставленную задачу, используя средства управления вводом/выводом Турбо Паскаля. Дан массив литер L(8,6,4). Вывести его элементы на экран строками по 12 литер в виде параллелограмма.

Заранее благодарен.

[Хыиуду]

2.
inverces:=0;
for i:=1 to 39 do
if a>a[i+1] then inc(inverces);

[MorS]

Здравствуйте. Помогите, пожалуйста, решить задачи
1.Дано действительное число а. Вычислить f(x), где f - периодическая функция, период которой равен 2. На отрезке[-1;1] функция f(x) совпадает с функцией, график которой изображён на рисунке. На рисунке изображён график, состоящий из двух функций: 1) x+1, 2) 1-sqr(x)*x.
Непонятно как сделать, если заданы 2 функции, а не одна!!!!! Заранее спасибо!