Санкт-Петербургский государственный электротехнический университет.
Лабораторная работа №3
на тему: масивы
Выполнил:
группа 8361
Проверил:
Задание:
Задана квадратная таблица размера N*N. Преобразовать её, осуществив поворот элементов вокруг её центра на 90 по часовой стрелке.
Решение:
Массивы должны меняться местами по порядку
Алгоритм
Процедура Inpute Процедура Outpute Процедура Transp
 |
 |
 |
Текст программы
program laba3;
uses crt;
const n=10;
type group= array[1..n,1..n] of real;
var i, j,k: integer;
m, l: group;
q, r: real;
t: text;
procedure Input;
begin
for i:=1 to k do
begin
for j:=1 to k do
begin
writeln('vstavte element M[',i,'][',j,']=');
readln(m[i][j]);
end;
end;
end;
procedure Output;
begin
writeln;
writeln(t);
for i:=1 to k do
begin
for j:=1 to k do
begin
write(m[i][j]:10:3);
write(t, m[i][j]:10:3);
end;
writeln;
writeln(t);
end;
writeln;
writeln(t);
end;
procedure Transp;
begin
for i:=1 to k do
begin
for j:=1 to k do
l[i][k-j+1]:= m[j][i];
end;
for i:=1 to k do
begin
for j:=1 to k do
m[i][j]:=l[i][j];
end;
end;
Begin
ClrScr;
writeln('vstavte razmer tablici (from 1 to 10) ');
readln(k);
Input;
ClrScr;
assign(t,'laba3.txt');
rewrite(t);
Output;
Transp;
writeln;
Output;
close(t);
readln;
end.
Вывод результатов:
Было Стало
2 3 4 2
4 1 1 3
