Параллельные вычисления. Баканов В.М. - 123 стр.

UptoLike

Составители: 

- 123 -
#include <txx>
#include <stdio.h>
#include <stdlib.h>
struct tree {
struct tree tptr left;
struct tree tptr right;
int value;
};
struct tree tptr create_tree(int deep) {
struct tree tptr res = new tval tree;
res->value = 1;
if (deep <= 1) {
res->left = NULL;
res->right = NULL;
} else {
res->left = create_tree(deep-1);
res->right = create_tree(deep-1);
}
return res;
}
tfun int tsum(struct tree tptr tree) {
tval int leftSum, rightSum;
if (tree->left != NULL) {
leftSum = tsum(tree->left);
} else {
leftSum = tree->value;
}
if (tree->right != NULL) {
rightSum = tsum(tree->right);
} else {
rightSum = tree->value;
}
return leftSum + rightSum;
}
tfun int main (int argc, char* argv[])
{
struct tree tptr tree = create_tree(12);
printf("sum = %d\n", (int) tsum(tree));
return 0;
}
Приложение 4.
НОРМА- программа умножения матриц
[c]=[a]
×
[b]
размерностью
a[iMAX][kMAX], b[kMAX][jMAX], c[iMAX][jMAX]
на линейке процессоров размерности 12
MAIN PART MMmatrix.
! Программа умножения матриц (основной раздел)
BEGIN
Oi: (i=1..iMAX). ! определение одномерных областей
Oj: (j=1..jMAX).
                                                - 123 -


 #include 
 #include 
 #include 
 struct tree {
 struct tree tptr left;
 struct tree tptr right;
 int value;
 };
 struct tree tptr create_tree(int deep) {
 struct tree tptr res = new tval tree;
 res->value = 1;
 if (deep <= 1) {
 res->left = NULL;
 res->right = NULL;
 } else {
 res->left = create_tree(deep-1);
 res->right = create_tree(deep-1);
 }
 return res;
 }
 tfun int tsum(struct tree tptr tree) {
 tval int leftSum, rightSum;
 if (tree->left != NULL) {
 leftSum = tsum(tree->left);
 } else {
 leftSum = tree->value;
 }
 if (tree->right != NULL) {
 rightSum = tsum(tree->right);
 } else {
 rightSum = tree->value;
 }
 return leftSum + rightSum;
 }
 tfun int main (int argc, char* argv[])
 {
 struct tree tptr tree = create_tree(12);
 printf("sum = %d\n", (int) tsum(tree));
 return 0;
 }
                                                                             Приложение 4.

                                            НОРМА- программа умножения матриц [c]=[a] × [b]
                                 размерностью a[iMAX][kMAX], b[kMAX][jMAX], c[iMAX][jMAX]
                                                      на линейке процессоров размерности 12

MAIN PART MMmatrix.
! Программа умножения матриц (основной раздел)
BEGIN
  Oi: (i=1..iMAX). ! определение одномерных областей
  Oj: (j=1..jMAX).