Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Зеркальное размещение элементов двумерного массива

71K
01 ноября 2011 года
Ketrin Libbie
14 / / 01.11.2011
Задан массив по размеру от 0 до 1000 mxn элементов. Вывести элементы массива в виде таблицы, после этого заменить все диагональные элементы на число, вводимой с клавиатуры. Остальные элементы зеркально разместить относительно второстепенной диагонали. Повторно вывести элементы в виде таблицы.
71K
01 ноября 2011 года
Ketrin Libbie
14 / / 01.11.2011
ну вот никто мне не помог - в итоге решила сама :cool::cool::cool:

может кому-то пригодиться решение, то вот:

uses crt;
const
n=1000; m=1000;
type
matrixx=array[0..n,0.. m] of integer;
var
a:matrixx;
i,j:integer;
k:integer;
begin clrscr;
writeln('Начальный массив:');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(' ',a[i,j],' ');
end;
writeln;
end;
writeln('Введите число');
readln(k);
for i:=1 to n do
begin
a[i,i]:=k;
a[i,m-i+1]:=k;
end;
writeln('Трансформированная матрица имеет вид:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=a[j,i];
write(' ',a[i,j],' ');
end;
writeln;
end;
end.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог