Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

книги из ГПНТБ / Бухтияров А.М. Сборник задач по программированию учеб. пособие для студентов высш. техн. учеб. заведений

.pdf
Скачиваний:
44
Добавлен:
24.10.2023
Размер:
10.77 Mб
Скачать

Д л я ЦВМ Р.

Р а с п р е д е л е н и е памяти:

 

Величина

h

 

A ' , + l X;

2

~~

2

f(x0)

f ( * l ) fM

Адрес

Величина

Адрес

Величина

Адрес

ячейки

ячейки

ячейки

0040

( Я )

/ (As)

0052

( Я )

 

0062

( Я )

 

 

 

 

 

/(А',)

0044

( Я )

fix*)

0054

( Я )

 

 

 

0046

( Я )

f (As)

0056

( Я )

J

.0100

( Я )

0050

(/7)

 

0060

( Я )

/(AO)

 

 

 

0042 ( Я ) = < 0 > , 0066 (П) - рабочая ячейка .

П р о г р а м м а :

Z ,

А„

Аз

А 4 [*']

А 5

V« (і) Р 7

А 8

Номера

 

Команды

 

команд

 

 

 

 

 

 

 

0210

0

50

 

0040

4

0211

0

00

 

1002

0

0212

0

00

 

0062

4

0213

0

25

 

0022

4

0214

1

42

 

0062

4

0215

0

16

 

0006

4

0216

0

02

 

0216

0

0217

0

22

 

7716

0

0220

1

56

 

0062

4

0221

0

24

 

0214

0

0222

0

42

 

0042

4

0223

0

56

'

0100

4

0224

0

25

 

0014

4

0225

1

42

 

0060

4

0226

1

41

 

0062

4

0227

0

46

 

0040

4

0230

0

41

 

0100

4

0231

0

56

 

0100

4

0232

0

24

 

0225

0

0233

0

02

 

0233

0

0234

0

22

 

7717

0

0235

0

16

 

0100

4

Результаты выпол­ нения команд

J = 0

 

 

 

 

 

Номера

 

 

 

 

Команды

 

 

 

 

Результаты

выпол­

 

 

 

 

 

команд

 

 

 

 

 

 

 

 

 

нения

команд

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0236

 

 

0

02

0100

 

4

 

 

 

 

 

 

 

 

 

 

 

0237

 

 

0

32

0001

 

0

 

 

 

 

 

 

 

 

 

 

 

0240

 

 

0

37

0000

 

0

 

 

 

 

 

 

 

251,

Схема

программы:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

І / А Л Л І / ] У 4 ( / ) Р 6 1 _ Я . .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

і

 

 

 

 

 

 

 

 

 

Z j — в в о д и т

очередную

г р у п п у

чисел

в

ОЗУ

машины

в

ячейки

а + 1 ,

 

 

а +

2,

... ,

 

а + 144;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

А 3

переводит

числа

(a-f-

1), . . . ,

(a +

144) в д в о и ч н у ю

систему

счисления;

Z s [ / ]

— записывает

 

г р у п п у

чисел в

зону « +

/

( п е р в о н а ч а л ь н о

/

=

1);

 

V 4

(j)

— переадресует команды

оператора

Z 3

[/]

по

п а р а м е т р у

/

(/

увеличи­

 

 

вается

на

единицу);

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Р 5

п р о в е р я е т

условие

/ > 1 0 0 ;

если

условие

выполнено,

то

передаст

 

 

у п р а в л е н и е

 

о п е р а т о р у

Яо, если нет — оператору Ъу.

 

 

 

 

 

Д л я

ЦВМ

БЭСМ-4.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

П е р в а я

г р у п п а

 

чисел

з а п и с ы в а е т с я

на

( / +

1)-ую зону

5-го

блока

магнит­

ной

ленты .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

П р о г р а м м а :

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Номера

 

 

 

 

Команды

 

 

 

 

Результаты

выпол­

 

 

 

 

 

команд

 

 

 

 

 

 

 

 

 

нения команд

 

 

 

 

 

 

а

 

0

57

2001

0000

 

0000

 

 

 

 

 

 

 

 

 

 

 

а + 1

 

0

52

0000

0000

 

0000

 

 

 

 

 

 

 

 

 

 

 

а +

2

 

0

10

а +

1

0000

 

0000

 

 

 

 

 

 

 

 

А 2

 

 

а

+

3

 

0

16

а + 4

7501

 

7610

 

 

 

 

 

 

 

 

 

а +

4

 

0

52

а + 1

0042

 

а +

144

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

М Л

 

 

а +

5

 

2

50

0025

і

+

1

 

а +

144

 

 

 

 

 

 

 

 

а +

6

 

0

70

а + 1

а +

5

 

0000

 

 

 

 

 

 

V 4

( / ) Р 5

 

а +

7

 

1

12

0143

а +

2

 

0001

 

 

 

 

 

 

 

 

 

 

а + 1 0

 

0

77

0000

0000

 

 

0000

 

 

 

 

 

 

Д л я

ЦВМ

Минск-22.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ч и с л а представлены

в

форме с

п л а в а ю щ е й

з а п я т о й .

 

 

 

 

 

 

а + 1

— н а ч а л ь н ы й

адрес

СП

перевода

из

двоично - десятичной

системы

счисления в

двоичную .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

П е р в у ю группу

 

