Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Распараллеливание программ. Учебник
.pdf
21
Конец доказательства.
Пример 17.
10 X(K) = A(I+1)
15 A(I+1) = 1
10 A(I+1) = 1
15 X(K) = A(I+1)
Конец примера.
Пример 18.
10 X(K) = A(I+1)
15 A(I) = 1
10 A(I) = 1
15 X(K) = A(I+1)
Конец примера.
Пример 19.
10 IF (C<0)
15 L = A(I+1)
20 B = X(K)
10 IF (C<0)
20 B = X(K)
15 L = A(I+1)
22
Конец примера.
2
23
Пример 20.
DO 99 I = 1, N
X(I) = A(I+1)
K(I) = X(I+1)
99 CONTINUE
DO 99 I = 1, N
K(I) = X(I+1)
X(I) = A(I+1)
99 CONTINUE
Конец примера.
Пример 21.
DO 99 I = 1, N
X(I) = A(I+1)
IF X(I)<0 THEN K(I) = X(I)
99 CONTINUE
DO 99 I = 1, N
IF X(I)<0 THEN K(I) = X(I)
X(I) = A(I+1)
99 CONTINUE
Конец примера.
24
Пример 22.
10 X(K) = A(I+1) + B
20 B = X(K)
10 X(K) = A(I+1)+B
20 B = A(I+1) + B
Конец примера.
Пример 23.
goto 77
..................
T = 5
77 A = T+E
B = 2*T
goto 77
.....................
T = 5
77 A = 5+E
B = 2*5
Конец примера.
S1 X(F1) = expr(A,B,...)
v1
..................... (3)
Sm ... = ...X(F1)...
v2
25
Доказательство
S1 X(F1) = expr(A,B,...)
........................ (4)
Sm ... = ...expr(A,B,...)...
Пример 24.
goto Sm
..................
S1 X(K) = A+B
X(K) = 1
A = T+E
S B = 0*X(K) +C
goto Sm
..................
S1 X(K) = A+B
X(K) = 1
A = T+E
Sm B = 0*(A+B) +C
Конец примера.
26
Пример 25.
10 IF (C<0)
15 X(K) = A(I+1)
20 B = X(K)
10 IF (C<0)
15 X(K) = A(I+1)
20 B = A(I+1)
Конец примера.
Пример 26.
10 X(K) = A(I+1)
15 X(K) = 1
20 B = X(K)
10 X(K) = A(I+1)
15 X(K) = 1
20 B = A(I+1)
Конец примера.
Пример 27.
10 X(K) = A(I+1)
15 K = 1
20 B = X(K)
10 X(K) = A(I+1)
15 K = 1
20 B = A(I+1)
Конец примера.
Пример 28.
X(K) = A(I+1)
I = 1
B = X(K)
X(K) = A(I+1)
I = 1
B = A(I+1)
27
Конец примера.
M S1
..........
Sk expr(A,B,...)
................ (5)
Sm expr(A,B,...)
M S0 T = expr(A,B,...)
S1
..........
Sk T
................ (6)
Sm T
Доказательство.
Конец доказательства.
Замечание.
28
Пример 29.
DO 77 K = 1, N
DO 77 J = 1, N
DO 77 I = 1, N
IF ( A(I,J) > A(I,K)+A(K,J) )
A(I,J) = A(I,K)+A(K,J)
77 CONTINUE
DO 77 K = 1, N
DO 77 J = 1, N
DO 77 I = 1, N
T = A(I,K)+A(K,J)
IF ( A(I,J) > T )
A(I,J) = T
77 CONTINUE
Конец примера.
Пример 30.
IF ( X > 0 ) THEN
A = C+D+E
B = 2*(C+D)
IF ( X > 0 ) THEN
T = C+D
A = T+E
B = 2*T
Конец примера.
Пример 31.
A = A+C
A = A+B
29
C = 3*A
A = A+A+C
write(A)
A = A+C
AA = A+B
C = 3*AA
A = AA+AA+C
write(A)
Конец примера.
Пример 32.
A = B+C
IF K>0
A = A+B
ENDIF
C = 3*A
A = B+C
IF K>0
AA = A+B
ENDIF
C = 3*AA
Конец примера.
Пример 33.
A = A+C
A = A+B
777 C = 3*A
A = A+A+C
write(A)
A = A+C
AA = A+B
777 C = 3*AA
A = AA+AA
write(A)
Конец примера.
30
PartOfProg1
Operator
PartOfProg2,
Доказательство
L Statement(A(I),A(J),...)
L AA(I) = A(I)
AA(J)= A(J)
. . . . . . . . . . . . . . . . . . . . . . . . . . .
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]