книги из ГПНТБ / Гемст В.К. Процедуры АЛГОЛ-60 в примерах [практикум]
.pdf’FOR’Ri»! 'sTEP’I'ONTILi’n 'DO ’TEMPj*TEMPIMU1jT(/R/) .
DETERMINANT J-TEMP.,
RETURN:
'ENU’DETERMINANT.,
TESTBLQCK:
'BEGIN’
’INTEGER^.,
ihput(i ,n ).,
'BEGIN* *ARR/Y’A(/i:N,l:N/)., INPUT(1,A).,
OOTPUT(3,’(F*),DETERMINANT(A,N))
'END*
'ENJ*TESTBi.,OCK
'END'PROGRAMM.,
Массив исходных данных:
+5i
+2,37<tI5.
+1,32457.
+2,25358.
+I,35&77.
+0,58373.
+1,47132.
+2,24315.
+3,53837.
+2,56371.
+1,83921.
+4,17354.
+2,12839'»
+1,78538.
71
|
|
+0,37859, |
i.. |
' . |
+3,24578, |
' |
|
+1,37531, |
|
|
+0,28453. |
|
|
+2,58389. |
|
|
+3,57352. |
, ■ |
|
+2,54783. |
|
|
+1,57893. |
|
|
+4,38921. |
|
|
+2,55431. |
|
|
+1,73894. |
|
|
+3,47579. |
|
Результат |
вычислений +7419662 +02 совпадает с результате» |
+74,1966, полученным вычислениями вручную [l4j.
2.3.4, Сдогевич д в у х одномерных матриц Произвести сложение двух одномерных матриц А и В
3 |
2,36 |
|
? |
4 |
-2,1 |
|
T |
3,6 + |
3,2 |
= |
т |
7 |
4 |
|
~ |
8,3 |
-9,0 |
|
? |
|
|
|
1I.I |
А |
Е |
|
С |
Решение. Исходная |
программа: |
|
|
- 01-
ТРАНСЛЯТОР МЭИ-3
'BteiN'
‘PROCEDURE Y'ATADKA ,B,N,C)., ‘v a u i e 'n .,
'i m t e g e r ’n ., 'ARRAY’А,В,С.,
'b e g i n *
’INTEGER*!.,
*FOR’lfrSTEP*i’U N m V 0 O ’C(/I/)8-A(/I/)+B(/I/)
*EUD*MATA01.,
TESTbuOCK:
’BEGIN*
■’INTEGER’N.,
INPUT(l.N).,
’BEGIN*
'ARRAY ’A,B,C(/i;N/);,
INPUT(i,A,B),,
MATAJi(A,В,N,C)..,
OUTPUT(S,*(E *),C)
’end’
’END’TEoTBbOCK
’ENU’PROGRAMM., |
|
Массив исходных данных: |
|
+5. |
|
+3C00000 |
01. |
+4000000 |
01. |
+3600000 |
01. |
+7000000 |
01. |
+8300000 |
01. |
+236GC00 |
01. |
-2100000 01. |
|
+3200000 |
01. |
+4000000 |
01. |
-9000000 01.
Результат вычислений, полученный на узкой печати, +5359999 +01 +1899999 +01
73
|
I |
+6799999 |
+01 |
+1100000 |
+02 |
-6999999 |
+00 |
совпадает |
с |
результатом |
полученным вычислениями вручную. |
|
2,3.5, |
Сложение двухмерных матриц |
|
Произвести сложение двух двухмерных матриц А и В размер |
|||
ности П |
= 5 |
и Л1 » 2 _______________ |
|
-3,1 |
2,0 |
4,2 |
4,3 . |
4,5 |
-3,2 |
2,0 |
1,2 |
0 |
2,1 |
-3,6 |
2 Д |
4,0 |
3,2 |
0,5 |
-0,34 |
0,75 |
1,21 |
4,3 |
5,6 |
|
А |
|
В |
Решение. Исходная программа:
-01-
ТРАНСЛЯТОР УЭИ-З
' вши '
??
??
?9
v__ ?
??
С
'PU0CEl>UkE*MATAD2(A,B,N,M,C).,
*VA1ljUE*U,M, ,
’INTEGER *Н,М.,
•ARRAY'A.B.C.,
, 'BEGIM'
•14TEGF,h 'I,K.,
,E0R'l:-l*STEP'l'y:)TIb'M,D0” F0a'K:»l’STF,P,l'UfiTIb,M*i)0
’C(/I,K/):-A(/l,K/)+B(/I,K/)
'Е!й)’ИАТА02»,
TE6TBL0CK:
*BEG1H’
74
’integer ’n,m .,
ItffUT(i,;j,M),,
’BEGIN’
’ARRAY ’A ,B,C(/i ;N,i tM/)
INPUT(1,A,B)., ” ” '
MATAD2(A,В,N,M,C).,
0DTPUT(3,’(E’),Cj '
’end’
’EHU’TECTBbOCIC
'END’PKOGRAMM.,
Массив исходных данных:
+5.
+2.
-3100000 01.
+2000000 01.
+4500000 01. -3200000 01.
+0000000 00.
+2100000 01.
+4000000 01.
+3200000 01.
+7500000 00.
+1210000 01.
+4200000 01.
+4300000 01.
+2000000 01.
+1200000 01. -3600000 01. +2100000 01. +5000000 00. -3400000 00.
|
|
+4300000 |
01. |
|
|
|
||
|
|
+5600000 |
01. |
|
|
|
||
Результаты |
вычислений, |
полученные |
на узкой печати, |
|||||
|
|
+1099999 |
+01 |
|
|
|
||
|
|
+6299999+01 |
+4499999 |
+01 |
||||
|
|
+6499999 |
+01 |
+2859999 |
+01 |
|||
|
|
|
|
|
||||
|
|
-1999999 |
+01 |
+5049999 +01 |
||||
|
|
-3599999 |
+01 |
+6610000 |
+01 |
|||
|
|
|
|
|
||||
|
|
+4199999 |
+01 |
|
|
|
||
совпадают с |
результатами, |
полученными |
вычислениями |
вручную. |
||||
|
2.3.6, |
|
Сложение-вычитание |
двухмерных |
||||
Произвести сложение матриц А и В и вычитание матрицы |
||||||||
от А. |
|
|
|
|
|
|
|
|
0 |
+2,3 |
+3 |
-1,2 |
+2,2 |
-I |
|||
-4 |
+1 |
j В * |
+2 |
+3 |
|
+3 |
|
-*.2 |
+3,2 |
-2,2 |
-2,2 |
+3,2 |
-2,1 |
+4 |
|||
Решение. |
Исходная программа: |
|
|
|
|
|||
|
|
- 01- |
|
|
|
|
|
|
|
ТРАНСЛЯТОР МЭИ-3 |
|
|
|
|
|
||
'BEGIN* |
|
|
|
|
|
|
|
|
’РКОСЕ0URE ‘МАТАS(A,B,M,M,T,C). , |
|
|
|
|||||
‘v a l u e 'м,м:, |
|
|
|
|
|
|
||
REAL Т ,§ |
|
|
|
|
|
|
|
|
*INTEGER‘M,M,, |
|
|
|
|
|
|
||
‘ARRAY‘А,В,С,, |
|
|
|
|
|
|
||
'BEGIN* |
|
|
|
|
|
|
|
\ |
'INTEGER *1,К., |
|
|
• |
|
|
\ |
||
‘FOR *1:*■!‘STEP ’1‘UNTIL ViX) *‘PQR *К:»1 'STEP,*!'UNTIL "M'DO
76
*С(/1,К/):»А(/1,Я/)+ТХВ(/1,К/) 'END'MATAS.,"
TESTBLOCK; 'BEGIN* "
'INTEGER INPUT(1, N,M),, 'b e g i n '
’ARRAY'A,B,C,0(/i:N,isM/)i, 1ЮТТ((1»А,В,0)., " " ' ■
■OUTm<s/<F,')fC).," 1<IATAS<A<D<М,М;-1:o ,C)i ,
*jyC) '
’€N0* 'ЕЯй'ТЕЗГаиОСК
’EMD'P.ROGRAMM.<
Массив исходных данных-:
+2'.
+0,0'.
+2,3>
-4,a.
+i,o;. .
+3,2'.
- 2 , 2.
+3,01.
- 1 , 2 .
+2,0. \
+3,0. ' -2,2.
77
+3,2.
+2 ,2.
- 1 , 0 .
+3,0.
-4,2.
-2 , 1 .
+4,0.
Результаты вычислений, полученные на узкой печати, +2999999 +01
+1100000 +01
-2000000 +01
+3999999 |
+01 |
+1000000 |
+01 |
+9999999 |
+00 |
-2199999 +01 |
|
+3300000 |
+01 |
-6999999 |
+01 |
+5199999 |
+01 |
+5299999 |
+01 |
|
|
-6199999 +01 |
|
|
|
совпадают с результатами, полученными вычислениями |
вручную. |
||||
2,3.7. |
|
Вычитание одномерных матриц |
|
||
Произвести вычитание матрицы А от матрицы В. |
|
|
|||
-4,2 |
+.1 |
-I |
+3 |
-2,4 |
-1,2 |
Решение. Исходная |
программа: |
|
|
|
|
- 01-
ТРАНСЛЯТОР МЭИ-3
’ВЕ01П*
‘PROCEDOKE*MAT$Ui(A,B,N,C).,
’VAuUE'm .,
INTEGER’N,, ’А Ш У ’А,в,С., ’eean*
'i n t e g e r’i.t ><3e*H-t*BTCI>*l*UNTIb*N'D0’C(/l/):-A(/I/)-B(/I/)
’END’MATSCt.,
TESTBuOCK:
*1;ЛЕСЕЙ ’|J,,
|4WT(1,N)»,
's®ejK*
'ARRAY >,Й,С</ИЧ/)., 1 Ч Н Ш 1 #А,»)., MAT;>0l<A,«,N,c).f •0DTPtJT<8,’(f ’),C)
'END* 'END’TEBTBjOCK
'fMit'Pl.OfikAMM., ■ f
Массив исходных данных: j +"!•
+3.JD.
-4,2.
+ 1 ,0 .
+0,0.
. +3,0.
-2,4,
- 1 ,2 . ,
79
Результаты вычислений, полученные на узкой печати, +4000000 +01
-VI99999 +01
+3400000 +01
+1200000 +01
совпадает о теоретически ожидаемыми.
2.3.8. Вычитание двухмерных матриц Произвести вычитание матрицы Б от А.
0 |
+2,3 |
+2,2 |
-I |
-4 |
+1 |
В = +3 |
-4,2 |
+3,2 |
-2,2 |
-2,1 |
+4 |
Решение. Исходная программа:
- 01-
ТРАНСЛЯТОР МЭИ-3
'BEGIN*
'PROCEDURE ’MATSU2(А,В,N,М,С).,
"VALUE *1ч,М., *lNTEOEr.*N,M., ‘ARRAY *А,В,С,,
i 'BEGIN' 'INTEGER*!,К.,
'f o r *n»i's t e p 'i 'o n t i l 'n 'do '"POft’K:- i’STEP'l u n t i h 'm 'do
‘c(/l,K/)l-A(/l,K/)-B(/!,K/)
'END'MATsOS.,
TESTBLOCK:
‘BEGIN*
'int e g e r’n .m .,
InPUT(1,N,M).,