протабулируйте функцию

[frol55]

ребята, кому не трудно помогите программку составить:
Задание: протабулируйте функцию:
y={в системе два уравнения:
e^x, 0≤x≤1
√(x*b), 1<x≤2
с шагом dx=0.2 где b-сумма всех элементов массива (A1,...,A10) вещественного типа. Сумму вычислите с помощью функции

[ZX Spectrum-128]

Вы же здесь http://programmersforum.ru/showthread.php?t=248949 написали, что разобрались. Покажите ваши попытки, подскажем.

[frol55]

в итоге типа того получилось: но не запускается и не работает

program p1;

type
TArr = array[1..10] of real;
PArr = ^Real;
var
A:TArr;
b:real;
x:real;
const
soA = trunc(SizeOf(TArr)/SizeOf(Real));
step = 0.2;

function SumOfArray(arr:PArr; size:integer): real;
var
i:integer; S:real;
begin
S:=0;
for i:=1 to size do begin
S:=S+arr^;
arr:=arr+1;
end;
SumOfArray:=S;
end;

function y(x:real; b:real):real;
begin
if x<0 then begin
halt(1);
end else if x<=1 then begin
y:=exp(x);
end else if x<=2 then begin
y:=sqrt(x*b);
end else begin
halt(1);
end;


end;

begin
A[1]:=94; A[2]:=20; A[3]:=1; A[4]:=2; A[5]:=-8;
A[6]:=-9; A[7]:=34; A[8]:=2; A[9]:=5; A[10]:=-4;
b:=SumOfArray(@A[1],soA);
x:=0;
while x<=2 do begin
writeln ('X=',x,' Y=', y(x,b));
x:=x+step;
end;
end.

[Vanta11a]

А зачем Вам указатели ("^")? Это требование преподавателя?
По идее все это решается значительно проще.

[frol55]

никаких требований, я сам не шарю ,просто в интернете искал и клепал себе программу сам, если можете помочь исправить, помогите