За денежку)))

[Sprat]

Ребята помогите. Я понимаю глупо звучит, но у меня есть на WM 11,32 руб Переведу сразу же (укажите счёт). Помогите решить задачу (не когда не работал на Паскале, а тут перевёлся с другого института)

Написать программу вычисления функции F(x), где аргумент принимает значения: -8, -4, -1, 0, 1, 4, 6, 10.
F(x)= 2*a*Sqrt(5-4*b*x)+3/2-a*Sqr(x)
Если а=0,5, b=0,2

[misher]

Program ona;
uses CRT;
var a, b, f : real;
i  : integer;
 const X: array[1..8] of integer = ( -8, -4, -1, 0, 1, 4, 6, 10);
begin
a:=0.5 ;
b:=0.2;
for  i:=1 to 8 do write (X[i]: 8); // выводим массив
writeln;
for i:=1 to 8 do begin f:=2*a*Sqrt(5-4*b*X[i])+3/2-a*Sqr(X[i]);
write (f:8:2);
end;
end.

Откомпилировал, запустилось, но при х=10, получается корень с отрицательного числа. Если надо могу добавить, что не существует...Делать?

[Sprat]

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

Program ona;
uses CRT:
var a, b, f : real;
i  : integer;
 const X: array[1..8] of integer = ( -8, -4, -1, 0, 1, 4, 6, 10);
begin
a:=0.5 ;
b:=0.2;
for  i:=1 to 8 do write (X[i]: 6); // выводим массив
for i:=1 to 8 do begin f:=2*a*Sqrt(5-4*b*X[i])+3/2-a*Sqr(X[i]); 
write (f:6:2);
end;
end.

Компилятора нету под рукой, так что денюжки не надо)

Большое спасибо!!!!!! Бывают добрые люди на этом свете!!!!!!!!!!!!!!!!!!!!!

[misher]

Я сообщение отредактировал, там пару ошибок)... Чуть не забыл - это Pascal ABC.