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

МИНИСТЕРСТВО  ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ 
 
 
 
 
 
 
 
 
 
Лабораторная работа №3 по дисциплине «Информатика и программирование»

 
 
 
 
 
 
 
 
 
Москва, 2010

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

Задание:

А)  Оформить в виде  основной программы и процедуры (функции) с параметрами программу,  выполняющую обработку матрицы в соответствии с заданием лабораторной работы №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.