Файл: Семененко В.А. Вычислительная техника в инженерных и экономических расчетах учеб. пособие для студентов всех специальностей.pdf

Составляем программу в

условных адресах:

Т а б л и ц а 47

№

ячеек

к о п

А ,

Аг

Аз

Примечание

програм­

мы:

г

2

3

4

5

6

N + 1

П

0000

Рі

Очистка ячейки рі

N + 2

X

а + 1

ß + 1

Р2

Х ѵ У і ^ р,

N + 3

+1

Рг

7 + 1

Рз

Х і ’Уі + Ві р а

N + 4

—

Рз

Е + 1

Рз

X f Y i + £(• — Ѵі

N + 5

X

Р2

Яі

Рі

N + 6

X

?і

Т + І

Рі

D i - Ра

N + 7

—

Рз

Pi

Рз

* і-Г { + Д | - V | - D i

N + 10

—

Р2

Яі

Рб

ш =.0, если

Xi-Yi + Ві > 100

N + 11

УПш,

N + 1 4

N + 12

X

Рб

Яз

Рб

14 -32

209

Вычислить

Z ; =

A + t f

где/ =

1 ~ 1000.

Циклическая прогаам-

0.357

ма на АЛГОЛе запишется в виде:

begin teal array jt. у,

z

[1:1005];

integen /; for

i: — 1

step

1 until

1000 do

z[Z]: =

(jc[t]

1 2 +

//[/]

f

2)/0,357;

output(г[і\) end.

Здесь

real

array

x,

у,

г

[1 : 1000]

задает імасснв

действительных

чисел

-VI, у і ,

zi

с индексом

і =1 ~

1000.

Элемент списка

цикла

1 step

1 until

1000 определяет

последователь­

ность с шагом 1:

2=

1,

2=1 + 1, 2=

1 +

1 + 1, . . J до

1000.

Пример 2. Вычислить

Z; =

"j/" yj +1 для

і =

1 =

100,

где уі

=

-t? +

+ 0,75 и напечатать

уі и Z;.

Циклическая программа на АЛГОЛе:

2; for

èegin

real

array х,

у,

z

[1:100]-,

infèger

i : =

1

step

1 until

100 do

begin y[i] : = x [2]

t

3 +

0,75;

output (y\i})\

z [2]: =

sqrt (2Д2] t

2 + 1)

output (Z [/]) end end

Пример 3. Вычислить

x) +

17,9 л:? +

123,

а <

1

Уі =

л:?- 1 ,8 9 5 ,

1

<

а <

16

ctg

Xi,

22

>

16

где

а

Л' /

+ 0

' 2 5

■

•

7ОД

- — -------------- ,

2= 1

+-

1739,

sin Xi + 2

Напомним, что при решении выражений

такого

типа в АЛГОЛе

используются условные операторы типа

і/ В then

V else 5

или

i f В then

V,

где В — булевское выражение,

V —: безусловный оператор,

S —іліобой оператор.

Тоща программа на АЛГОЛе запишется

в

виде (вначале

вычис­

лим а):

begin

real

array х,

2/(1:1739);

real a;

integer/;

for/:

=

1

step 1 until

1739

do

begin

a: = (* [/]

t

3 +

0,25)/(sin(лг[(/])+2);

if 2i <

1 then

2/[Z]: =

JC[Z] t

4 +

17,9 X x[i]

t 3 +

123

else

if a > 16

then

y[t\: =

cos (x[/])/sin (JC[i])

else

2/[/]: =

x[i]

t 3 — 1,895;

output y[i])

end end

П

Пример 4. Вычислить

у — m 2

/= 1

Программа на АЛГОЛе:

begin

real

array

х,

у[\:п);

integer/;

real

sum,

у,

m; sum: = 0 ;

for/: = 1 step 1 until n do

begin

sum: =sum + x\i\ end

у: =

m X sum; output (у) end

Пример 5.

Вычислить у = a.v3 + bx2 +

cx + ,

где

jc =

1, 2,

3 ... n.

На АЛГОЛЕ программа запишется в виде:

begin real у, a, b, с,

d;

integer

х;

for

х: = 1 step

1

until

п do

begin

у: =

яХ-*|3 + 6Х -*|2+сХ д:+^; output

(у) end end

Пример

6. Написать на АЛГОЛЕ

программу вычисления.

Программа запишется в виде:

У = я!

begin integer п, i, а;

а: =

1;

fori: =

1 step

1

until п do

c,

d),

АЛГОЛЕ.axi;

output

(a) end

а: —

Пример 7. Найти

Z =

min(a,

b,

написать программу на

Программа

с,

d,

х,

у;

begin

real

a,

b,

if а

<

b then х: =

a

else

х: = 6;

if с <

d

then

у: — с else у: =

d;

іi x

< у

then

output

^ )else output (у)

end.

Пример 8. Составить программу подсчета себестоимости изделия, ис­

пользуя уравнение примера 1 § 2—б:

begin

integer

/,

«;

real Ml,

М2,

N1,

N2,

s,

sum;

real array р[1:л];

sum: —0;

tor /: = 1 step

1

until

n do

begin

sum: =

sum + /?[i]

end;

/

s: = (100 + N1 4- N2)/100

sum +

Afl

+ М2; output (s) end.

Пример

9.

Составить

программу

для

расчета

стоимости материалов

в соответствии с формулойx

примера 2 § 2—5:

begin

integer j ,

k; real S;

real

array

C,

Q,

T[\:k\;

integer

array

m

[I:ft];

s: = 0 ;

for /: = 1 step 1 until k do

begin s: = s + C [/] x

m [j ] X Q [/] X (I +

T [/]/100)

end

output

(s)