Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Вставка нового столбца в матрицу со сдвигом исходных элементов
вставление нового столбца в матрицу со сдвигом исходных элементов, например: вставить столбец между 5 и 6 столбцом исходной матрицы.
uses crt; var a: array [1..10,1..12] of integer;b: array [1..10] of integer;i,k,n,j,q: integer; begin write('Введите размерность матрицы, не больше 10 и не меньше 6: '); repeat read(n); until (n>=6) and (n<11); writeln('Введите элементы одномерного массива:'); for k:=1 to n do begin read(b[k]); end; write('В какой столбец будут вставляться элементы: '); repeat read(q); until (q>=1) and (q<=n); writeln('Для вывода результата нажмите ENTER...');readln;clrscr; write('Исходная матрица:');writeln; for i:=1 to n do beginfor j:=1 to n do begin a[i,j]:=random(10);write(a[i,j]:4); end;writeln; end; for j:=n+1 downto q do beginfor i:=1 to n do begin a[i,j+1]:=a[i,j]; end; end; for i:=1 to n do begin a[i,q]:=b[i]; end; writeln;writeln('Полученная матрица:'); for i:=1 to n do beginfor j:=1 to n+1 do begin write(a[i,j]:4); end;writeln; end; end.аналогично предыдущей программе, только вставление строки:
uses crt; var a: array [1..12,1..10] of integer;b: array [1..10] of integer;i,k,n,j,q: integer; begin write('Введите размерность матрицы, не больше 10 и не меньше 6: '); repeat read(n); until (n>=6) and (n<11); writeln('Введите элементы одномерного массива:'); for k:=1 to n do begin read(b[k]); end; write('В какую строку будут вставляться элементы: '); repeat read(q); until (q>=1) and (q<=n); writeln('Для вывода результата нажмите ENTER...');readln;clrscr; write('Исходная матрица:');writeln; for i:=1 to n do beginfor j:=1 to n do begin a[i,j]:=random(10);write(a[i,j]:4); end;writeln; end; for i:=n+1 downto q do beginfor j:=1 to n do begin a[i+1,j]:=a[i,j]; end; end; for i:=1 to n do begin a[q,i]:=b[i]; end; writeln;writeln('Полученная матрица:'); for i:=1 to n+1 do beginfor j:=1 to n do begin write(a[i,j]:4); end;writeln; end; end.
Переворот матрицы на 90° по часовой стрелке
var a: array [1..50, 1..50] of longint; i, j, n, m: integer; begin readln(n, m); if (n >= 1) and (m >= 1) and (n <= 50) and (m <= 50) then begin for i:= 1 to n do for j:= 1 to m do read(a[i, j]); writeln(m,' ',n); for i:=1 to m do begin for j:= n downto 1 do if (j>1) then write(a[j,i], ' ') else write(a[j,i]); if (i<m) then writeln; end; end; end.
Date: 2016-05-15; view: 455; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |