.


:




:

































 

 

 

 





, . , , , . , , (, ).

( ), . .

, , : [],

( , , ),

,

.

().

.

, -, , type. ,

 

type

tX=array[Byte] of 1..9;

tY=array[-2..2] of Real;

 

- tX 256 , 1..9, 0 255;

- tY Real 5 ,

2, -1, 0, 1, 2.

- var. ( ), , . ,

 

var

X,Z:tX;

Y:tY=(1.2, 4.2, -5.1, 4.4, -1.5);

 

X Z tX, Y tY Y[-2] = 1.2, Y[-1] = 4.2, Y[0] = -5.1, Y[1] = 4.4, Y[2] = -1.5.

, , . , var , , - .

, . , .

, , , , . X, - , , 0 255. , 9 , N , N<9.

, :

(20) , , 20 .

(N), N<=20 , , N .

, .

. Y y=sin x X - . dX X0.

 

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

type

tMas=array[1..10] of Real;

var

i:Integer;

X0, dX:Real;

X, Y:tMas;

begin

Write(' X dX: ');

ReadLn(X0, dX);

for i:=1 to 10 do

begin

X[i]:=X0;

Y[i]:=Sin(X0);

X0:=X0+dX;

end;

for i:=1 to 10 do

WriteLn(X[i]:10:4,Y[i]:10:4);

ReadLn;

end.





:


: 2016-11-23; !; : 353 |


:

:

- - , .
==> ...

1961 - | 1912 -


© 2015-2024 lektsii.org - -

: 0.011 .