Текст программы.

PROGRAM KorrMas;

{ Лабораторная работа N 7 Вариант N 31

Обработка массива

А.Я.Умненькая, ст. гр. Я-007 }

TYPE

Massiv = array[1..13,1..10] of integer;

Stroka = string[30];

CONST Quest1: Stroka='Задайте число строк массива';

Quest2: Stroka='Задайте число столбцов массива';

VAR A :Massiv;

M,N,I,j : integer;

Fin : file of integer;

Fout : file of text;

{ Процедура ввода размеров массива }

PROCEDURE InpMN(Txt:Stroka; MaxK:integer;

Var Kol:integer);

Begin

WriteLn; WriteLn(Txt);

Repeat

Readln(Kol);

If Kol>MaxKol then

Writeln('Можно не более ',MaxK,'задайте снова');

until Kol<=MaxK;

End;

{ Процедура вывода массива в файл протокола }

PROCEDURE PrintMas(Txt: string; Var Mas: Massiv;

NStr,NKol: integer);

VAR i,j : integer;

Begin

Writeln(Fout,Txt);

For i:= 1 to NStr do

begin

For j:= 1 to Nkol do Write(Fout,Mas[I,j]:7);

WriteLn(Fout);

end;

End;

{ Функция вычисления суммы четных элементов заданной строки массива }

FUNCTION Sum(Var Mas: Massiv; N,St: integer)

:integer;

VAR j,S : integer;

Begin

S:=0;

For j:=1 to N do

If not Odd(Mas[St,j]) then S:=S+Mas[St,j];

Sum:=S;

End;

BEGIN { Основная программа }

InpMn(Quest1,13,M);

InpMn(Quest2,10,N);

Assign(Fout,'Umnik7.res');

ReWrite(Fout);

WriteLn(Fout,'Сумма четных элем. в последний столбец');

Assign(Fin,'D:\LAB1\DATI.BIN');

ReSet(Fin);

Seek(Fin,32);

for i:=1 to M do

for j:=1 to N do Read(Fin,A[I,j]);

Close(Fin);

PrintMas (' Исходный массив', A,M,N);

for I:=1 to M do A[I,N]:=Sum(A,N,I);

PrintMas (' Обработанный массив', A,M,N);

Close(Fout);

END.

Содержимое набора данных UMNIK7.RES:

Сумма четных элем. в последний столбец

Исходный массив

9 8 0 -7 0 -5 7 -5 5

6 9 9 2 -2 -8 3 -8 -9

8 -4 -4 1 3 6 4 0 -5

4 1 -2 4 2 1 -2 -6 -5

-1 5 0 9 4 -3 -6 -691 885

-709 800 382 -396 -140 -841 923 368 -686

737 624 169 -610 458 -188 -423 126 355

Обработанный массив

9 8 0 -7 0 -5 7 -5 8

6 9 9 2 -2 -8 3 -8 -10

8 -4 -4 1 3 6 4 0 10

4 1 -2 4 2 1 -2 -6 0

-1 5 0 9 4 -3 -6 -691 -2

-709 800 382 -396 -140 -841 923 368 328

737 624 169 -610 458 -188 -423 126 410

Варианты заданий

Таблица 26. Варианты заданий лабораторной работы №7