---

ffirt. Д' (юЗп. ІЇо&теь и dome взая?. чнб. У Ииё, м ifyjfa, Подпись и W 4Ж м#?У1 I I

) •w-^.-^iHt.^a.an^imvr гт.іі.-т^гйі^ .. _г...^ _г । _Г|^_.-,ТГПД]Л _•--—•_•• і.,- -7 ■_- -■- --

Стр,

ї for пмзтер іти ио 8ti, пмгьті/

р FOR K:«1STSP iUKTlk юэв

J *••*» '****'»'

-і begin

Іі ""1 тттю

FOR ІЇМЗТЕР 1UNTXL N00 FOR SBMSTRF 1UNTIL N99

«"«>• •«**»«!' - a*. 4»Чр^ <

ІРЛжГ >» THEN ОСЬJn«8tbOXM

ELSE ЬГІіЗМ«ВНіЭ]; «a - .

MPT5UC_fE?,£, йН .

MATRlBrBrRtN);

Ей» J

H«Y«10S4;

E«S MATRIX?; «»**•*■

PROCEDURE &Y(T₍R,B,C,O'flM,8M,CM,pM,t,N,M);

REAL ТІ INTEGER: N_tM;4R(UU Л, Є. С, £»_c .TK, ftM,0«,S;

Etou Integer Пз,k*l;real ер«;ер&:»_п»то;

3E61N RftRAV a₍M1O«LlOti:Nti:NU

FOR i:«1&TR9 1#*TU ное FOR 5:»1STEP 1UHTIL «DO an>3J!«Afl,3i; *>«W- -^<о.в₽е£» ***«,«». _№«v*^ nfpiww «Р*

ІЯ WMNVERT£K_sE?S_f Й) jMATfUG^B» S_f ft},’

M/tTRexPcStMiO'Lio^NBMATMiiata'afHKiumQhc.S'Nj;

FOR i:>1$TEF 1UHTXL N90 FOR 3J«1ST£P lUNtlL N00 stir3i:«sri,3]*MiO(i_t3i;

FOR I : »1STEP fUNTn «90 FOR 3:<И$ТЄР ІОИТїі, МОЙ

ВЕсГМ StJ»N*3i:«0;F0R Kt«1#TgP IVWTlL KPO •*l»**®- **«b. **.V»«*№ «■«>

Sn,M*31|.${bM*3UaCI_yKl*D(X»93EKO JENO І

BEOXN RRRfy RC1:m» UMJ, CMOMCf CM,» 1 .'М*ЯІ>*

FOR X:b1«TEP TUNT1L moo begin for з:*1«те₽ IUMTIL MOO SESIN

RCi_t3X:*eMtt_t3j;cMDMCitN*3i:>J>McX'3iENQ ; for k:«istep хунти «во смомгькі:~смсі'kjemd ; '«ИҐ- -яш-^-мг

SOTO Мі»

М2

emo крест,»

POOAJHT^&iCr&fjeMfBM/CMfDM);

помет, л,э₍c« B,eM,8M»cM_roMJ;

IF KPUCTfT,*.B,C,0,AM,BM,CM_fОМ.М'МГФ TRUE THEB РОЮПЬЧ* СИСТЕМА УСТОЙЧИвЛ//**^г )

ELSE

POiefitJ «ff СИСТЄМА НеуСТОЙЧИвЛХ/мм’)J

gup J

Ено ;

I

«8

З? 1 « § S

<§

s

5. вдітоожа да расчетов устойчивое

ЖЖ РВШЙРОВІИИЯ Н& ЦЖ БЗС&-6

- ввода [INPUT

~ вывода часжшых зпечешй ж такс?» [OUTPUT ('••jj;

~ обращат квадратных штрвд [maTPIXINVEPT(>~[[

С.4. Кожяєет чйсдовйх иасскшв составляется в следузщеэ вдадкез ■

&

HhS. М паЗ/г. ІІ^тіОь u дота ttn& H M. &&?■ іїоЗтіеь и Sama 7^ ї I I "

Программа расчета устойчаЬости на Цвм 6ЭСМ-6

бив :matrjх1 nv£ftT,f*«TRI*PERM; begin integer n,m;

інріп'(*,мЛ

OUTPUTP£»,N,M, */»);

BEGIN ARRAU fl,8,011 * N,1:N],Df1;N,1:MJ,AM,CMfі:м,1 :«],

REAL T;

PROCEDURE MATR(fl,B;p_>N);Vflt.UE NjTNTEGER NJflRRAU A,B,C’, BEGIN INTEGER I,3,К;л«Лду »ti:N₍f:Rj;

FOR I'.sHSTEP 1U4TIL MOO FOR 3*.*1STEP '1 UNTIL NDO

begin ot 1₁ о J t ^o; ₽or jc':=i step 1 Until ndo РСІ»0):«0П,3]₊ди;к}мВС)С,31Е«0 ;

FOR I; = 1STE₽ 1UNTIL «DO FOR 3:=tSTEP -МГ*» III * ** 40^4*

1 until noO сп,31:=о£ЬЗэ;

ЕНО ЙЙТЙ; * ^—

PROCEDURE MRTREXP(fl,В₍С,T_tN)• flRRRV A,B,C;ftEAL T-INTEGER«; begin яяяяи dm;n>i;’n1;inte'ter i,3,k,lj т:«т/102Як

FOR i:=1$TE₽ lUHTlL «DO FOR 3:--l3TEP 1UKT1L «DO BE&IW в£ї,яі;=яп,оіят; ' IF І»дТНЕ« BtI,01:sTELS£ BCI,3]:=0: л»* M *

CCl,Dl:eBti.31;END ; **■

l:=i;

FOR ^k;x2ST£P_1UNTIL £00 BEGIN MATR(B,D,B,M);L;=L*K;

FOR UxtSTEP 1UNTIL NDO FOR JHMSTEP 1UHT1L HDD СІЇ, 31t»CCl,31 + BCl, S3/L*,END ;

MATR{R,C,6,N);

FOR 1; xT STEF 1 UNTIL NDO Bt I, I H*B[ 1, 11 +1;Ш. У'no!>,

Подпись і/ дата І

I V I m 1 e>

10 I»

tf>

II

)Е

ІЛ

го я

I r>

и
c>
s

If

•1»

і » I» І Я

І я

it

tn

V>

tl

v>

2 IO

I® ІЇ»

ffH 12 I 0

ьа

I tn і ж I ©

їж

I©

1Я

II

1W

ІЯ

s I 0 IO

i© 12

І СР

I 0 1 (П 10

и>

ж>

иь

1*

I m і •»>

II

I ж-

їда

I да i <® in tn 1© to

и «>

II

I'

tn

1 -4 I tn

v>

СЭ

1tft

ІІЛ 11>

t Я I » I 3s t*c

a?

tn
T>
(ft

IC і 2

e>

AJ

t я I ft»

І ffi f © lift I»

СП

«0

» r© "П І Я

x

<□

ж.

ЗІ

I <ft 1 И 1«n

10 to

I Ч> л • II

ел

3!
I©

at

я jm Ito

jte is »» lb

₽>

І»

I m IS I о

ІИ !?- t ©

І Є fV>

' ІХП

<л

II

tn я tn

гп

p.' «
» " и

(З

■за

I ж ia I о

10 IX 1-е

3K 10 I Q

к>

left 1 -4 im

. IC І Й I ™4

1О

It

tn

да

II

V>

2

У>

і Р» I z 1 ©

<л

я m

•и

е»

я>

і» і

да m

<4

It
№

II №

I с» ІП l<P

II
u

II

lift 1Я

IE

I© 1»

<л

її

1 eft

>c іа

)Г

ж і о І«э

II

1<л

I 14

10 ІЖ I -<

'(

Й

N

**>