чисел

з а п и с ы в а ю т

на

м а г н и т н у ю

ленту,

и с п о л ь з у я нуле ­

вой

л е н т о п р о т я ж н ы й

механизм,

• я ч е й к и 5-й

зоны,

н а ч и н а я

с

0020,

 

 

П р о г р а м м а :

 

 

 

 

 

 

 

 

 

Номера

 

Команды

 

 

команд

 

 

 

 

 

 

 

 

Z,

6

+

1

—50

00

0000

ц + 1

 

6

+ 2

— 10

00

k+

1

0004.

 

6 +

3

— 10

00

k +

2

0005

 

6 +

4

—10

04

a +

1

0040

А,,

6 +

5

—31

00

d +

l

0017

 

6 +

6

— 10

05

0041

 

« + 1

 

6 +

7

—20

04

6 + 1 0

k + 1

 

6 + 1 0

—20

05

6 +

4

k + 2

 

6 + 1 1

—46

00

0002

 

4020

Z s l / ]

6 +

12

—43

00

0144

 

a + 1

 

6 +

13

—30

00

6 + 1 1

0000

V , (/')

6

+

14

20

00

k +

3

6 + 1 1

 

6 + 15

05

00

6 + 1 1

k + 4

 

6 +

16

—34

00

6 +

1

6 + 1 7

я 0

6 + 1 7

—00

00

0000

 

0000

 

k

+

\

01

43

0001

 

0000

 

k +

2

01

43

0000

 

0001

 

k +

3

00

00

0000

 

4000

 

k +

4

—46

00

0064

 

4020

Результаты выпол­ нения команд

-

!Константы

J

Д л я ЦВМ Р.

Ч и с л а представлены в форме с плавающей запятой в п о л н ы х ячейках .

а + 1 =

2000 ( Л ) ,

а + 2 =

2002 ( Я )

 

а + 144 = 2310 (Я) ;

 

 

1700 ( Я ) рабочая

ячейка .

П р о г р а м м а :

 

 

 

 

 

 

Номера

 

Команды

Результаты пыпил

 

команд

 

нения команд

 

 

 

 

 

1001

0

50

2000

4

7*1

1002

0

00

0010

0

 

1003

0

00

2310

4

 

1004

0

25

0310

4

 

1005

1

42

2310

4

 

1006

0

16

1700

4

А 2

1007

0

02

1007

0

 

1010

0

22

7716

0

 

1011

1

56

2310

4

 

1012

0

24

1005

0

 

 

 

Номера

Команды

 

Результаты выпол­

 

 

 

команд

 

нения команд

 

 

 

 

 

 

 

 

 

1013

0

54

2000

0

 

z 3 [ / l

 

 

1014

0

00

( 4- 1

0

 

 

 

 

1015

0

00

2311

0

 

 

 

 

1016

0

02

1014

0

 

V , ( / )

 

 

1017

0

01

1024

0

 

 

 

 

1020

0

16

1014

0

 

 

 

 

1021

0

14

1025

0

 

 

 

 

1022

0

21

1001

0

 

я .

 

 

1023

0

37

0000

0

 

 

 

 

1024

0

00

0001

0

| Константы

 

 

 

1025

0

00

( 4- 145

0

 

 

 

 

277.

00

10

20

30

 

 

 

 

 

01

I I

21

31

 

 

 

 

 

02

12

22

32

 

 

 

 

 

03

13

23

33

 

 

 

 

278.

(а)

(а,

Ь) (а, а, с) (а,

Ь, с,

Ь)

 

 

(b)(b, b) (Ь, а, с)

(c)(с, а) (с, Ь, с)

279.

0(2 )

010(2)

1001(2)

00100(2)

 

 

 

 

 

1(2)

110(2)

11(2)

 

 

 

 

 

 

280.

<

двоичный

к о д >

: : =

<

символ > I < д п о и ч н ы н

к о д > < с и м п о л >

 

< с н м в о л > - : : = 0 | 1

 

 

 

 

 

 

281.

( с л о в о )

: : =

( б у к в а ) __ | ( б у к в а ) ( с л о в о )

 

 

( б у к в а )

: : = | а | б | в | г | д | е | ё | ж |з | и | й | к |л | м |н | о j п | р ! с | т | у |

| ф | х | ц j ч | ш | щ | э | ю | ъ | ь | я

 

 

 

 

 

282.

1)

500

 

2)

375

 

 

3)

0.0094

4)

69.745

 

 

+ 5 0 0

 

+ 3 7 . 5 1 0 + 1

 

.9410—2

 

+ . 69745102

 

 

5102

 

3750010—2

 

+9410 — 4

 

6974510—3

 

 

. 510+ 3

 

 

 

 

 

 

 

 

 

 

+0 . 05104

 

 

 

 

 

 

 

 

5)

—280

 

6)

—374000

7)

—0.03

 

 

 

—2.8102

 

 

— 3 . 7410+5

 

—310—2

 

 

 

—00280

 

 

—.374106

 

—.310—1

 

 

 

—2800010—2

 

-^374000010—1

 

—0.0003102

 

 

8)

- 150 . 000 4

9)

10—4

 

10)

—5.85103

 

 

 

-150000410—4

 

1010—5

 

 

— 5 . 8510+3

 

 

 

—1.500004102

 

0.110—3

 

 

—5850

 

 

 

