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

СОДЕРЖАНИЕ: Министерство образования Российской Федерации Волгоградский государственный технический университет Кафедра прикладной математики Семистровая работа по теме:

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

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

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

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

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

Выполнил:

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

Проверил:

Волгоград 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 20) and (j mod 20) then S:=S+x[i,j];

j:=j+1;

until jMx;

i:=i+1;

until iNx;

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

writeln;

i:=i+1

until iNx;

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

i:=i+1;

until iNx;

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

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

Скачать архив с текстом документа