Преобразование массивов

Заменить все элементы, отвечающие данному условию (>a), на заданную величину (c).

for i:=1 to 10 do

for j:=1 to 10 do

if a[i,j]>a then begin a[I,j]:=c; end;

· Найти сумму каждой строки матрицы и записать в отдельный одномерный массив.

program mas4;

uses crt;

const n=4; m=4;

type t=array[1..n,1..m] of integer; w=array[1..4] of integer;

var a:t;i,j,b,s,d:integer; c:w;

begin

clrscr;

for i:=1 to n do

begin

writeln ('Введите строку элементов матрицы (4 элемента)');

for j:=1 to m do read(a[i,j]);

writeln;

end;

for i:=1 to n do

begin for j:=1 to m do begin textcolor (14); write(a[i,j]:3); end;

writeln;

end;

writeln; {Расчёт суммы}

for i:=1 to n do

begin s:=0; for j:=1 to m do

begin s:=s+ a[i,j]; end;

c[i]:=s;

textcolor (10);

write(c[i]:6);

end;

repeat until keypressed;

end.

· Выполнить транспонирование матрицы. Транспонированная матрица это матрица, получающаяся из данной (прямоугольной или квадратной) матрицы после замены строк соответствующими столбцами.

program mas2;

uses crt;

const n=8; m=8;

type t=array[1..n,1..m] of integer;

var a:t;

i,j:integer;

begin

clrscr;

textcolor (9);

for i:=1 to n do begin

for j:=1 to m do begin a[i,j]:=random (10); write (a[i,j]:3); end;

writeln;

end;

writeln;

textcolor (14);

for i:=1 to n do begin

for j:=1 to m do begin write (a[j,i]:3); end;

writeln;

end;

repeat until keypressed; end.

· Рисование многоугольников Двумерные массивы в графике.

² Процедура drawpoly (<число вершин> + 1, <двумерный массив координат вершин>) прямое назначение процедуры – вычерчивание ломаной!!! Поэтому отправную вершину надо ещё раз указать в последней строке массива.

² Процедура fillpolyпозволяет рисовать закрашенные многоугольники.

program graphsb;

uses graph, crt;

const t:array [1..5, 1..2] {Массив с координатами вершин пятиугольника}

of integer = ((50,50),(125,25),(200,50),(150,150),(50,200));

f:array [1..4, 1..2] {Массив с координатами вершин треугольника}

of integer=((250,50),(350,25),(400,150),(250,50));

var gd,gm,c:integer;

begin

gd:=detect;

initgraph (gd,gm,'');

setcolor (14); setbkcolor (1);

setfillstyle (8,10); {Тип заливки}

fillpoly (5,t); {Закрашенный пятиугольник}

drawpoly (4,f); {Контурный треугольник}

repeat until keypressed;

end.

Примеры программ:

· Дана матрица b, состоящая из целых. Получить матрицу r, значения которой равны удвоенным значениям матрицы b

program mas5;

uses crt;

const n=4; m=4;

type t=array[1..n,1..m] of integer;

var r,b:t;i,j:integer;

begin

clrscr;

textcolor (15);

for i:=1 to n do

begin

writeln ('Введите строку матрицы (4 элемента)');

for j:=1 to m do

begin

read (b[i,j]);

end; writeln;

end;

for i:=1 to n do

for j:=1 to m do

r[i,j]:=b[i,j]*2;

writeln;

for i:=1 to n do

begin

for j:=1 to m do

begin

textcolor (10);

write (r[i,j]:3);

end;

writeln;

end;

repeat until keypressed;

end.

· Одномерный массив из 10 элементов заполнить произвольными числами от 0 до 9 и выдать его на экран.

program pt1;

uses crt;

type t=array[1..10] of integer;

var a:t;i:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do

begin

a[i]:=trunc(random(10));

write(a[i]:4);

end;

readln;

end._

· Двумерный массив размерностью 4 х 5 заполнить целыми двузначными числами и выдать его на экран.

· Двумерный массив размерностью 4 х 5 заполнить целыми числами в интервале от –10 до 20 с шагом 5 и выдать его на экран.

· Двумерный массив размерностью 4 х 5 заполнить целыми числами в интервале от –10 до 20 с шагом 5 и выдать его на экран. Найти максимальный элемент массива и его координаты.

· Заполнить одномерный массив размерностью М (М ввести с клавиатуры) целыми числами от –30 до 39 и выдать на экран. Все отрицательные элементы массива заменить на 0 и выдать массив на экран. Поменять местами 2-й и предпоследний элемент массива, выдать массив на экран.

· Заполнить одномерный массив размерностью М (М ввести с клавиатуры) целыми числами от –30 до 39 и выдать на экран. Отсортировать массив по убыванию и выдать на экран.