h1

Отображние верхней половины матрицы на нижнюю зеркально симметрично относительно горизонтальной оси

Май 28, 2010

Задание: заполнить матрицу случайными числами. Отобразить верхнюю половину матрицы на нижнюю зеркально симметрично относительно горизонтальной оси.

Код программы:

uses crt;
const m=99; n=99;
var
a:array[1..m,1..n] of integer;
p,i:1..m;
q,j:1..n;
k,temp,t1,t2,l:integer;
begin
clrscr;
write(‘vvedite razmer matici ‘);
writeln;
readln(p,q);
randomize;
for i:=1 to p do
for j:=1 to q do begin
a[i,j]:=random(100);
end;
clrscr;
writeln (‘kontrolnui vuvod massiva:’);
for i:=1 to p do begin
for j:=1 to q do
write (a[i,j]:4,»:3);
writeln;
end;
writeln;
t1:=1;
t2:=p;
l:=p div 2;
if p mod 2 =1 then l:=l+1;
while not (t1>l) do
begin
for j:=1 to q do
begin
temp:=a[t1,j];
a[t1,j]:=a[t2,j];
a[t2,j]:=temp;
end;
t1:=t1+1;
t2:=t2-1;
end;
writeln(‘zerkalnoe otobrajenie:’);
for i:=1 to p do begin
for j:=1 to q do
write (a[i,j]:4,»:3);
writeln;
end;
readkey;
end.

Скриншот:

Реклама

One comment

  1. а можно на С++ ?????????????



Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: