книги из ГПНТБ / Соловейчик, Р. Э. Программирование на АЛГОЛ-60 учеб. пособие

зм

- Зм

3m -i

0

0

3M+2 - 3m

-M'

0

в I:=3M+2

2

2

2

2

3

_ r

i

0

-3-

7

I

0

a I:=-3

4

4

1 2

6

I

I

I

0

I .

0

I

I

0

a I ;=0

4

4

12

6

I

I

_I

I

0

0

I

_ I

0

/

2

2

6

3

- 2

I

- 2

0

0

0 --m +£

-M -м-3

3

3

5

_3

5

I

0

0

I

I

4

4

1 2

6

I

I

I

0

I

0

I

I

0

4

4

1 2

6

I

_ I

I

0

0

I

I

0

I

2 -

2

6

3

new 1

(opt)

maxi

=* ■f* J0> a 1 »

opt:, э

false

work 1

iter: =».3 * 1

=* 4,

un«

я truej

mint я M,

all

a

4 , DlAt

*

1 0 » я

2 ,

ш п

з false

beев [2]

I * 1 ,

в1 * я

4,

— I O I ~

4

I

I

0

4

0

I

2

0

3

3

I

_ I

I

0

0

I

_I

0

I

. 1 1 - 1

2

2

6

3

v

2

- 6

0

-3

0

-4

0

-M - м 4

- " - I

I

2

8

0

2

I

3

0

-I

3

3

4

I

I

0

4

0

I

2

0

3

3

3

0

I

0

2

I

0

I

I

3

3

new 1 (opt)

oazi a

0 ,

opti

■жtraa

Так как величина

opt

приняла значение

*гпа

, то

мы переходим к выполнению процедуры

fin 1

и также рекоменду­

ем читателю непрерывно,

сопоставлять приводимые ниже вычисле­

ния с написанием этой процедуры на АЛГШГ-60.

finy~

a l

Г = О

а 1

: =

0 + 2.8 + 1.4 (-б).З = 2

вывод

(3, 8 , 2 , 2 , 0)

( х3 =

8)

al

• =

О

\

al

; =

0 + (—1)«8 + 1.4 + 3.3 =

5

вывод

(1,4,5,5 - ^

)

( *1

=

4)

О

«I: = О

a l;

= 0+1,8 + (-1). 4+0,3 = 4

вывод

(5,3,4,4, -

( * 5

=

3 )

О

procedure Т simplex

(

mfnf e p s ,b ,c )f

value

т ,п ,ер в

|

Integer

m,n;

r e a l

epsj

array

b ,c;

begin

in teger

i t e r ,r ,k l ,

k2 ,

1 0 ,

JO,

a;

re a l

x'j

in teger

array

w

, by £2 :

■

nj

;

procedure

IP (s ,n ,w ,f,n )f

begin

boolean

t

;

s;

e-r

»

n ( t ) 5

i f

t

then

go-

to

e2f

go

to

el

;

e2

s

f

end

I P

;

procedure

HIT

corner

j

begin

array

f e

£1

1

r ] j

for

3 - t a

i

step

1

until

r d o f e [ s ] j = b [ s ]

;

ite r j

=

0;

kn=l

t -k2* »

m «■ 1

j

fo r at

=»

1

step

1

until

r

1

do

begin

w

£sj

г

=• k2 j

by

jk2j »

=

k1 5

xj *

fe

[k-f]

-

f a

[кг]

i f

x^ O

then begin

f e

[ki] j»x;k2y=k2*1

end

else

begin

fe

jk2j

i=« -X; k2 i

»

k1 +1 ;

k f:

= »

fa ]

end

103

procedure

new T, (opt); ' boolean

opt;

begin

reel max;

array a [i

;

mj , v[m+1 :rj|

u [ij

0;

lor si = 1 step 1 until

r -

1

do

begin

k i;

= w

[e]

;

k2 s

=

by [k ij

j

If

k2 ^m then у

[kl]

: =

u [k2~j

4. с /k2 ,

kij

else

u [ kij s

=

v

[ k ? J -

c

[k t,

k 2 j

end

a

;

max

*

=a 0 ;

for

kl«

= 1

step

1

until

m

do

for

k2 : = m ♦ 1

step

1

until

r

do

I f

v ,£k2j

- a [kij

-

c [k t, k2j y

max

then

begin max: =

v [ k ij

-

u[kij

- о

[kl ,

k2J ;

lOi

» kl , j Oi

= k2

end .

opti

=

max^eps;

.If

opt

then

вывод

(ц,

v )

end new j

procedure fin T ; begin

array

fe

[i

j

rj ;

for

s i

= l step 1

until

г

do

fe

[s]

: = b [ a ]

;

for s

s = r- 1

step

-

f

nntll

t

do

fe [by i"w [в ]]/

г

= fe

[by

Jw [b]J]

-

fe

[w

[в] j

ВЫВОД

(fe,

by,

I t e r )

.end

fin

;

procedure

work

T;

begin

Integer

г1 , r2rt ,

ет,

e2,

eO j

begin

real

min; array

f e

[l

:

r "J;

el»= e2j = 0; r1»=

10;

r2i

=jO;

mint

= b [io j

;

fo r

si

= 1

step

1 until

r

do

fe

[ s] :rb [ sJ

;

for s: = r ~ 1 step

-

1

until

i

do

begin

k i: = w [ s j

j k2t

= by [.kij

;

xz j*

t « f kij

;

fe [k2j : = fe [k2] ~ x ;

If П =

kl

then begin

ei

»^el

■»

1 ;

ri

i

»

k2 ;

i f a la п Д М ^ Д

then begin

min*

=* x$

eOs

=

85 tt=

e1

end

end

e ls e I f

r2 =k1

th e n b e g in

e2 s=e2+1

i

r 2t

> k2t

i f

min> x A k1 >

m

then begin

M in t

*

X;

aO

t

»

at

tt

=

e2

end

end

else

w

[a]

t =.

-

w

[a] {

i f

r l t

=»

r 2 then go

t

end

a;

akat

end

fe

t

begin

Integer a rra y

d

£0 t

r - l j

j

i f

w

[ ao] ^

a

then

begin

r i t

»

iOj

d j

else

begin

r1* =.

jO

f

d

[o ]

j

»

10

end

j

d

[ 1]

t

»

f t s

e1»

=• 1J

02

*

=* *"

•

1

fo r

a:

■2

atep

1

u n til

t

do

d

jTa] :

=

r 1 »

=

by [

r ^ J ;

fo r

8s

» 1

step

1

u n til

t do by[d£s]]t

* i [ B

~

1]

I

to r

at

» г - i

step

“

1

u n til

во

do

I f

w

[s ]<0 then

begin

е2|»е2- 1 >

d [e 2 jt»-w

[a]

end

elae

i f

w

[a ]

=d [eij

then

begin

w

[sj«=.Ot e1 i*e-| + i endj

fo r

at=

aO step

4

u n til

r

-

-f

do

i f

w

[ej>0 then

begin

w

[aOjt

=

w

jV Jt

вО»-в<Н

i

ends

fo r

a:

aQ atep

1 u n til

t-1

do w

£aO*aj

1-

d [s+1 J

»

fo r

at

=»aO ♦ t

step

l

u n til

r~ t

do

w

[a j

1=

d [a ] ;

fo r

at

э1

atep

1

u n til

aO 4a w [®]N

aha

(w

[a ]

)

end <f t

it e r :

»

it e r

♦

\ .

end

work

j

r

1 - в

*

n

IP

(

HW

oorner,

new

T ,

work T ,

f in T ,

eT

) }

eT

s

end

eimplex

~

107

kl:=2; к2:=3;

v[3j~

aC^J~ °F^,-0 =

4 - + 1 ' 1 »

О

шах

;

v [4J

шах

j

=4j

iO:

=2; jOi

=.

3

{

к2:=4;

- п[г] -

с [ 2 , 4]

= 2 * i - 3

=

0

,

2:=5;

v f i ] =• и[г] -

0 (2 ,5]

= i

+ i - 2 = 0 ,

opt

j a

false

•

Так как величина

opt

цриняла значение

false

. то

следующей выполняется процедура

work Т

■, причем рекоменду­

f.

[1 . 5J ,

е1 s я

e2t я О- ?1(

<■iOj

r2 t

я

JO* a ln t я

40 t

fe

[ l ] =60,

fe

[ 2 j

fe

[? J

n20t

fe[4j=50*

f e (s ] я 30>

а я

4r

k11

я??

Зс2» = 2ух» » f e ^ j

=»30; f e [2 j»l0 |

w [4] * ~5 ;

a =

3;

1

»2f

k2j =4;

x ^ f e ( 2]

яЮ ;

^e(4j=40;

e t ja l; rti= 4 t

max x

1

»

10 1 во >

3 i t я I 5

s я

2}

k"t1

я 4 ; k2t *1 j

x^fe|4J:

=40j

fe|"lj=20; e1 i= 2jr1 »я1 ;

а я

I j

kt t *3f

k2» = 1;

X »»fe [3 jt

=20;

to[lJ;sOf e2s=I; r2l»Ij

d [О . 4J ;

w

[YJ

» = 2

я m

. rt:

я 2 j

d £lj t = 2 f

81 1 = 1 ! «2 1 = 5 ;

ffl

i

Ъ у [2]

8 я 3

?

new I

(o p t)

7 £3:5J;

= 0 ;

a [ l : 2]

o jiJ

8 elj

к

l!=3$

k2:=I; ▼/> 7 -

a [ l ]

■+ 0/1,3 7

“

4 s

a =2;

*

I:=4;

k2:=I; v£4j~ a £ lj

* o£l,4j 3

2 ;

a = 3$ к ls=2;

k2:=3; n [ 2 ] =

v

[ 3]

~

of2,3j

3

3

;

в =4;

к I:=5;

k2:=2; v£5j-

u [ 2]

*

o£2,5j

“

5

*

oext 3

0

j

kl:=l;

k2:=3;

▼f3j'

n£lj

-

o£l,3j -

4■*

0 *

4 >

O f

k2:=4;

▼[4j-

a [ l ]

-

cLl,4]

-

2!

-

0 -

2 3

0

j

k2:=5;

▼[5]-

u[lj

-

o[l,5j

» 5 - 0 - 3 . 2 ,

max 3

2 ,

10 -

I,.J0 3

kl:=2;

k2:=3;

т [ з ]

-

u£2j

-0/ 2 ,3 >

4

-

3 -

I -

0

,

II oJ M

v£4j -

nf2j- o£2,4j3

2 -

3 -

3 -

-4

,

k2:=5;

v£5j - n£2]- o £2,5>

5 - 3 - 2 = 0 ;

opt

t 3

false

s

work

I ;

fe

[ i

:

5] t

e lt

3 e2s -

0;

r i s

»

1; г2»

=

5;

“ in

=». 60

5

f e [ l ] = 6 0 j

f e [2 ]» 4 0 j £е[з]=>, 20,

fe£4-] «-5 0

fe£s] 3 30

;