Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Распараллеливание программ. Учебник
.pdf
11
Конец примера.
Пример 6
DO 99 I=1,100
99 A(I)=D(I,I-1)+A(I-1)
Конец примера.
Пример 7.
DO 99 I=1,N
99 X(2*I)=X(2*I+k)
12
Конец примера.
Пример 8.
DO 333 J=2,N
DO 333 I=2,N
A(I-2,J)=X(2*I-1)
c v1 v2
X(2*I)=X(2*I+3)+A(I,J-1)
c v3 .. . v4 v5
X(2*I+1)=A(J,I-1)
c v6 v7
333 X(2*I+2)=A(I+K,J)+A(I-2,J)
v8 v9 v10
(v1;v7), (v1;v9), (v1;v10), (v4;v6), (v5;v1), (v6;v2),
(v7;v1), (v8;v3), (v9;v1)
Конец примера.
Пример 9.
DO 333 I=1,N
333 A(I+2)=A(N-I)
c v1 v2
v1 – v2
v2 – v1
Конец примера.
Пример 10.
DO 99 I = 1,N
13
A(I) = B+X
X = A(I)
99 CONTINUE
Конец примера.
14
15
Пример 11.
X = X
CONTINUE
BEGIN
END
{
}
IF P THEN
EMPTY
16
ELSE
EMPTY
ENDIF
IF P THEN
EMPTY
ENDIF
Замечание.
17
Пример 12
T = A+B
X = T+C
Y = T-C
write(Y)
T = A+B
Y = T-C
write(Y)
Конец примера.
Пример 13.
DO 99 I = 1, N
IF (X > N) goto 88
T = I*A
X = T+C
Y = T-C
99 write(Y)
DO 99 I = 1, N
IF (X > N) goto 88
T = I*A
18
Y = T-C
99 write(Y)
Конец примера.
Пример 14.
IF (X > N)
D = T+C
T = I*A
Y = T-C
99 write(Y)
IF (X > N)
T = I*A
Y = T-C
99 write(Y)
Конец примера.
19
≤
«≥
Пример 15.
X(I)*2-2*X(I-1) = > 2*X(I)-2*X(I-1)
X(I)*A(I)-2*X(I) => (A(I)-2))* X(I)
X(I)*Y(I)-2*X(I) => X(I) *(Y(I)-2))
Конец примера.
Пример 16.
5*(X-Y)+(A+1)*(X+Y) => 5*X-5*Y+(A+1)*X+(A+1)*Y =>
=>(5+(A+1))*X +(-5+(A+1))*Y => (A+6)*X +(A-4)*Y
Конец примера.
S1
..........
S(k-1)
Sk (1)
S(k+1)
..........
Sm
20
S(k+1)
..........
Sm
S1 (2)
..........
S(k-1)
Sk
Доказательство
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]