—0.150000410+3

+0 . 0001

 

 

—58500010-

 

 

11)

0

 

 

12) 0 . 00310 - 5

 

 

 

 

 

0 0

 

 

 

+ . 310 — 7

 

 

 

 

 

+ 0

 

 

 

310—8

 

 

 

 

 

283.

1) i n t e g e r

5) r e a l

9) r e a l

 

 

 

 

 

2) i n t e g e r

6) r e a l

10)

r e a l

 

 

 

 

 

3) i n t e g e r

7) r e a l

11)

r e a l

 

 

 

 

 

4) r e a l

8) r e a l

12)

r e a l

 

 

 

 

284.

1),

5),

9),

10),

11),

12).

 

285.

/15

 

,45/1

/15.4.4

АА5АА

 

Л 5 э

 

/1/155

/155/1

 

 

Л Л 5

Л 5 5 5

Л Л Л 5

 

• 286.

2) н а ч и н а е т с я

с ц и ф р ы ,

3) с о д е р ж и т с и м в о л • (точка), 5) н а ч и н а е т с я

с ц и ф р ы ,

6)

с о д е р ж и т

с и м в о л

а, 8)

с о д е р ж и т

с и м в о л

(точка), 9)

с о д е р ж и т

знак а р и ф м е т и ч е с к о й

о п е р а ц и и

 

-J-, 11) не

н а п и с а н о

в

одну

с т р о к у .

 

287.

r e a l

а,

Ъ,

с, k\,

time,

 

Л І С

 

 

 

 

 

 

 

 

 

 

 

288. i n t e g e r

 

і,

j

,

к,

zip,

 

tl

 

 

 

 

 

 

 

 

 

 

 

 

 

289.

1)

a r r a y

 

 

Ъ\\\1\

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)

I, [I],

ft

[2], 6 [ 3 ] , ft [4] , ft [5], ft [6], ft [7] . •

 

 

 

 

290.

1)

i n t e g e r

 

a r r a y

A [1 : 2 , 1 : 3 ]

 

 

 

 

 

 

 

 

 

 

 

2) A

 

 

11

 

 

Л | 1 , 21

 

 

Л [ 1 , 3 1

 

 

 

 

 

 

 

 

 

 

 

 

Л

[2,

 

1]

 

 

Л

[2, 2]

 

 

Л 12,

3)

 

 

 

 

 

 

 

 

 

 

291.

1)

. v [ I ]

 

 

 

3)

z l

[4,

— 1]

5)

« [ 4 ,

3]

 

 

 

 

 

 

 

2 ) 3 - 1 7 , 6 ]

 

 

4 ) г 2 [ 4 ]

 

 

 

6)

ft

[4,

- 1 , 4 ]

 

 

 

 

 

292.

1)

3,75,

 

 

5)

0,

 

 

 

9)

—18,

 

13)

 

—17,

 

 

 

 

 

 

2)

5,6,

 

 

6)

— 1 ,

 

10)

—18,

 

14)

 

—18.

 

 

 

 

 

 

3)

6,0,

 

 

7)

17,

 

11)

17,

 

 

 

 

 

 

 

 

 

 

 

 

4)

+ 1 ,

 

 

8)

17,

 

12)

18,

 

 

 

 

 

 

 

 

 

 

 

293.

1)

(.v +

j'V'(2

X х - у )

X (л- + ft)

X

sin

(х)

 

 

 

 

 

 

2)

(а +

с +

sqrt

 

((а

-

с) J 2 +

4

X ft X b))/2

 

 

 

 

 

3)

 

л- ]

 

| г)

4)

л- \ у

\ z

5)

-

 

(cos

(х) \

4/4)

6) ( Р 1 / Р 2 )

f («7 — 1)

 

7)

л-/(1 +

х

\

2/(3 +

(2

X -V) і 2/(5 +

 

(З X л") f 2/(7 +

(4 X х) ]

2))))

 

8)

1 + х

+

х

t 2/2 +

х

j 3/6

 

 

9)

 

х t

1.375

 

 

10)2 X R X sin (Л/2)

11)

(л- [і]

 

\ 2 +

х

[2

 

х

/

+

1] -

а)!(х

[і] +

ft)

12)

 

а [і,

k) X b [k]

294.1), 2), 4), 6j .

295.

1)

r e a l , 2) i n t e g e r ,

3)

r e a l , 4)

r e a l , 5) i n t e g e r ,

6) r e a l , 7) r e a l ,

8) r e a l ,

 

9)

i n t e g e r ,

10) r e a l

 

 

 

 

 

 

 

 

 

296.

1)

y:

=

sart

( x -

1) +

1/(л-—1),

 

 

 

 

 

 

2)

x:

=y:

=

2 X

sin

(3.14 + г )

( 3 ,

 

 

 

 

 

 

3)

с : =

x-;a — l/(<7

X p) X In {a + - f t X exp (p

X Л")),

 

 

 

4)

/ : —

sqrt

(x)

x

sin

(x)'(x

+

exp

(x)),

 

 

 

 

 

Ь)

M

: =

(-

FX

(Ml + AI2))/((1 — ( M l X v)

\ 2) X (1 + ( M 2 X v)

12))

-

FX ( I

- Ml

X M2 XvX

v)l(j

X (1 +

Ml

+

М 2 / Л И ) ) ,

 

 

 

 

6)

\V: =

7.3910—3 X xj(x

\ (5 X

(exp (1.4//г) -

1))),

 

 

 

7)

у:

=

exp (x) + x X

sin

(x)

\ 2,

 

 

 

 

 

 

8)

у

: =

(exp

(sin

(x) \

3) +

In

(arctan

(x)))lsin

 

(x),

 

 

297.

1)

H: =

H +

2;

 

2)

H:

=

(li

+

3 ) / ( # — 3);

3) H: sqrt

((H

X

(W+o)-\)\2),

298.8.2

299.5

300.23

301. 2025.0

302

1)

t r u e ,

2)

false,

3)

t r u e , 4) t r u e , 5) false

303.

1)

t r u e ,

2)

false,

3)

false

304.

1)

a ^ x / \ x s t b ,

2)

a>x\/x>b

305.~| a\/b

306.~](a\/b)

307. 1)

/ i :

=

false; 2)

B : = a ^ b ;

 

3)

B:

=

A

= c\J

-\(a<:byc

= d)f\k[I

+ b];

4)

B:

=

B\

[7] x

2 < C V S 2 [ 1 1 , / C 2 1 =

t r u e ;

5)

B:

=

-]F\/Ji

+

S=Tz3/i;

 

308.t r u e

 

309.

/ =

false,

 

 

/н =

false,

и =

t r u e ,

 

о =

t r u e ,

/? =

 

false,

^ =

false.

 

310.

1)

 

В, 2)

х,

3)

1,4)

0.5 X z,

5)

2.5 х

х

\ 3 -

1 5 X х ,

6)

А

\ 2.

 

 

 

311.

1)

 

cf\b,

 

2)

/ ( х ) ,

3) A>B\Jd,

 

 

4) Л =

В ,

5)

9 .

 

 

 

 

 

 

 

 

 

312.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

а

 

 

t r u e

 

 

t r u e

 

t r u e

 

t r u e

 

 

false

false

 

false

 

false

 

 

b

 

 

t r u e

 

 

t r u e

 

false

 

false

 

 

t r u e

t r u e

 

false

 

false

 

 

с

 

 

t r u e

 

 

false

 

t r u e

 

false

 

 

t r u e

false

 

t r u e

 

false

 

 

1

 

 

t r u e

 

 

t r u e

 

false

 

t r u e

 

 

false

t r u e

 

false

 

t r u e

 

 

2

 

 

false

 

 

false

 

false

 

false

 

 

false

false

 

false

 

false

 

 

3

 

 

t r u e

 

 

t r u e

 

t r u e

 

t r u e

 

 

t r u e

t r u e

 

t r u e

 

t r u e

 

 

4

 

 

t r u e

 

 

t r u e

 

t r u e

 

t r u e

 

 

false

false

 

false

 

false

 

 

5

 

 

t r u e

 

 

t r u e

 

false

 

false

 

t r u e

пр и X >

0

11

 

 

 

 

 

 

 

 

 

 

 

 

 

false

пр и

x = g ; 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

313.

1)

aAbVl

 

a Ad,

 

2)

A

>

BA(c\/d)\/A

 

 

==£/J Д с Д ' " ,

 

3)

(а\Ь\/

 

"]

 

 

aAd)Aiy-\(aAb\/^aAd)Af.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

314.

1)

i f a

t h e n

false

else

t r u e

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)

i f

a

t h e n

 

t r u e

else

i f

b t h e n

t r u e

else

false

 

 

 

 

 

 

 

 

 

 

3)

i f

a

t h e n

 

(i f b

t h e n

t r u e

else

false)

else

false

 

 

 

 

 

 

 

 

4)

i f

a

t h e n

 

(i f b

t h e n

t r u e

else

false)

else

t r u e

 

 

 

 

 

 

 

 

5)

i f

a

t h e n

 

(i f b t h e n

t r u e

else

false)

else

i f

b t h e n

false

else

t r u e

 

 

6)

i f

a

t h e n

 

(i f b

t h e n

false

else

t r u e )

else

t r u e

 

 

 

 

 

 

 

 

315.

1) , v [ 7 ] : =

i f a [5] >

e [2] t h e n

13.8

else

20.1

 

 

 

 

 

 

 

 

 

 

 

2)

у

[It]: =

i f

abs (x ) <

1 t h e n

0

else

entier

(x)

 

 

 

 

 

 

 

 

 

 

3)

г

: = i f

x

 

ХУ<

1 t h e n

arctan

 

{{x-\-y)j(l

—XX

y))

else

i f

x

X

y=[

t h e n

 

1.57

else

i f

л - > 0 Д л - X . V >

1 t h e n

3.14 +

arctan

((x

+

y)j(l

x X y))

else

-

3.14 +

arctan

(( x +

y)j(\-xX

 

 

 

y))

 

 

 

 

 

 

 

 

 

 

 

 

316.

D: = i f Л 2 э В Л Л 5 = С

t h e n

A

else i f В 5 з < 4 Д В г г С t h e n

В

else

С

 

317.

S : =

i f Х 2 Ї £ 0 \ / 3 > 2 = = £ 0

t h e n 0

else

i f x l = ^ 0 Д j ' l

==c0

t h e n

x2

X

y2

else

i f . v l ^ O t h e n

 

x 2 x 0 ' 2

y\)

else

i f j » l < 0

