Міністерство освіти Російської Федерації
Волгоградський державний технічний університет
Кафедра прикладної математики
Семістровая робота з теми:
ПРОЦЕДУРИ ТА ФУНКЦІЇ
Виконав: студент групи
Перевірив:
Волгоград 2003
1. Завдання
1.1.
Ввести двовимірний масив. Знайти суму елементів з непарними індексами.
1.2.
Ввести двовимірний масив. Отримати одновимірний масив включає все ненульові елементи матриці. Знайти модуль отриманого вектора.
2.1. Блок-схема
3.1. Текст програми
PROGRAM SEM1;uses crt;const Nmax = 10;
Mmax = 10;type matr = array [1 .. Nmax, 1 .. Mmax] of integer;var A: matr;
Na, i, j, Ma, S, max: integer;
Procedure Vvod (var x: matr; var Nx, Mx: integer; P: char);beginclrscr;write ( 'Vvedite N:');read (Nx);writeln;write ( 'Vvedite M:');read (Mx);writeln;for i: = 1 to Nx do for j: = 1 to Mx do begin write (P ,'[', i ,',', j ,']='); read (x [i, j]); end ;
end;
Function Summa (var x: matr; Nx, Mx: integer): integer;begin
S: = 0;i: = 1;repeatj: = 1;repeatif (i mod 20) and (j mod 20) then S: = S + x [i, j];j: = j +1;until j> Mx;i: = i +1;until i> Nx;
Summa: = S;end;
Procedure Vivod (var x: matr; Nx, Mx: integer; P: char);beginwriteln;writeln ( 'Matrica', P ,':');writeln;i: = 1;repeatj: = 1;repeatwrite (x [i, j], '');j: = j +1;until j> Mx;writeln;i: = i +1until i> Nx;end;
beginvvod (a, na, ma, 'A');
S: = Summa (a, na, ma);vivod (a, na, ma, 'A');writeln;writeln ( 'SUMMA =', S);end.
4.1. Тестовий приклад і результат
N = 3 M = 3
1 2 3
4 5 6
7 8 9
SUMMA = 20
2.2. Блок-схема
3.2. Текст програми
PROGRAM SEM2;uses crt;const Nmax = 10;
Mmax = 10;
Kmax = 100;type matr = array [1 .. Nmax, 1 .. Mmax] of integer; vector = array [1 .. Kmax] of integer;var A: matr;
C: vector;
Na, i, j, Ma, Nc, k, M: integer;
Procedure Vvod (var x: matr; var Nx, Mx: integer; P: char);beginclrscr;write ( 'Vvedite N:');read (Nx);writeln;write ( 'Vvedite M:');read (Mx);writeln;for i: = 1 to Nx do for j: = 1 to Mx do begin write (P ,'[', i ,',', j ,']='); read (x [i, j]); end ;
end;
Procedure Sozd (var x: matr; Nx, Mx: integer);begin
Nc: = 0;k: = 1;i: = 1;repeatj: = 1;repeatif (x [i, j] 0) then begin c [k]: = x [i, j];
Nc: = Nc 1; k: = k +1; end;j: = j +1;until j> Mx;i: = i +1;until i> Nx;end;
Function Modul (var x: vector; Nx: integer): integer;begin
M: = 0;for k: = 1 to Nx do M: = M + x [k];
M: = ABS (M);
Modul: = M;end;
Procedure Vivod (var x: vector; Nx: integer; P: char);beginwriteln;writeln ( 'Vector', P ,':');writeln;k: = 1;repeatwrite (x [k], '');k: = k +1;until k> Nx;writeln;end;
beginvvod (a, na, ma, 'A');
Sozd (a, na, ma);
M: = Modul (c, nc);vivod (c, nc, 'C');writeln;writeln ( 'MODUL =', M);end.
4.2. Тестовий приклад і результат
N = 2 M = 3
-4 2 0
0. 4 -6
Vector:
-4 2 4 -6
Modul = 4
-----------------------
КІНЕЦЬ
VVOD (a, Na, Ma, 'A')
s: = summa (a, Na, Ma)
VIVOD (a, Na, Ma, 'A')
i НЕ кр. 2 і j НЕ кр.2
Висновок S
j: = 1
i: = 1 to Nx
VVOD (var x: matr; var Nx, Mx: integer; P: char)
x [i, j]
Nх, Mx
ПОЧАТОК
j: = 1 to Mx
END
END
Modul: = M
M: = ABS (M)
M: = M + x [k]
k: = k + 1
k: = 1
Nc: = 0
M: = Modul (c, Nc)
END
j: = j +1
i: = i + 1
i> Nx
j> Mx
x [i, j]
j: = 1 < p> i: = 1
VIVOD (var x: matr; Nx, Mx: integer; P: char)
Summa (var x: matr; Nx, Mx: integer) : integer
Summa: = S
i: = 1
S: = 0
S: = S + x [i , j]
i: = i +1
i> Nx
j> Mx
j: = j +1
END
END
x [i, j]
j: = 1 to Mx
i: = 1 to Nx
КІНЕЦЬ
ПОЧАТОК
Nх, Mx
VVOD (var x: matr; var < p> Nx, Mx: i ????????????????????????????? ъ? ъ? ъ? ъ? ъ? ъ? ъ? ъ?'nteger; P: char)
END
k: = k +1
M: = 0
VIVOD (c , Nc, 'C')
VVOD (a, Na, Ma'A ')
Modul (var x: vector; var Nx: integer; P: char): integer
k> Nx
x [i, j]
k: = 1 to Nx
k: = 1
SOZD (a, Na, Ma)
VIVOD (var x: vector; Nx: integer; P: char)
i: = i +1
i> Nx
j> Mx
j: = j +1
Nc: = Nc + 1
END
x [i, j] 0
j: = 1
i: = 1
c [k]: = x [i, j]
SOZD (var x: matr; Nx, Mx: integer)
