Модульное программирование 5

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ



Лабораторная работа №3 по дисциплине «Информатика и программирование»

« Модульное программирование».

Задание:

А) Оформить в виде основной программы и процедуры (функции) с параметрами программу, выполняющую обработку матрицы в соответствии с заданием лабораторной работы №2.

В) Оформить в виде модуля программу, выполняющую обработку матрицы в соответствии с заданием лабораторной работы №2.

Решение:

UNIT PAL;
INTERFACE
TYPE masdva = array [1..20, 1..20] of integer;
masodin = array [1..20] of integer;
Procedure PALINDROM (MAS: mat; R: integer; VAR T: integer; VAR U: maso; VAR V: integer);
IMPLEMENTATION
Procedure PALINDROM;
Var h, i, l, f: integer;
d: string [10];
Begin
h:=1;
For i:=1 to R do
Begin
l:=1;
Str (MAS[i,V], d);
For f:=1 to length(d) div 2 do
If d[f]=d[length(d)+1-f]
Then l:=l*1
Else l:=l*0;
If l>0
Then h:=h*1
Else h:=h*0;
End;
If h>0
Then
Begin
T:=T+1;
U[T]:=V;
End;
End;
END.

Program LABTRI;
Uses crt, PAL;
Var i, g, b, c, k: integer;
a: array [1..20, 1..20] of integer;
z: array [1..20] of integer;
Begin
Clrscr;
Writeln ('Vvedite chislo strok massiva');
Readln (b);
Writeln ('Vvedite chislo stolbcov massiva');
Readln (c);
For i:=1 to b do
For g:=1 to c do
Begin
Writeln ('Vvedite element massiva ', i, '-oy stroki, ', g, '-ogo stolbca');
Readln (a[i, g]);
End;
Writeln ('Vash massiv: ');
For i:=1 to b do
Begin
For g:=1 to c do
Write (a[i, g], ' ');
Writeln;
End;
k:=0;
For g:=1 to c do
PALINDROM (a, b, k, z, g);
Writeln ('Rezultat: ');
For g:=1 to k do
Writeln (z[g]);
Readkey;
End.