Android- : play.google.com
->

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 [74] 75 76 77 78

16 PRIHT*

15 PRIHT sPRINT

20 INPUTBBEAHTE =51 <)

30 INPUTBBEAHTE M=KsBIM A<M,N),B<M)

40 for 1=1 M:F0R J=1 TO N

50 PRINT! 2.0! AI,J: IHPUT ft<bJ)

60 IF J=N THEH PRINTBBEAHTE BlUHPUT >

70 NEXT JsNEXT I

80 FOR J=l TO NSFOR K=J TO HsLETS=8sF0R 1=1 TO M

90 LETS=S+Aa,J>»A<bK)sNEXT lsLETC<K)=SsHEXT

100 LETC=0SFOR 1=1 TO M!LETC=C+A<b J>«B<:i>sNEXT I

118 FOR I=-J TO NtLETA<b-J>=C<I>sNEXT lsLETC(J)=CsHEXT J

120 LETACbi)=SQR:A<l»l))sFOR J=2 TO H

130 LETAi:b-J)=A:dlVA<lj.l>sNEXT .JsFOR 1=2 TO N

140 LETS=03FOR K=l TO I-lsLETS-S+ftCK,1)(,I)sNEXT

150 LETft<l»n=SQR(Aa,I>-S)!FOR J=I + 1 TO H

160 LETS=0!FOR K=l TO I-lsLETS=S+A<Kf , J)!HEXT

178 LETA<bJ)=<A<J»I)-S>/A<bn!NEXT JsNEXT 1

180 LEfC<l>=Ca>jft<l,l)sFOR 1=2 TO H

190 LETS=0:FOR K=1 TO I-l!LETS=S+A<Kj>i>*C:K>!NEXT

208 LETC<I>=:C<I>-S>/A<I,1)!NEXT I

210 LETC<N)=C<N)>:H,H)sFOR I=N-1 to 1 STEP -1

220 LETS=8sF0R K=l+1 TO NsLETS=S+A<bK)!(iC<K>sHEXT

230 LETC<I>=<C<I>-S>-A<bnsNEXT I

248 PRINT sFOR 1=1 TO H

250 PRIHT!2.8!X!=!F1.9!C<I)5NEXT IsEHIi

§ 5.7. =,5 VM.

Մ, -

= 0, - - [(+«£)] =

, ,

, ,/ d, (. -/-. 5.6). /1 = ,

1,-,-0</<0,. 5.7.

10 PRINT 15 PR 20 PRINT sPRINT

25 INPUT !« = 30 1 N=N!DIM A<N,H>/B<H>/C<N> 40 FOR 1=1 HsFOR J=l 50 PR I NT! 2.0- A1, Js INPUT A<bJ> 68 IF J=N THEN PRINTBBEAHTE BIs INPUT B<I> 70 NEXT JSHEXT I

eo FOR J=l TO NSFOR K=J TO HsLETS=05FOR 1=1 TO N

90 LETS=S+A<I»J)!iiA<bK>sNEXT lsLETC<K)=S!NEXT K.

100 letc=0SFOR 1=1 TO NsLETC=C+A<I, J>i«B<l):NEXT I

110 FOR I=J TO NtLETA<bJ)«Ca>sNEXT l!LETC<J)=C!NEXT J

120 LETP=SGR<T!(eNV2!F0R 1=1 TO N

130 LETA<l*I>=A<bl)+P!NEXT lsLETA<bl>=SQR<ftai. 1))

140 FOR J=2 TO NELETA<bJ)=ft<J,l>-A<bl)sNEXT J

150 FOR 1=2 TO N!LETS=0!FOR K=l TO I-l

160 LETS=S+A<K,I)!«A<KfI>ENEXT

170 LETA<bn=SQR<A<bI)-S)s.FOR J=l + 1 TO N

180 LETS=0eFOR K=1 to I~l!LETS=S+A<K/DskAIK* J)sHEXT

190 LETA<bJ)=<A<J,I>-S>-ACbI>sNEXT JshEXT I

200 LETC(l)=C<l)/A<bl)!FOR 1=2 TO N

210 LETS=08FOR K=l TO !-lsLETS=S+A<K,1><)5

220 LETC<l>=<C<I)-S)-A<bl5tNEXT I

230 LETt;<N)=C<N)>A<Ni.N)!FOR I=N-1 TO 1 STEP -1

240 LETS=0!FOR K=I+1 TO N!LETS=S+A<I,K>«C:K)sNEXT

250 LETC(I)=<C<r:i-S>/ft<bI>!NEXT I

260 PRINTPEWEHHE sFOR 1=1 TO N

270 PRINT!2.0!Xr=!F1.9!C<I>sNEXT IsEND



. n = N=3 1 = =\-\~

2x1- 2+ 2 = 5 + 7 12, 3x1+ 2x2- 3x3=-24.

,+ 2--X3=-12-3V2

=0,9790!3. =-4,226840 = 6,160861. =0 .

§ 5.8.

§ 4.4. f, (,) -50 200 RETURN.

5.8.

N .

