наибольших и наименьших элементов. Замена положений наибольшего и наименьшего элементов в
массиве.
- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Лабораторная работа № 12 презентация
Содержание
- 1. Лабораторная работа № 12
- 2. Пример 12.1 Найти максимальный элемент массива
- 3. Пример 12.1 (Продолжение). 1) Организовать по программе
- 4. Пример 12.2 Найти минимальный элемент массива
- 5. Пример 12.2 (Продолжение). 1) Организовать по программе
- 6. Пример 12.3 Поменять местами наибольший и
- 7. Пример 12.3 (Продолжение). 1) Организовать по программе
Пример 12.1 Найти максимальный элемент массива A( 3, 3) . Program Pr_12_1; const m=3; n=3; var a:array[1..m,1..n] of real; i,j,k,l:integer; amax:real; begin writeln('vvedite massiv'); for i:=1 to m do
Слайд 2Пример 12.1 Найти максимальный элемент массива A( 3, 3)
.
Program Pr_12_1; begin
const m=3; n=3;
var a:array[1..m,1..n] of real;
i,j,k,l:integer; amax:real;
begin
writeln('vvedite massiv');
for i:=1 to m do
for j:=1 to n do
read (a[i,j]);
amax:=a[1,1]; k:=1;l:=1;
for i:=1 to m do
for j:=1 to n do
if amax
amax:=a[i,j]; k:=i;l:=j;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:6:2);
writeln;
end;
writeln('amax=',amax:6:2);
writeln('stroka k=',k:2);
writeln('stolbec l=',l:2)
end.
Слайд 3Пример 12.1 (Продолжение).
1) Организовать по программе ввод двумерного массива А(3,3)
: 1 2 3
4 5 6
7 8 9
2) Как описывается двумерный массив в программе?
3) В каком виде вводится задан-ный массив (строка или стол-бец)?
4) Объяснить работу програм-мы.
4 5 6
7 8 9
2) Как описывается двумерный массив в программе?
3) В каком виде вводится задан-ный массив (строка или стол-бец)?
4) Объяснить работу програм-мы.
5) Как надо изменить програм-му, чтобы организовать ввод массива в один столбец.
6) Провести вычисление по программе.
7) Изменить порядок элементов в матрице и провести новое вычисление.
Слайд 4Пример 12.2 Найти минимальный элемент массива A( 3, 3)
.
Program Pr_12_2;
const m=3; n=3;
var a:array[1..m,1..n] of real;
i,j,k,l:integer; amin:real;
begin
writeln('vvedite massiv');
for i:=1 to m do
for j:=1 to n do
read (a[i,j]);
amin:=a[1,1]; k:=1;l:=1;
for i:=1 to m do
for j:=1 to n do
if amin>a[i,j] then
begin
amin:=a[i,j]; k:=i;l:=j;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:6:2);
writeln;
end;
writeln('amin=',amin:6:2);
writeln('stroka k=',k:2);
writeln('stolbec l=',l:2)
end.
Слайд 5Пример 12.2 (Продолжение).
1) Организовать по программе ввод двумерного массива А(3,3)
: 1 2 3
4 5 6
7 8 9
2) Как описывается двумерный массив в программе?
3) В каком виде вводится задан-ный массив (строка или стол-бец)?
4) Объяснить работу програм-мы.
4 5 6
7 8 9
2) Как описывается двумерный массив в программе?
3) В каком виде вводится задан-ный массив (строка или стол-бец)?
4) Объяснить работу програм-мы.
5) Как надо изменить програм-му, чтобы организовать ввод массива в один столбец.
6) Провести вычисление по программе.
7) Изменить порядок элементов в матрице и провести новое вычисление.
Слайд 6Пример 12.3 Поменять местами наибольший и наименьший
элементы массива A( 3, 3) .
Program Pr_12_2;
const m=3; n=3;
var a:array[1..m,1..n] of real;
i,j,imin,imax,jmin,jmax:integer;
amin,amax:real;
begin writeln('vvedite massiv');
for i:=1 to m do
for j:=1 to n do read (a[i,j]);
writeln('vivedite massiv');
for i:=1 to m do begin
for j:=1 to n do write(a[i,j]:6:2);
writeln; end;
amin:=a[1,1]; imin:=1;jmin:=1;
amax:=a[1,1]; imax:=1;jmax:=1;
for i:=1 to m do for j:=1 to n do
if amin>a[i,j] then begin
amin:=a[i,j]; imin:=i;jmin:=j; end;
for i:=1 to m do for j:=1 to n do
if amax
a[imin,jmin]:=amax;
a[imax,jmax]:=amin;
writeln('vivedite massiv');
for i:=1 to m do begin
for j:=1 to n do write(a[i,j]:6:2);
writeln; end;
end.
Слайд 7Пример 12.3 (Продолжение).
1) Организовать по программе ввод двумерного массива А(3,3)
: 1 2 3
4 5 6
7 8 9
2) Как описывается двумерный массив в программе?
3) В каком виде вводится задан-ный массив (строка или стол-бец)?
4) Объяснить работу програм-мы.
4 5 6
7 8 9
2) Как описывается двумерный массив в программе?
3) В каком виде вводится задан-ный массив (строка или стол-бец)?
4) Объяснить работу програм-мы.
5) Как надо изменить програм-му, чтобы организовать ввод массива в один столбец.
6) Провести вычисление по программе.
7) Изменить порядок элементов в матрице и провести новое вычисление.
