Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Сдвиг массива на k элементов влево или вправо
Было
|
Стало
|
Сдвиг влево на k элементов:
var a: array [1..100] of integer; i,r,n,k,j: integer; begin read(n,k); {k îáîçГ*Г*Г·Г*ГҐГІ âåëè÷èГ*Гі ñäâèãГ*} for i:=1 to n do read(a[i]); for i:=1 to k do begin for j:=1 to n do if (j=1) then r:=a[j] else a[j-1]:=a[j]; a[n]:=r; end; for i:=1 to n do write(a[i],' '); readln end.Сдвиг на k элементов вправо:
var a: array [1..100] of integer; i,r,n,k,j: integer; begin read(n,k); {k îáîçГ*Г*Г·Г*ГҐГІ âåëè÷èГ*Гі ñäâèãГ*} for i:=1 to n do read(a[i]); for i:=1 to k do begin for j:=n downto 1 do if (j=n) then r:=a[n] else a[j+1]:=a[j]; a[1]:=r; end; for i:=1 to n do write(a[i],' '); readln end.
Поиск минимума/максимума и их индексов
var a: array [1..100] of integer;N,i,min,max: integer; begin write('N -> '); readln(N); {считываем размер массива} write('Input array -> '); for i:=1 to N do read(a[i]); {считываем сам массив} readln; min:=1; max:=2; for i:=1 to N do if a[i] > a[max] then max:=i else if a[i] < a[min] then min:= i; writeln('MAX = A[',max,'] = ', a[max]); writeln('MIN = A[',min,'] = ', a[min]); readln; end.
Поиск минимума/максимума и их индексов в двумерном массиве (матрице)
var a: array [1..100,1..100] of integer;N, M, i, j, mini, minj, maxi, maxj: integer; begin write('N, M -> '); readln(N, M); {считываем размер матрицы} write('Input matrix -> '); for i:=1 to N do for j:=1 to M do begin write('A[',i,',',j,'] -> '); readln(a[i, j]); end; {считываем саму матрицу} readln; mini:=1; minj:=1; maxi:=2; maxj:=2; for i:=1 to N do for j:=1 to M do if a[i,j] > a[maxi, maxj] then begin maxi:= i; maxj:= j; end else if a[i, j] < a[mini, minj] then begin mini:= i; minj:= j; end; writeln('MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]); writeln('MIN = A[',mini,',',minj,'] = ', a[mini, minj]); readln; end.
Работа с элементами выше/ниже/на главной/побочной диагоналях
var a: array [1..100,1..100] of integer;N, M, i, j: integer; begin write('N, M -> '); readln(N, M); {считываем размер матрицы} write('Input matrix -> '); for i:=1 to N do for j:=1 to M do begin write('A[',i,',',j,'] -> '); readln(a[i, j]); end; {считываем саму матрицу} readln; writeln('Главная диагональ'); for i:=1 to N do begin write(a[i,i],' '); {вы можете не только просто выводить элементы, но и работать с ними. Достаточно знать индексацию нужных элементов} end; writeln; writeln('Побочная диагональ'); for i:=1 to N do begin write(a[i,N-i+1],' '); end; writeln; writeln('Ниже главной'); for i:=2 to N do for j:=1 to i-1 do begin write(a[i,j],' '); end; writeln; writeln('Выше главной'); for i:=1 to N-1 do for j:=i+1 to N do begin write(a[i,j],' '); end; writeln; writeln('Выше побочной'); for i:=1 to N-1 do for j:=1 to N-i do begin write(a[i,j],' '); end; writeln; writeln('Ниже побочной'); for i:=2 to N do for j:=N-i+2 to N do begin write(a[i,j],' '); end; writeln; readln; end.
Date: 2016-05-15; view: 523; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |