Процедуры и функции

Министерство образования
Российской Федерации

Волгоградский государственный
технический университет

Кафедра прикладной математики

Семистровая работа по теме:

ПРОЦЕДУРЫ И
ФУНКЦИИ

Выполнил:

студент группы

Проверил:

Волгоград 2003

1.
Задание

1.1.

Ввести двумерный массив. Найти
сумму элементов с нечетными индексами.

1.2.

Ввести двумерный массив.
Получить одномерный массив включающий все не нулевые элементы матрицы. Найти
модуль полученного вектора.

s:=summa(a,Na,Ma)

VIVOD (a,Na,Ma, ‘A’)

VVOD (a, Na,Ma, ‘A’)

2.1. Блок-схема

	Summa:=S

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);

begin

clrscr;

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;

repeat

j:=1;

repeat

if
(i mod 2<>0) and (j mod 2<>0) 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);

begin

writeln;

writeln('Matrica
',P,':');

writeln;

i:=1;

repeat

j:=1;

repeat

write(x[i,j],'
');

j:=j+1;

until
j>Mx;

writeln;

i:=i+1

until
i>Nx;

end;

begin

vvod(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.
Блок-схема

j:=j+1

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);

begin

clrscr;

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;

repeat

j:=1;

repeat

if
(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);

begin

writeln;

writeln('Vector
',P,':');

writeln;

k:=1;

repeat

write(x[k],'
');

k:=k+1;

until
k>Nx;

writeln;

end;

begin

vvod(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