Файл: Гемст В.К. Процедуры АЛГОЛ-60 в примерах [практикум].pdf
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 27.07.2024
Просмотров: 101
Скачиваний: 2
Результата вычислений к дрограюге |
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 *
