книги из ГПНТБ / Гемст В.К. Процедуры АЛГОЛ-60 в примерах [практикум]
.pdfРезультата вычислений к дрограюге |
2«7.9. |
и
0
I
2
3
4
5
1---------------- |
2 |
| |
+5844799+05
+2000000 +01
+3999999 +01
+1000000 +СЯ
-
-
-
з
+3353000 +08
+2000003 + Ш
+3999991 +01
+1000002 +01
-2697275 -06
-
-
4 |
|
5 |
|
6 |
|
+6069447 |
+11 |
+2699676 |
+15 |
+2018055 |
+19 |
+2000009 +01 |
+2000019 +01 |
+2000070 |
+ Ш |
||
+3999948 |
+01 |
+3999734 |
+01 |
+3994760 |
+01 |
+1000035 |
+01 |
+1000296 |
+01 |
+1009002 |
+01 |
-7704890 |
-05 |
-II38966 -03 |
-5424304 |
-02 |
|
+5310316 |
-06 |
+1795220 |
-04 |
+1477423 |
-02 |
- |
|
-9954514 |
-06 |
-1860788 |
-03 |
б |
- |
- |
- |
+8807562 -05 |
- — - |
■ |
|
|
|
Z.8. Процедуры в кодах ЭЦВМ "Минок-22" (транслятор МЭК-3)
2.8.1. Сравнение двух действительных чисел по Bceif разрядам
В качестве контрольного призера для проверки процедуры рассмотрим следующую программу на входном языке транслятора МЭИ-3:
- 01-
160 |
т р а н с л я т о р мэи-г |
’веет*
*BOOLEAN* "PKOCEDURE*EQ(AfВ).,
'VAuOE'A.B.,
•МЕАЬ’А.В.,
L.IBRARYC (160*)) ,,
0UTPUT(3,*(O,EQ(-0.0,0,0),EQ(-0.0,-0.0))
*Е(Ш’
После счета на МП-16 получены следующие результаты:
+О
+I
2,8.2. Подготовление ячейки вида .П -I .,А ..В .
Вкачестве контрольного примера для проверки процедуры см. пример 2.8.5.
2.8.3.Перевод значений угла из радианной меры
вдвоичной системе счисления в градусную меру в десятич ной оиотеме счисления и печать его на цифровое или алфа-
витвоцифровое печатающее устройство
Вкачестве контрольного примера для проверки процедуры
q(едгее рассмотрим следующую программу на входном языке
трансляторе МЭИ-3:
|
- 01- |
162 |
ТРАНСЛЯТОР МЭИ-3 |
’BEGIN’ "PROCEDUKE*DEGKEE(A,В).,
'VAbUE’A,B.,
*KEAL*A,,
’BOOLEAN’В.,
LIBRARY(*(16f")).t
оЕвиЕЕСз.тоегт.'тниЕ’).,
OEGKEE(3.1415e27,'EALSE*).,
OEGREE(0.0,'TiiUE').,
i)EGKEE(0.0,*FAuSE’).,
i)EGfeEE(20.0,'TKUE’)'.,
l)EGKEE(20.0,*?ALCE*)
*ENO*
После счета на АЦПУ получаем следующий результат:
180000007 000000000 «
а на МП-16 следующие строки: +180000007
+000000000
+3
2.8.4.Сохранение и восстановление содержимого
ячеек 0007 |
- 0016 и 0042 - 0061 |
В качестве контрольного |
примера для проверки процедуры СП- |
163 см. пример 2.8.5. |
|
203
|
1 .6 ,5 , Обращение |
матрицы о комплексными алемен^дии |
|
по |
методу Ершова |
В качестве контрольного примера для проверки процедуры |
||
in ve rtc |
рассмотрим следующую программу для обращения мат |
|
рицы с комплексными элементами на входном языке транслятора МЭЙ-38
|
- 01- |
104 |
ТРАНСЛЯТОР МЭИ-3 |
’begin’ |
|
’integer’n., ’PROCEDURE'INVERTC(N,В,А)., 'VADUE’n .,
’integer*n., ’ARRAY*A,B.,
L.IBRARY(•(164’)).,
input(i .n ).,
■BEGIN*
’ARRAY*A(/1:8XN,i:2XN/) tB(/l!2XN/) ., i;sPUT(i,A).t
I4VERTC(H,B,A).,
0UTPUT(3f’(E’),A)
’END’
’END*
При следующей исходной |
матрице |
|
I + 3j |
I +j2 |
|
A * |
|
|
I |
-2j |
I -/3 |
на МП-16 получен результат |
|
|
|
+2000000 +00 |
|
|
-6000000 |
+0.0 |
|
-1999999 +00 |
|
204
-3999999 |
+00 |
-2000000 |
+00 |
+3999999 |
+00 |
+2000000 |
+00 |
+5999999 |
+00 |
который совпадает с искомым |
|
|
|
|
0,2 |
- 0,6/ |
-0,2 |
- |
0,4/ |
-0,2 |
+ 0,4/ |
0,2 |
+ |
0,6j |
в пределах точности работы 8ЦВМ.
2,8,6. Решение системы линейных алгебраических уравнений с комплексными коэффициентами методом
Гаусса В качестве контрольного примера для проверки процедуры
linsystc рассмотрим следующую программу для решения
системы линейных алгебраических уравнений с комплексными ко эффициентами на входном языке транслятора МЭИ-3:
|
-01- . |
|
Г |
165 |
ТРАНСЛЯТОР МЭИ-3 |
’begin' |
| |
’InTEGER’h ., |
; |
•’PU0CEl>UKE’U«SYSTC(i4,A,B)., |
|
’VALUE’N., |
|
’INTEGER*,')., |
|
’ARRAY’a .B., |
j |
LIBRARY(’(165*))., |
|
It)PUT(l, t)., |
\ |
’BEGIN’ |
|
’ARRAY*A(/l:EaN,1:2ZN/) ,B(/l:2Xt)/).,
205
|
iMmu.ji.B)., |
|
- |
|
|
|
|
|
|
|
||||
|
'• ^l4SySTC(:4,A,B) .t, |
|
|
|
|
|
|
|
||||||
|
°итт(з,*(Е')>В) |
|
|
|
|
|
|
|
|
|||||
|
'end" |
|
|
|
|
|
|
|
|
|
|
|
|
|
' E M ’ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
При |
решении |
оиотемы уравнений |
|
|
|
|
|
|
|
|||||
|
|
y |
i |
+ |
0,5 х а + |
|
0,5 |
х э |
= |
3,5 |
+ j 3,5 |
|||
* |
0,5 j |
X, |
+ |
х а |
|
+ |
0,5 j x 3 |
= |
|
]H |
||||
(0,5 + 0,5j ) x ( - (0,25 + 0,25j ) |
x a + x 3 = |
3 + |
j 3 |
|||||||||||
на МП-16 получен |
реаультат |
|
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
+1000000 |
+01 |
|
|
|
|
|
|||
|
|
|
|
|
+1000000 |
+01 |
|
|
|
|
|
|||
|
|
|
|
|
+1999999 |
+01 |
|
|
|
|
|
|||
|
|
|
|
|
+2000000 |
+01 |
|
|
|
|
|
|||
|
|
|
|
|
+2999999 |
+01 |
|
|
|
|
|
|||
|
|
|
|
|
+2999999 |
+01 |
|
|
|
|
|
|||
который |
совпадает о искомым решением |
|
|
|
|
|
||||||||
|
JУ |
|
|
|
х, |
- I + |
7 |
1, |
|
|
|
|
|
|
|
|
|
|
х ш |
* |
2 + |
У 2, |
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|||||
|
|
|
|
|
х, |
* |
3 + |
;'3 |
|
|
|
|
|
|
в пределах точности работы ЭЦВМ. |
|
|
|
|
|
|
|
|||||||
|
2,8,7, |
|
|
Решение |
систем линейных алгебраиче |
|||||||||
|
|
уравнений методом главных элементов |
|
|||||||||||
В качестве |
контрольного |
примера для |
проверки |
процедуры |
||||||||||
lin s y t t |
рассмотрим следующую программу для |
решения оис |
||||||||||||
темы линейных алгебраических уравнений с действительными ко еффициентами на входном языке транслятора МЭИ-3:
|
|
-01- |
* |
166 |
ТРАНСЯЯТОР мэн-в |
'BEGlrj" |
|
|
|
■{ |
|
206 *
INTEGER* л.,
'PKOCEDUKE'UfffiYSTCtM.B).,
’VAUJE’iU,
’INTEGER*!!., ’array’a .b ,, LIBRARY(*(166*))., i n p u t u .n)., ’BEGIN’
•ARRAY'A(/i:2XNtl:2XN/),B(/i:2X.'!/)., IHPUT(1,A,B).,
LL!SYSTC(t!,A,B).,
0UTPUT(3,’(E*),B)
’END’
’ENO’
При решении следующей сиотемы уравнений
|
Д х 1 + 5 х 2 - З х З о - 1 |
||
|
- 7 х1 + 9 х2 |
- 4 хЗ - -I |
|
|
х1 + 2 х2 |
+ 2 хЗ ■ I |
|
на МП-16 получен |
результат |
! |
|
|
+1700000 |
+02 |
|
|
-1200000 +02 |
||
|
+3000000 |
+01 |
|
совпадающий с точным решением х! |
» 17, х2 « -12 и хЗ * 3. |
||
2.8,8. |
Обращение |
матрицы |
методом Гауооа-Жосдани |
свыбором главного элемента
Вкачестве контрольного примера для проверки процедуры invert рассмотрим следующуй программу на входном языке
транслятора УБИ-З для обращения матрицы с действительными ко эффициентами:
207
-01-i
167 |
ТРАНСЛЯТОР МЭИ-3 |
•’b e q i h '
*integer'n.,
’PROCEDURE* 1NVEkT(H,A ,B).,
JVAbUE’N.,
*INTEGER*H.,
Takkay’a .b.,
JjIBRARY( *(167’))., л
IitfUT(l,N).,
’BEGW*
•A m Y 'A (/l» H ,H N /),B (/ljM /).,
lfJPOT(i,A).,
IfJVEBT(M,A,B).,
ootp6t (0,*(e *),a )
.*Etfu’
'E.1J*
При обращении матрицы
1 |
2 |
3 |
2 |
I |
4 |
3 |
4 |
I |
на МП-16 получен результат
-7500000 +00 +5000000 +00 +2500000 +00
+5000000 +00 -4000000 +00 +1000000 +00
+2500000 +00
+1000000 +00
-1500000 +00
208
совпадающий с точным решением |
|
|
|
-0,75 |
0,5 |
0,25 I |
|
0,5 |
-0,4 |
0,1 |
• |
0,25 |
0,1 |
-0,15 | |
|
2,8.9, Ввод и перевод массива значений углов из градусной меры в десятичной системе счисления
врадианную меру в двоичной системе счисления
Вкачестве контрольного примера для проверки процедуры рассмотрим следующую программу на входном языке транслятора МЭИ-3 для ввода углов в градусной мере и вывода их в радман-
ной мере
- 01-
|
170 |
|
ТРАНСЛЯТОР МЭИ-S |
|
’BEGM’ |
|
|
|
|
|
'M TEG En’ u , |
|
|
|
|
’ PHOCEi)Un.E* KEAiJ(A) , , |
|
||
|
•а й на Г а ., |
|
|
|
|
blBivAnY(' (170* )) ,, |
|
||
|
M PUT(1, |
|
|
|
|
*BEGltf' |
|
|
|
|
"АНКАУ*А(/1 j.J/),? |
|||
|
йЕАЭ(А)., |
|
|
|
|
0UTPUT(3,*(E’ ),A) |
|
||
|
*ENi>* |
|
|
|
'EUJ' |
|
|
|
|
Произведем |
ввод и перекодировку пять значении углов 0°, |
|||
90°, -180°, |
720° и 360°, |
которые |
в условном коде записывают |
|
ся следующим |
образом |
|
|
|
|
|
|
|
О |
|
|
90 |
000 |
000 |
209
-180 000 000 |
|
||
720 |
000 |
000 |
|
360 |
000 |
000 |
|
После счефа на МП-16 получен следующий результат |
|||
+0000000 |
+00 |
|
|
+1570796 |
+01 |
|
|
- З Ш 5 9 2 |
+01- |
|
|
+1338085 |
+00 |
' |
|
+8726646 |
-01 |
|
|
который совпадает с искомым. |
||
2,8.10, |
Запись и чтение информации на магнитном |
|
|
|
барабане |
В качестве контрольного примера для проверки правильности |
||
работы процедуры |
y t lt n is |
рассмотрим следующую программу |
на входном языке |
транслятора |
МЭИ-3 для ввода массива, записи |
его на магнитный |
барабан, чтения его с магнитного барабана |
|
и печати полученного массива |
|
|
- 0 1 -
171 |
ТРАНСЛЯТОР мэи-г |
|
*HFGI Г |
|
|
'INTEGER* |
, |
|
’PKOOEOUKE'VEoTHl!'(B,Qfb,A),f |
|
|
’VAOJE’Q.b.B., |
|
|
*BOOuEAK*В., |
|
|
*IMTEGEh’Q,!.., |
|
|
’AKHAY'a ., |
|
|
uIBhAkY ( ’ (171’ ) ) . , |
|
|
I4PUT(1,:iг0,и)., |
’\ |
|
'0F.Gl,r |
|
|
’AHKAY’A ,B ( /l :4 /) . , |
| |
|
210