Lakki

Люди спасайте завтра зачет, нужна помощь!!!!!!
Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном направлении.
Разработать библиотечный модуль из ранее созданных программ. Составить программу, вызывающую процедуры и функции созданного модуля.

Lakki

uses crt;
const Max=100;
var Matrix,Matrix1:array[1..Max,1..Max] of integer;
M,i,j:integer;
begin
clrscr;
writeln('Введите размерность квадратной матрицы ');
readln(m);
for i:=1 to m do
begin
for j:=1 to m do
begin
writeln('Введите элемент ',i,' ',j,':');
readln(Matrix[i,j]);
end;
end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to m do
write(Matrix[i,j]:4);
writeln;
end;
for i:=1 to m do
for j:=1 to m do
Matrix1[i,j]:=Matrix[m-j+1,i];
writeln;
writeln('Матрица повернутая на 90 градусов:');
for i:=1 to m do
begin
for j:=1 to m do
write(Matrix1[i,j]:4);
writeln;
end;
readln;
end.
вот прога

Vladimir_S

Ну и в чем проблемы? Программа работает. А как модуль написать - это у Вас где-нибудь должно быть. Вкратце:
UNIT {Имя модуля, ТОЧНО совпадающее с именем файла *.pas}
INTERFACE {Далее - ЗАГОЛОВКИ процедур и функций,
например PROCEDURE SWINE(pig1,pig2:INTEGER; VAR pig3:REAL); Перед перечнем процедур и функций можно (если нужно) поместить ссылки на вызываемые стандартные модули: USES CRT, Graph;}.
IMPLEMENTATION
{Здесь сами процедуры и функции, расположенные в том же порядке, что и в предыдущем разделе. Например:
PROCEDURE SWINE(pig1,pig2:INTEGER; VAR pig3:REAL);
VAR
...
BEGIN
...
END;}
Завершается модуль, как и программа, командой END.

Вызов процедур и функций из модуля делается в точности так же, как если бы они были описаны обычным образом в теле программы.
Удачи!

Lakki

напиши пожалуста

Vladimir_S

Что именно написать? В задании требуется использовать "ранее написанные программы", а не именно эту. Откуда же мне знать, о каких программах идет речь?

Lakki

эту прогу которую я написал

Vladimir_S

Сожалею, но неожиданно свалилась срочная работа. Так что попробуйте сами.