Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Распараллеливание программ. Учебник
.pdf
31
L1 Statement(AA(I),AA(J),...)
Доказательство
L A(I) = expr
L AA(I) = expr
L1 A(I) = AA(I)
Доказательство
PartOfProg(A,B,...)
PartOfProg1
X=expr1
PartOfProg2,
AA=A
BB=B
...........................
PartOfProg(AA,BB,...)
32
A=AA
B=BB
........................
Доказательство
PartOfProg1(A)
A=expr1
PartOfProg2(A),
AA=A
PartOfProg1(AA)
AA=expr
PartOfProg2(AA)
A=AA
AA=A
PartOfProg1(AA)
AA=A
PartOfProg1(A)
AA=expr
PartOfProg2(AA)
A=AA
PartOfProg1(A)
AA=expr
PartOfProg2(AA)
A=AA
PartOfProg1(A)
A=expr
33
PartOfProg2(A)
A=A
Пример 34
DO 99 I = 5, 100
X(I) = B(I)*K(I)
K(I) = X(I-1)+X(I-3)
99 X(I-1) = A(I+1)+X(I-1)
XX(2)=X(2)
XX(3)=X(3)
DO 99 I = 5, 100
X(I) = B(I)*K(I)
K(I) = X(I-1)+XX(I-3)
99 XX(I-1) = A(I+1)+X(I-1)
Конец примера.
Пример 35.
DO 99 I = 5, 100
X(I) = B(I)*K(I)
K(I) = X(I-1)+X(I-3)
99 X(I-1) = A(I+1)+X(I-1)
XX(4)=X(4)
DO 99 I = 5, 100
XX(I) = B(I)*K(I)
K(I) = XX(I-1)+X(I-3)
34
99 X(I-1) = A(I+1)+XX(I-1)
X(100) = XX(100)
Конец примера.
Пример 36.
DO 77 I = 1, M do
X(2*I) = 2*X(I)
77 continue
Конец примера.
ПРЕОБРАЗОВАНИЯ ЦИКЛОВ
DO 999 I=1,N
999 ТЕЛОЦИКЛА(I)
ТЕЛОЦИКЛА(1)
ТЕЛОЦИКЛА(2)
........................
ТЕЛОЦИКЛА(N)
I = N
Пример 37
DO 99 I = 1, 3
X(I) = A(I+1)
35
K(I) = X(I-1)
99 CONTINUE
X(1) = A(2)
K(1) = X(0)
X(2) = A(3)
K(2) = X(1)
X(3) = A(4)
K(3) = X(2)
Конец примера.
Доказательство.
Доказательство.
Доказательство.
36
Пример 38.
DO 99 I = 5,100,10
99 X = A+B
99 X = A+B
Конец примера.
Пример 39
DO 99 I = 5,100,10
99 X = A+X
99 X = A+X
Конец примера.
Пример 40.
DO 99 I = 5,100,10
99 X = A(I)+B
99 X = A(100)+B
Конец примера.
Пример 41.
DO 99 I = 5,100,10
99 X = A(I)+B*I
37
99 X = A(95)+95*B
Конец примера.
Пример 42.
DO 99 I = 5,100,10
99 X = X+1
99 X = X+1
Конец примера.
DO 99 I=L, N, h
99 ТЕЛОЦИКЛА(I)
DO 99 J=1, (N-L+1)//h
99 ТЕЛОЦИКЛА(h*(J-1)+L)
Замечание.
I = (h*(J-1)+L).
38
Пример 43.
DO 99 I = K-1, N, 2
if (A(I)<X) goto 99
K = B+X
99 X = I+X
DO 88 J = 1, (N-K)//2
if (A(2*(J-1)+K-1)<X) goto 99
K = B+X
99 X = 2*(J-1)+K-1+X
88 CONTINUE
Конец примера.
DO 99 I=1,N
99 ТЕЛОЦИКЛА(I)
DO 99 I=1,M
99 ТЕЛОЦИКЛА(I)
DO 88 I=1,N-M
88 ТЕЛОЦИКЛА(I+M)
DO 99 I=1,N
99 ТЕЛОЦИКЛА(I)
DO 99 I=1,M
99 ТЕЛОЦИКЛА(I)
DO 88 I=M+1,N
88 ТЕЛОЦИКЛА(I)
39
Пример 44.
DO 99 I=1,100
99 X(I)=Y(I-1)
DO 99 I=1, 99, 3
X(I)=Y(I-1)
X(I+1)=Y(I)
99 X(I+2)=Y(I+1)
DO 88 I=100,100
88 X(I)=Y(I-1)
Конец примера.
DO 99 I=1,N
99 ТЕЛОЦИКЛА(I)
40
DO 99 I=1,N
99 ТЕЛОЦИКЛА(I)
DO 99 I=1,N//h
DO 99 J=1,h
99 ТЕЛОЦИКЛА(h*(I-1)+J)
DO 88 I=1,N-(N//h)*h
88 ТЕЛОЦИКЛА((N//h)*h+I)
DO 99 I=1,N
99 ТЕЛОЦИКЛА(I)
DO 99 I=1,N,h
DO 99 J=1,h
99 ТЕЛОЦИКЛА(I+J-1)
DO 99 I=1,N
99 ТЕЛОЦИКЛА(I)
DO 99 J=1,h
DO 99 I=1,N//h
99 ТЕЛОЦИКЛА(I+(J-1)*(N//h))
DO 88 I=1,N-(N//h)*h
88 ТЕЛОЦИКЛА((N//h)*h+I)
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]