Hi

Please, help me with this one:

Program Eyler;

Uses

Crt;

Const

H=0.1;

Var

X,y:array[0..100] of real;

I:integer;

Function f(x,y:real):real;

Begin

F:=0.218*(x*x+sin(1.6*x)+0.718*y);

End;

Begin

Clrscr;

For i:=0 to 9 do

Begin

X[0]:=0.2; y[0]:=1.2;

X[i+1]:=x[i]+h;

Y[i+1]:=y[i]+f(x[i],y[i])*h; {Eiler's formula}

Writeln (‘x[‘,I,’]=’, x[i]:3:2);

Writeln (‘y[‘,I,’]=’, y[i]:3:2);

End;

Readln;

End.

Results

Х[0]=0.20 y[0]=1.20

Х[1]=0.30 y[1]=1.29

Х[2]=0.40 y[2]=1.40

Х[3]=0.50 y[3]=1.52

Х[4]=0.60 y[4]=1.65

Х[5]=0.70 y[5]=1.79

Х[6]=0.80 y[6]=1.95

Х[7]=0.90 y[7]=2.12

Х[8]=1.00 y[8]=2.31

Х[9]=1.10 y[9]=2.52

Х[10]=1.20 y[10]=2.75

Thanks.