2. N &t = T/N ( 7"=]), ti=hti x, = xo-bxcos (2jii) j=0. 1. 2, .... N.

3. . (), 1= (,).

4. , (t) ht , -

(y:-+yi) At =

sin Z V"

=--2 sin (Z (21-1)),=

= nk/N fe= 1, 2.....M.

5.

2 + Al+ ... +A

Kv =

m/Ai

le PRINT

15 PRINT

INPUT N=NsriIM X(;H)/F<N>

£5 =

30 PRINT

.35 FOR 1 = 1 N:PRrNT!2.ei! 1 =

40 INPUT Xa>sNEXT I

45 REM FC D=X<; >+FCI >

58 LETPa >=X<; 1 >+Xa >"2+Xi 2J"2-X(: 1 >-. 171875

68 LETF(:2=X<;+X(;l>*Xk2>-Xf>-.09375

200 LETS=0:FOR 1=1 TO H

218 IF ABS<Fa)-Xa>>>t THEH LETS=1

220 LETXaj=Fa>:HEXT I

230 IF S=l THEH 45

240 FOR 1=1 TO H:PRIHT!2.e!XI=!1.9!F<I> 250 NEXT I END

. ( 50 60) .

fi=xf-bx-x,+ 0,171875=0, i2=x,X2 -2-,09375 = 0.

/ = 2, E = £=!lO- , = 0,!7!875 ;2= 0,09375, X, =0,2491442164 2 = = 0,124686572 ( 3 ). . 5 .

§ 5.9.

(t) (). X (t) - -,

X (t) =xo-f cos at,

(t) X ( (t). (t) (. § 5.1).

1. , -

At (5.5) - (t).

5.9.

. y = f () , 240 RETURN END. 5.7 =. / = 20, M = 5, = -1 = 1 : =1,5; , = -1,98360468, /12 = = 0,4837056046; /1=-2,3725-""; /!,=

= -2,1710-

= -2,99625-10-" -

= 0,2438820645. «» At ( 180°).

§ 5.10. 16 {)

(), , , ,, , (). 255 , , (). () 16 , . 5.1.

.



18 20 PRINT V<X) 38 PRINT <:>=+5.0) 48 INPUT N=N8 58 INPUT =111 A<M>.-F<M)

68 INPUT =

? =1

80 FOR =6 M!LETA<K)=8!HEXT

LETX=X0+X1!&OSUB 2402LETV0=VsFOR i=i TO n8

100 1,=0+18;2#118>!£; 24esLETVl=V

lie FOR K=i TO MsUETZ=#PIi«K/-N8!LETri=Z*<2*I-l)

128 LETC=;Yl--V0>*SIH<Z>/-i;2:*2;/He>!LETA<K)=AK>-C#.SIK<B>sHEXT

138 LETAao=A<6) + ;V8+Vl>/-2.H9:LETV8=Vl!HEXT I

148 PRIHTCntKTP <>=+ MK«COS<k>:iJl>

158 PRIHT 0=>

166 PRINT

170 LETS=0!FOR =1 MsLETS=S+A(K>*ft<K>

188 PRINT!3.0! ftKIFl.5!=<)

198 NEXT IF ft<l>=0 THEN £18

200 PRINT =89<8~<>"£>5<)> 210 70

228 REM 248 (> 248 LETV=X*XsRETURN5ENB

1. ,, . , , i, :,- yi () -. , , y=W-\-Vx = 0, VC V .

- 3. -

. (=1,

2. () () , =0, ). - . - . 2.

fe = 0 -

{). - [) ON (),

{ - , =\, -,- , - -

. 5.1), - , k

R. - 5.10.

10 PRINT - V=F<X> 20 LETM=255!DIM X<M)»V<M>

30 PRIHTBBEaHTE X,V»C (C=l , C=8 )

40 LETjt=j+iaNPUT x<:j)ifV<j.>»csiF then

50 PRINT , =0 !«

60 INPUT V=F<X> =

65 LETXi=0sLETX2=e!l.ETVl=0sLETV2=8sLETP==8!lF =0 THEN 908

70 IF ==16 THEN INPUTBBEAHTE h-N

75 FOR 1=1 TO J!LETX=X<I)3LETY=Va>3ON<:200+10!iiK>

80 LETA=W!LETB=UsON<500+10*K>

90 PRINT.Fl.S! A=A B=B

95 PRINT R=R

100 INPUTBBEUHTE XfC<C=l 0 ) X,C

110 IF C=0 THEN 50

120 <700+10>

130 PRINTiFi.9! Y(X>=Ve60T0 100

200 REMfiHV«APH3HpyKilliHE

210 60T0 480

220 LETV=1-V!60T0 460

238 LETX=l/X!eOTO 400

240 LETV=X-V!GOTO 400

258 LETV=L6T<V>!60T0 406

260 LETV=L06«:V)s60TO 400

270 LETV=L6T<V)iG0T0 400

280 LETX=EKP<-K>5LETV=1.V!G0T0 408

290 LETX=L6T<X)SLETV=I.GT<:V)!60T0 488

300 LETX=L6T<K)!60T0 400

310 LETX=L06<X)!60T0 488

320 LETyslz-ysBOTO 488



0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 [74] 75 76 77 78



0.0082
.