...................3
...........................................................................................4
.................5
- ................................................7
......................................................................12
......................................................................................13
........................................................................14
............................................................................15
.
1.
f(x) x2 + sin(N*x) x*cos(x). f(x) .
2.
x2 + sin(N*x) x*cos(x), x<N
x*sin(xN ), x>=N. .
3.
: 10*N
f(x),
x=2
f(x) , x2 + sin(N*x) x*cos(x)
,
, =2, =3, =4 =10*N.
4.
n*n, n<=15. a(i,j)= i*j*sin(0.5*i*j). . , . ( ). .
.
Pascal - , , .
() . Pascal . , , , , Pascal , .
, : , , -, , , . . Pascal ISO- 1982 , , , .
|
|
. , 1970- ( , ), Pascal . 1980- Pascal , , , 1980- - .
Pascal, , Turbo Pascal Borland, Pascal DOS ( 5.5) Windows Delphi, .
Pascal, Turbo Pascal DOS Delphi Windows, - .
.
: step(x, N).
: v.
: N.
: N.
: N (step).
: f(x).
: pscV9.
: .
: .
: -.
: v(x, N).
: pscV9.
: : <N , >= N .
: x N.
: -.
: proizv(N).
: pscV9.
= [2..N*10].
: N.
: -.
: preobr(A, N).
: matr.
: 8 .
: , N.
: -.
: matr(A, N).
: pscV9.
: A.
: N.
: -.
: pscV9.
: .
:-.
: -.
-.