Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Распараллеливание программ. Учебник
.pdf
51
99 CONTINUE
DO 99 I = 1, 100
K(I) = X(I+1)
99 CONTINUE
DO 88 I = 1, 100
X(I) = A(I+1)
88 CONTINUE
Конец примера.
Пример 56.
DO 99 I = 1, 100
K(I) = X(I-1)
A(I) = B(I)
X(I) = A(I+1)+K(I)
Y(I) = K(I+1)
99 CONTINUE
DO 66 I = 1, 100
66 Y(I) = K(I+1)
DO 77 I = 1, 100
K(I) = X(I-1)
52
77 X(I) = A(I+1)+K(I)
DO 88 I = 1, 100
88 A(I) = B(I)
Конец примера.
Пример 57.
DO 88 I = 1, 100
X(I) = A(I+1)+A(I-1)
A(I)=X(I+1)*5
88 CONTINUE
DO 88 I = 1, 100
TEMP(I) = A(I+1)
X(I) = TEMP(I)+A(I-1)
A(I)=X(I+1)*5
88 CONTINUE
DO 88 I = 1, 100
TEMP(I) = A(I+1)
A(I)=X(I+1)*5
X(I) = TEMP(I)+A(I-1)
88 CONTINUE
Конец примера.
Пример 58.
DO 111 I = 1, N
A(I) = B(I)+ sin C(I)
C(I) = A(I+1)+B(I)
111 CONTINUE
53
DO 111 I = 1, N
TEMP(I)=C(I)
A(I) = B(I)+ sin(TEMP(I))
C(I) = A(I+1)+B(I)
111 CONTINUE
DO 111 I = 1, N
TEMP(I)=C(I)
111 C(I) = A(I+1)+B(I)
DO 222 I = 1, N
A(I) = B(I)+ sin(TEMP(I))
222 CONTINUE
Конец примера.
Пример 59.
DO 88 I = 1, 100
X(I) = A(I+1)+A(I-1)
A(I)=X(I+1)*5
88 CONTINUE
DO 88 I = 1, 100
TEMP(I) = A(I+1)
X(I) = TEMP(I)+A(I-1)
A(I)=X(I+1)*5
88 CONTINUE
DO 88 I = 1, 100
TEMP(I) = A(I+1)
A(I)=X(I+1)*5
X(I) = TEMP(I)+A(I-1)
88 CONTINUE
Конец примера.
54
DO 99 I = 1, N
G’ = …U’… ,
DO 99 I = 1, N
T(I) = U’
G’ = …T(I)…
Доказательство
Доказательство
Пример 60.
DO 99 I = 1, N
99 X(I) = C(I)*exp(D(I)*X(I-1)+E(I)) + A(I)*B(I)
DO 88 I = 1, N
88 T(I) = A(I)*B(I)
DO 99 I = 1, N
99 X(I) = C(I)*exp(D(I)*X(I-1)+E(I)) + T(I)
Конец примера.
55
Пример 61.
DO 111 J = 1, N
DO 111 I = 1, N
A(I,J) = B(I)+ C(J)
C(J) = A(I+1,J)+B(I)
111 CONTINUE
DO 111 J = 1, N
CC(1,J)=C(J)
DO 222 I = 1, N
CC(I+1,J) = A(I+1,J)+B(I)
222 CONTINUE
DO 333 I = 1, N
A(I,J) = B(I)+ CC(I,J)
333 CONTINUE
C(J) = CC(N+1,J)
111 CONTINUE
Конец примера.
Пример 62.
DO 99 I = 5, 999
A(I) = D(I)
E(I) = A(I-2)+D(I)*C(I)
A(I-3) = F(I)+G(I)
D(I) = A(I-4)
B(I+1) = D(I)
99 CONTINUE
DO 99 I = 5, 999
56
AA(I) = D(I)
E(I) = AA(I-2)+D(I)*C(I)
A(I-3) = F(I)+G(I)
D(I) = A(I-4)
B(I+1) = D(I)
99 CONTINUE
A(997)=AA(997)
A(998)=AA(998)
A(999)=AA(999)
Конец примера.
Пример 63.
DO 99 i = 1, N
99 X(i) =A(i) * B(i)
DO 99 i = 1, N
99 X(N+1-i) =A(N+1-i) * B(N+1-i)
DO 99 i = 1, N
99 X =A(i) # X
Y = $
DO 99 i = 1, N
99 Y = Y # A(N-i+1)
X = Y # X
DO 99 i = 1, N
99 X =A(N-i+1) # X
57
Пример 64.
DO 88 i = 1, N
DO 99 j = 1, i-1
99 H(N-i+1) = H(N+i-1) - A(N-i+1,N-i+j+1)* H(N-i+j+1)
88 H(N-i+1) = H(N+i-1)/A(N-i+1,N-i+1)
DO 88 i = 1, N
DO 99 j = 1, i-1
99 H(N-i+1) = H(N+i-1) - A(N-i+1,N-j+1)* H(N-j+1)
88 H(N-i+1) = H(N+i-1)/A(N-i+1,N-i+1)
Конец примера.
Пр и мер 65 .
DO 99 j = 1, N
99 H(j) = A(j)* H(j+1)
Пример 66.
DO 99 j = 1, N
99 H(j) = A(j)* H(j)
Конец примера.
Пример 67.
DO 99 j = 1, N
99 H(j) = A(j)* H(j-1)
Конец примера.
58
Пример 68.
DO 99 j = 1, N
99 H = A(j)* H +B(j)/ C(j)*H+D(j)
Конец примера.
DO 333 I = 1, N
S1
..........
S(k-1)
Sk
S(k+1)
..........
Sm
333 CONTINUE
Sk
DO 333 I = 1, N
S1
..........
S(k-1)
S(k+1)
..........
Sm
333 CONTINUE
DO 333 I = 1, N
FRAG1(i)
FRAG2(i)
FRAG3(i)
333 CONTINUE
FRAG2(N)
DO 333 I = 1, N
FRAG1(i)
59
FRAG3(i)
333 CONTINUE
DO 333 I = 1, N
FRAG1(i)
FRAG3(i)
333 CONTINUE
FRAG2(N)
Доказательство.
DO 222 I = 1, N
FRAG2(i)
222 CONTINUE
DO 333 I = 1, N
FRAG1(i)
FRAG3(i)
333 CONTINUE
Пример 69.
DO 99 I = 1, 100
X = A+1
K(I) = X
99 CONTINUE
X = A+1
DO 99 I = 1, 100
K(I) = X
99 CONTINUE
Конец примера.
Пример 70.
DO 99 I = 1, 100
60
X = A+X
K(I) = X
99 CONTINUE
X = A+X
DO 99 I = 1, 100
K(I) = X
99 CONTINUE
Конец примера.
Пример 71.
DO 99 I = 1, 100
X = A+X
K = B(I)+7
99 CONTINUE
DO 99 I = 1, 100
X = A+X
99 CONTINUE
K = B(100)+7
Конец примера.
Пример 72.
DO 99 I = 1, 100
X = A(I)+X
K = B(I)+X
99 CONTINUE
Цикл
DO 99 I = 1, 100
X = A(I)+X
99 CONTINUE
K = B(100)+X
Конец примера.
Пример 73.
DO 99 I = 1, 100
K = B(I)+X
X = A(I)+X
99 CONTINUE
DO 99 I = 1, 100
X = A(I)+X
99 CONTINUE
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]