Паскаль, Детальна інформація

4. Текст основної програми.

Program Kurcova;

Vses Student, Crt;

Const h=0.1; V=1,4; u=8;

Var i, j: integer; x,y: ovmt: Zna, r,g,1: rca 1;

p, t: real:

a: ovmt;

Function F(x: real):real;

Begin

F: = a[0]+a[1] \x2219 x+a[2] \x2219 Sgr(x)+a[3] \x2219 Exp(3 \x2219 1 n/x);

End;

Function Fun(x: real):real;

Begin;

Fun: = F9x) / (Exp / x) -1,2);

End;

Function Itg (A,B:real; N: integer;

Fun: Fun I ): real;

Begin

t: = 0; p: = A;

tor j: = 1 to N-1 do begin p: = p+h;

t: = t + Fun (p); end;

Ftg: = h (t+(Fun (A) + Fun (B)) / 2);

End;

Begin

C1 r Scr;

For i: = to 12 do begin

write (‘x[‘,i,’] = ‘); read (x[i]);

write (‘y[‘,i,’]=’); read (y[i]);

End;

ATZF (12, 3, x, y, a, i);