( ) ( 1)







1



.

1-31

..






:

(1)

(1) . , . (2)

.

. (3)

(3) -e (1),

(3) (,

(1) :

, , .

(3) (1), :

(3), . , : - ;

.

(1) n,a,b,c,s,x, n ; a,b,c,s,x , .

(1) n=4. , :

[1]. .





program Progonka;


{$APPTYPE CONSOLE}


uses

SysUtils;


const

n = 4;


var

a:array[2..n] of real;

b,d:array[1..n] of real;

c:array[1..n-1] of real;

alpha, beta: array[1..n] of real;

i:integer;

x:array[1..n] of real;


begin


//

a[2]:= 3;

a[3]:= 4;

a[4]:= 4;

b[1]:= 5;

b[2]:= 7;

b[3]:= 7;

b[4]:= 8;

c[1]:=-1;

c[2]:= 1;

c[3]:= 3;


// -

d[1]:=-2;

d[2]:=13;

d[3]:= 4;

d[4]:= 4;


//

alpha[1] := -c[1]/b[1];

beta[1] := d[1]/b[1];


for i := 2 to n do

begin

alpha[i]:= -c[i]/(alpha[i-1]*a[i]+b[i]);

beta[i]:=(d[i]-beta[i-1]*a[i])/(alpha[i-1]*a[i]+b[i]);

end;


//

x[n]:=beta[n];

for i:=n-1 downto 1 do x[i]:=alpha[i]*x[i+1]+beta[i];


Writeln('Laboratornaya rabota 1');


//

writeln;

writeln(chr(186),' ',b[1]:0:0,' ',c[1]:0:0,' 0 0 ',chr(186),' ',chr(186),' ',x[1]:0:0,' ',chr(186),' ',chr(186),' ',d[1]:0:0,' ',chr(186));

writeln(chr(186),' ',a[2]:0:0,' ',b[2]:0:0,' ',c[2]:0:0,' 0 ',chr(186),' x ',chr(186),' ',x[2]:0:0,' ',chr(186),' = ',chr(186),' ',d[2]:0:0,' ',chr(186));

writeln(chr(186),' ','0 ',a[3]:0:0,' ',b[3]:0:0,' ',c[3]:0:0,' ',chr(186),' ',chr(186),' ',x[3]:0:0,' ',chr(186),' ',chr(186),' ',d[3]:0:0,' ',chr(186));

writeln(chr(186),' ','0 0 ',a[4]:0:0,' ',b[4]:0:0,' ',chr(186),' ',chr(186),' ',x[4]:0:0,' ',chr(186),' ',chr(186),' ',d[4]:0:0,' ',chr(186));


readln;

end.


















- .
, VIP-.
. .