, . , , , . , , (, ).
( ), . .
, , : [],
( , , ),
,
.
().
.
, -, , 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.