Добрые Дяденьки програмисты! Помогите! (Паскаль)

[Impulsive]

Добрые Дяденьки програмисты! Помогите!

Во вторник уде сдовать! неделю мозг ламаю! В паскале слабовато! Помогите плиз!!!
=(((

#1

Программа. Напечатать график функции y=x*x-1 на отрезке [-1;2] с шагом 0,1.
Ось ОХ направить по вертикали вниз, а ось OY - по горизонтали вправо. В каждой строчке печатать "кусочек" оси ОХ (например, литеру I) и звездочку - в позиции, соответствующей очередному значению функции; ОY не печатать.



#2
Const n=100;
VAR x:array [1..n] of real;
Преобразовать массив x по следующему правилу (Xk - значение k-го элемента массива после преобразования):
* элементы массива расположить в обратном порядке



Помогите пожалуйста! Я знаю мир не без добрых людей!

[Impulsive]

=(( Не кто не поможет?

[Хыиуду]

2.
procedure swap(var x:real; var y: real);
begin
x:=x+y; y:=x-y; x:=x-y;
end;

for i:=1 to N div 2 do
swap(x,x[100-i+1]);