t h e n

(x 2 — л і ) x yl

else

( Л - 2 - А - 1 ) X O ' 2 - j . l )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

318.

1)

c/: = i f / \ > £

t h e n

t r u e

else

false

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)

P [3 ] : =

i f q t h e n

A >

В

else

С ф

D [x - f 31]

 

 

 

 

 

 

 

 

 

 

3)

/

: =

i f

n-\-2

=

m\/n

+

4 =

o

t h e n

 

false

else

а > 6 Д

If

 

 

 

 

 

4)

z : =

i f z

t h e n « V & / v n V c

else

i f x j 2 < l

t h e n

false

e l s e . v > 5 . 7

 

319.

j>: =

i f r s s O t h e n

t r u e else

false

 

 

 

 

 

 

 

 

 

 

320.

P :

if a s £ x / \ х

^

b / \ c ^ x / \ x ^ d

t h e n

t r u e

else

false

 

 

 

321.

W: =

ifл-1 =

Л-2Д.УI =

i& t h e n

P =

Q else

 

РфО

 

 

 

 

 

322.

1) 2)

3)

5)

9)

 

 

 

 

 

 

 

 

 

E2

 

 

 

 

 

 

 

 

 

323.

1) M l , ' 2)

 

0759,

 

3)

next,

4)

M 3 ,

5)

 

 

 

 

 

 

 

 

 

324.

1) g o t o

I I , 2) g o t o

0079,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3) g o t o

i f ./ =

3

t h e n

51

else

52,

 

 

 

 

 

 

 

 

 

 

 

4) g o t o

i f

аи%x/\xs£fi

 

t h e n

m i n els e

i f x

> b

t h e n

max

els e

o5,

 

 

5) g o t o

i f

a ^ x / \ x ^ c b / \ c ^ x / \ x ^ d

t h e n

M l else

i f

a ^

x / \ x

^ b

t h e n

M 2 els e

i f

c

^

x

f \

x

^

d

t h e n L I

else

Next

 

 

 

 

 

 

 

 

 

325. g o t o

i f c^sd

t h e n

M l else

M 2 ; M l : л - : =

17-3; g o t o

M 3 ; M 2 : j > :

=

— x + 0 75; M 3 :

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

326. 'z: =

x \ 3 +

5 x

x;

F: =

Q;

g o t o i f s > 0

 

t h e n

L \

else i f s < — 1

t h e n

L2

else

13;

LI:

F:

 

=

z; g o t o

L3;

L2:

F : = s x z ;

L3:

y . =

F+0-3&

327. О б о з н а ч е н и я в е л и ч и н :

о условии задачи

в

b

с

Д е й с т в и т е л ь н а я ч а с т ь М н и м а я ч а с т ь л - .

Д е й с т в и т е л ь н а я часть х3 М н и м а я ч а с т ь х*

В программе

а

b

с

A-lg

хіт

x2g

х2т

у\

 

: = — Ц(2 X a);

 

v2 : =

sgrt

(abs (b f 2 — 4 х

а х b))l(2

X a);

g o t o

if

b j 2 — 4 х а X

б 5 г 0

t h e n

M

else

L ; M:x\g:=y\

+ j > 2 ;

x2g: =

y\ y2;

x\m

: — x2m : 0;

g o t o

/V; L : xlg:

=

x2g: —y\; x\m

; —y2;

x2m ; =

— y2; N:

328. О б о з н а ч е н и я

в е л и ч и н :

 

В у с л о в и и з а д а ч и

Л [1)

А [2]

В п р о г р а м м е

А [11

А [21

...

...

А\п]

max Л 1<]

А [и]

В

B: =

A[l];

i

: =

2;

M : £ : =

i f Д <

/4 [I'J

t h e n

А

[I]

else

/3;

i

: = /

+

l ;

g o t o

i f і ==£ n t h e n

M else E N D ;

Е Л / D :

 

 

 

 

 

 

 

 

 

 

 

 

329.

i : = \ ; M l : a

[ i j : =

b [i\ + с [I];

t: =

i + \ ;

g o t o

i f f s g f t

t h e n

M l

else

M 2 ; M 2 :

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

330. І:=Г,

A/3: a* [ ( ) : =

0;

A-.= l ;

 

yvi : d [»]: = d [і] + a [i, ft]

X

&

\k);

ft :•_=£+

1; g o t o

i f ft <

n t h e n ЛП

else

N2;

N2:

 

і: =

і + 1;

g o t o

i f /

n

t h e n

Л'З

else

N4;

 

Л!4:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

331.

begin

лг: =

0.25;

n : =

0;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

M

:x

: =

x

] 2 — 2.3 x

л- +

1;

/г: =

я + 1;

g o t o

i f

/г =

20

 

t h e n

А/

else

Л1; N:

e n d

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

332.

b e g i n

С : = 0;

/ : =

1;

Z.: С : = С +

T\i]

[ 3 x S

|/] ; <: =

/ +

 

1; g o t o

H f s £ / z

t h e n L

else

K\

/<: en d

 

 

 

 

 

 

 

 

 

 

 

 

 

 

333.

i f p >

0

t h e n

Z.: —

1.73 x

exp (—

 

else

L: 1.73 x

exp (p)

 

 

 

334.

i f 6 / f f > 0

t h e n р : ~ t r u e

else

p : =

false

335.

i f x X у <

1 t h e n b e g i n

л - : =

0.5; у:

= 1 e n d else begi n x: =y ] 2;

y:= x \ 2 e n d

 

336.

О б о з н а ч е н и я

в е л и ч и н :

 

 

 

 

 

 

 

 

 

 

 

В условии задачи

 

 

В программе

 

 

 

 

 

 

а

 

 

 

 

а

 

 

 

 

 

 

 

 

b

 

 

 

 

b

 

 

 

 

 

 

 

 

с

 

 

 

 

с

 

 

 

 

 

Д е й с т в и т е л ь н а я ч а с т ь

 

 

 

А"1

 

 

 

 

 

 

М н и м а я ч а с т ь л - ,

 

 

 

х\ 1

 

 

 

 

Д е й с т в и т е л ь н а я ч а с т ь х3

 

 

А-2

 

 

 

 

 

 

М н и м а я ч а с т ь х2

 

 

 

А-22 .

 

if b\2

4 х < 7 Х с З г 0

 

t h e n

begi n

 

A-I : =

(— u +

sqrt

(b

\ 2 4 x

a X c))/(2 X a);

x2 :=(—b-sqrt

 

(b

f 2 - 4

X a

X c))/(2 X e);

A" 11

: =

A " 2 2 : = 0 ;

en d

else

begi n

A-l : = A 2 : =

bj(2

X a); x\

1 : = sqrt

(abs

(b

J 2 — 4 X

<7 x

c))/(2 X а ) ; A"21 : = — д і ї

e n d

 

 

 

 

 

 

 

 

337.

О б о з н а ч е н и е

в е л и ч и н :

 

 

 

 

 

 

 

 

 

 

В у с л о в и и

з а д а ч и

 

X

 

sin X

 

 

 

 

 

 

В п р о г р а м м е

 

 

X

 

S

 

 

 

 

if х < 1 0 — 5 t h e n 5: = А

 

 

 

 

 

 

 

 

 

338.

i f A - l < А-2 Л А-2 <

л-3

t h e n

g o t o L

 

 

 

 

 

 

339.1 ) i : = l ;

 

 

M :

A[i\:

=

B[i\,

i : =

/

+ l

;

i f

г ===25

t h e n g o t o

M

 

 

 

 

2)

 

7: =

25;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3)

Z.: A[i]: =

B\l];

 

 

 

 

i f

t

^

l t h e n

g o t o

I

 

 

 

 

 

M l : .v: =

a;

i f A - > 0 . 1

t h e n

g o t o

M 4

else g o t o /V/2;

 

 

 

 

 

M4: a: =

xj2; g o t o

M i ; M 2 f

 

 

 

 

 

 

 

 

 

 

 

 

4)

7: =

r \ l ;

U[V]:=V\2;

 

 

V: =

{x + у)

\ 2;

U[V]: =

V]2;

V:=z

+

1; u[V\:=V\2;

 

 

V'; =

5;

f / [ K ] : =

K f 2

 

 

 

 

 

 

 

 

 

 

 

 

 

5)

£: =

l ; A l l : i f /г==£л

t h e n

begi n

 

 

M2: i f

y ' s g w

t h e n

begi n

S: = 5 +

С

I A] X

fi

 

;': =

/ +

1; g o t o

 

end; k: =

k +

1; g o t o M l e n d

 

 

6 )

/>: =

3;

 

5 : =

5

+ A - [ / ? ] X

( A - [ / > ]

+

1 ) ;

/ > : = 5 ;

 

S : = S

+ , v [ / > ] X

(A- I / ; ] +

1 ) ; p: =

9;

5: =

S +

* [/>] X (x

[p] +

 

I ) ; p : =

25;

M : S: =

S +

x[p]X

(x[p]+

1);

p:=p

+

5;

i f / > « £ 4 3

t h e n

g o t o

M

 

 

 

 

 

 

 

 

 

7) A-: =

A - 1 ;

S [ / ] : =

0 ;

n: =

ft;

 

/ V I : g o t o

i f « 5 = 0

t h e n Л/2 else Д / 3 ;

A/2: S

f ]: =

S [I] X A- +

a \n];

n: =

n -

1; g o t o

Л/1; Л/3: і: =

f +

1; лг: =

л:2;

S [ / ] : = 0 ; n: = k:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

M l :

g o t o

i f

n ^ O

t h e n

M 2 else M 3 ;

 

 

 

 

 

 

 

 

 

 

 

M 2 :

S [I]: =

S [i] x

x

+

a[n\;

rv. =

n -

1; g o t o M l ;

 

 

 

 

 

 

M 3 :

i: =

/ +

I

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

340.

i; =

1; fo r

A". =

1 ste p

0 . 1 u n t i l 5 do

begi n

j ; [f]: =

x

\ 2 -f- exp{—

x);

і: — і +

1 e n d

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

341. О б о з н а ч е н и я в е л и ч и н :

 

 

 

 

 

 

В у с л о в и и

з а д а ч и

sin X

COS X

sin

(пх)

cos

(пх)

п

В п р о г р а м м е

S

С

Sn

 

 

Сп

п

С: = 0.15;

S: = sgrt

(1 - С \ 2);

Cm —С;

fo r

п: =

2

step

1 u n t i l 15;

do b e g i n Sn:

= sgrt (1 Cn J 2); С я : = С я X С — S « X 5

en d

 

342. О б о з н а ч е н и я в е л и ч и н :

 

 

В у с л о в и и з а д а ч и

2

w„

В п р о г р а м м е

г

wn

да Щ

да даО

дал: =

те>0;

 

f o r да: =

wn

 

- ) - 1/3 X

(zjwn

] 2

 

дал)

w h i l e

 

abs (w —

 

wn)^

10 5

do да/г: = да; да: =

да/г.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

343.

О б о з н а ч е н и я

в е л и ч и н :

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

В у с л о в и и

з а д а ч и

 

 

 

 

С у м м а э л е м е н т о в

 

х,

 

 

х„

...

 

 

Хп

 

В п р о г р а м м е

 

 

 

 

 

 

 

 

 

 

 

о1

 

 

 

 

 

л-[1]

л-[2]

 

 

X

1,1 ]

5: =

0;

f o r

f

: =

l

step

 

1

u n t i l

do

i f

л - [ / ] > / >

t h e n

5: =

 

5 + л - [/]

 

 

 

 

 

344.

fo r

/ г : = 1 ste p

 

1 u n t i l

100

do

begin

S : = 0 ;

A: =

 

i f / г > 1 Л

л ==S 11

t h e n

л — 1 else

И

л > 1 1 Л " < 9 0

t h e n

10

else

100 — л;

fo r

z': =

0

step

1

u n t i l

k

 

do

S: — S-\-

(x

[n -f- /'] — x \ n — ф

| 2; у [ « ] : =

sort

 

(Sj((k

+

1) x

(k

+

2)))

e n d

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

345.

w: — 0;

 

fo r i: =

 

q

step

1

u n t i l

p

do

f o r j : = I

step

1 u n t i l

//;

do

f o r

k: —

1 step

1 u n t i l

n

 

do да: = да + x

[і] f 3 х у

[j]

J 2 x

г [A]

 

 

 

 

 

346.

1)

M ,

 

2)

Mb,

 

3)

/Ve-rf,

 

4)

x2.

 

 

 

 

 

 

 

 

 

 

 

 

347.

1)

0745,

 

2) yz,

 

 

3) 2 2 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

348.

1)

7W15,

2) г'/.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

349.

s w i t c h

F: = M 5 ,

 

5,

/?7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

350.

begi n a r r a y

y \ h

14], .vrfl:

14]; i n t e g e r

I; s w i t c h

 

p: =

Ml,

Ml,

Ml,

M 2 ,

M 2 , Ml,

Ml,

 

M2,

Ml,

Ml,

M2,

M2,

M2,

M 2 ;

 

 

 

 

 

 

 

 

 

 

 

 

f o r

i: =

 

1 step

1 u n t i l

14

do

begi n

g o t o P [/]; M l : у [/]: =

2 x

x [i];

g o t o

M3; M2-. _y [ t ] :

=

0.5 Xx[i};

 

M 3 : en d

e n d

 

 

 

 

 

 

 

 

 

 

351.

begin r e a l

x,

 

v,

 

a,

b,

c,

s w i t c h

AS : =

Z.l, 7.2, Z.3, Z.4, /.5;

 

 

 

 

 

 

 

g o t o

P S

[a +

2};

 

L \ : y: =

a +

b X

x

+

с X x

\ 2;

g o t o

Z.6;

Z.2: y:

=

(a X sin ( x ) ) t 2;

 

g o t o

 

16;

7.3:

/ . =

s i ; r t ( e - f

4 x

4

g o t o

7.6;

L4: у: =

a X

In (abs

(x));

g o t o

 

L6; Lb: у: = a x

x

J 4/4 -4- 6 x

-v J 2/2; Z.6: e n d

 

 

 

 

 

 

352.

x =

2.5,

 

 

y = 11.3.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

353.

S=

 

100.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

354.

1)

0.24,

2)

0.84.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

355.

1 ) л - =

4,

v =

20, 2 ) л - = 2,

у =

20, 3) х =

2, у = 20,

4) х =

 

2,

у = 20.

356.

1) 3' =

84,

 

2) у

 

=10,

 

3 ) ^ = 1 0 ,

 

4) .у = 1 0 .

 

 

 

 

 

 

 

 

 

 

357.

Ф о р м а л ь н ы е

 

п а р а м е т р ы

п р о ц е д у р ы :

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

х — и д е н т и ф и к а т о р м а с с и в а к о о р д и н а т т о ч к и Ри

 

 

 

 

 

 

 

 

 

 

 

у — и д е н т и ф и к а т о р м а с с и в а к о о р д и н а т т о ч к и Р 2 ,

 

 

 

 

 

 

 

 

 

 

п — р а з м е р н о с т ь п р о с т р а н с т в а ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

d — р а с с т о я н и е м е ж д у д в у м я т о ч к а м и ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p r o c e d u r e

R(x,

 

у,

 

п, dy, a r r a y

х,

 

у; r e a l

я ,

d;

 

 

 

 

 

 

 

 

 

 

 

begi n

r e a l

і; d: =

0;

fo r

і: =

1 ste p

1 u n t i l

я

 

do

d: =

d -f-

 

 

 

 

(л- [і] —у

[і]) \2;

d: =

sqrt

(d)

en d

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

358.

Ф о р м а л ь н ы е

 

п а р а м е т р ы

ф у н к ц и и :

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

х — и д е н т и ф и к а т о р м а с с и в а ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

л — к о л и ч е с т в о

 

э л е м е н т о в в м а с с и в е ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

r e a l p r o c e d u r e

 

у

{х,

л) ; v a l u e

и;

 

a r r a y

х;

r e a l

я ;

 

 

 

i f A

[ /

] <

 

 

 

begi n

r e a l

г ,

і;

r. =

 

x[\\,

f o r і: =

 

2

ste p

1 u n t i l

n

do

r : =

r t h e n

Л: [r]

else

r; _y: =

r

e n d

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

359.

B o o l e a n p r o c e d u r e

 

w

( A , y,

z);

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

w: =

-\[x

 

V lJ') = 2 V ~\x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

360.

Ф о р м а л ь н ы е

 

п а р а м е т р ы :

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x — к о р е н ь у р а в н е н и я ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

А

н

 

В— г р а н и ц ы

 

о т р е з к а

[А,

В],

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f—идентификатор

 

 

 

 

ф у н к ц и и

f{x).

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p r o c e d u r e

Sq

(х,

А,

 

В,

/ ) ;

r e a l

х,

 

А, В;

r e a l

p r o c e d u r e / ;

 

 

 

 

 

 

 

begi n

r e a l

a,

b,

 

c,

r l , r2 ; a: = A;

 

b: =

B;

 

M: i f abs

(а — й ) ^ 2 1 0

5 t h e n

 

g o t o

Ml;

 

c: =

(a +

b)j2;

r l : = / ( c ) ;

i f

r

l

=

0

 

t h e n

g o t o

M l ; r2:

=

/ ( a ) ;

i f

 

sign

( r l

X r2 ) =

 

— 1

t h e n

 

u: =

 

c

else

 

a: =

 

c;

g o t o

M ;

Ml:

x:

=

(a +

b)l2

end ;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

r e a l p r o c e d u r e

f

{x);

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f: = .v- J 3 + a x x + b;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

361.

 

О б о з н а ч е н и я :

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a—идентификатор

 

 

 

 

м а с с и в а

 

э л е м е н т о в

м а т р и ц ы ,

 

 

 

 

 

 

 

 

 

 

 

b—идентификатор

 

 

 

 

м а с с и в а

 

п р а в ы х

частей ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

х—идентификатор

 

 

 

 

массива

 

к о р н е й ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

л — р а з м е р н о с т ь м а т р и ц ы .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

begi n i n t e g e r

л;

 

read

(л); begi n

a r r a y а [1 :0.5

X

( л | 2 -4- л ) ] , b [ 1 : л ] ,

д : [ 1 : л ] ;

 

r e a l

г;

i n t e g e r

і,

у,

 

k,

т;

1г: =

\;

т: =

1

;

 

fo r

/ : = 1

ste p

1 u n t i l

л

do begi n г: =

0;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

X A- [/]; m: =

 

 

 

f o r

і: =

1 ste p

1 u n t i l

й — 1

do

begi n

 

r. =

r +

a[m]

/n +

l

end;

л- [/']: =

( i [;'] — r)\a

[m];

 

k: =

k +

1;

w: =

m +

1 end; рг/лг:

(A-) e n d

e n d

362.

 

begi n

a r r a y

A [1 : 8 ] , / [ 1 : 8], F[l:

 

48];

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

r e a l

г,

г/,

r/2 , yi,

yi\,

yi2,

ril;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i n t e g e r

/,

/;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

r: =

0.01;

read

( A , / ) ;

f o r y': =

l

ste p

1 u n t i l 48 do b e g i n

i f r 3 = x

[7] Л

r e £

A - f 8 ]

t h e n

begi n

П : =

А [ 6 1 ;

 

r i l : =

x

[7];

П ' 2 : = А [ 8 ] ;

y i : = / [ 6 ] ; yil:

=f

[7];

v i 2 : = / [ 8 ]

e n d

else

 

begi n

f o r

i : =

 

1 ste p

1 u n t i l

 

7

 

do

i f

r^x[i]

 

 

f \

r

<

. v [ i +

l ]

t h e n

 

begi n

r/: =

A [ i ] ;

r i l : =

x

 

[i +

1];

r i 2 : = x [i +

2];

> " ' : = / [ < ' ] ;

д л і : = / [ ( ' +

1]; j ; i 2 : =

/ [ i +

2];

g o t o

M

end;

end;

 

M : F[;"]:

=

( r — rl)

X ( r —

r / ' l ) / ( ( n 2

 

r i )

X

 

(r/ 2 — r i l ) ) x_yi2 +

( r — r i ) X

( r — n ' 2 ) / ( ( r i l — ri)

X ( r i l —

r/2))

X

yil

+

(r—ril)

 

X

( r — r / 2 ) / ( ( r i — r i l ) X ( r i — ri2) ) X yi;

r: =

r

- | - 0.01

end; print

(F)

e n d

 

A , y,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

363. begi n

r e a l

 

xO,

yO,

R;

B o l l e a n

det;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

read

 

( A , y,

A O ,

 

yO,

 

R);

det: = i f (x

— xO)

\ 2 +

(y — yO)

\ 2

^ R \ 2

t h e n

t r u e else

false;

print

 

(det)

 

e n d

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Соседние файлы в папке книги из ГПНТБ