🗊Презентация Составить программу определения максимального элемента одномерного массива и индекса максимального элемента

Категория: Математика
Нажмите для полного просмотра!
Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №1Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №2Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №3Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №4Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №5Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №6Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №7Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №8Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №9Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №10Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №11Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №12Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №13Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №14Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №15Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №16Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №17
Скачать
Вы можете ознакомиться и скачать презентацию на тему Составить программу определения максимального элемента одномерного массива и индекса максимального элемента. Доклад-сообщение содержит 17 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1


Составить программу определения максимального элемента одномерного массива и индекса максимального элемента, слайд №1
Описание слайда:

Слайд 2


Составить программу определения максимального элемента одномерного массива и индекса максимального элемента.
Описание слайда:
Составить программу определения максимального элемента одномерного массива и индекса максимального элемента.

Слайд 3


program maximum; var i, n, imax: integer; a: array[1..50] of real ; max: real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;
Описание слайда:
program maximum; var i, n, imax: integer; a: array[1..50] of real ; max: real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;

Слайд 4


max:=a[1]; imax: =1; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imax :=i; end; end; writeln(‘максимальный элемент: ’, ‘a[‘, imax, ’]=‘, a[imax]); end.
Описание слайда:
max:=a[1]; imax: =1; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imax :=i; end; end; writeln(‘максимальный элемент: ’, ‘a[‘, imax, ’]=‘, a[imax]); end.

Слайд 5


Составить программу определения минимального элемента одномерного массива и индекса минимального элемента.
Описание слайда:
Составить программу определения минимального элемента одномерного массива и индекса минимального элемента.

Слайд 6


program minimum; var i, n, imin: integer; a: array[1..50] of real ; min: real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;
Описание слайда:
program minimum; var i, n, imin: integer; a: array[1..50] of real ; min: real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;

Слайд 7


min:=a[1]; imin: =1; for i:=2 to n do begin if a[i]<min then begin min:= a[i]; imin:= i; end; end; writeln(‘минимальный элемент: ’, ‘a[‘, imin, ’]=‘, a[imin]); end.
Описание слайда:
min:=a[1]; imin: =1; for i:=2 to n do begin if a[i]<min then begin min:= a[i]; imin:= i; end; end; writeln(‘минимальный элемент: ’, ‘a[‘, imin, ’]=‘, a[imin]); end.

Слайд 8


Задан одномерный массив. Поменять местами максимальный и минимальный элементы массива.
Описание слайда:
Задан одномерный массив. Поменять местами максимальный и минимальный элементы массива.

Слайд 9


program obmen; var i, n, imax, imin: integer; a: array[1..50] of real ; max, min, p : real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;
Описание слайда:
program obmen; var i, n, imax, imin: integer; a: array[1..50] of real ; max, min, p : real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;

Слайд 10


max:=a[1]; imax: =1;min:=a[1]; imin:=1; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imax :=i; end else if a[i]<min then begin min:=a[i]; imin :=i; end; end;
Описание слайда:
max:=a[1]; imax: =1;min:=a[1]; imin:=1; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imax :=i; end else if a[i]<min then begin min:=a[i]; imin :=i; end; end;

Слайд 11


p:=a[imin]; a[imin]:= a[imax]; a[imax]:= p; for i:=1 to n do write(‘ a[’, i, ‘]=‘, a[i]); end.
Описание слайда:
p:=a[imin]; a[imin]:= a[imax]; a[imax]:= p; for i:=1 to n do write(‘ a[’, i, ‘]=‘, a[i]); end.

Слайд 12


Задан одномерный массив. Определить количество элементов, равных максимальному элементу массива.
Описание слайда:
Задан одномерный массив. Определить количество элементов, равных максимальному элементу массива.

Слайд 13


program kolmax; var i, n, imax, kmax: integer; a: array[1..50] of real ; max: real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;
Описание слайда:
program kolmax; var i, n, imax, kmax: integer; a: array[1..50] of real ; max: real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;

Слайд 14


max:=a[1]; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; kmax :=1; end else if a[i] = max then kmax := kmax + 1; end; writeln(kmax, ‘ - количество элементов, равных максимальному элементу массива’); end.
Описание слайда:
max:=a[1]; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; kmax :=1; end else if a[i] = max then kmax := kmax + 1; end; writeln(kmax, ‘ - количество элементов, равных максимальному элементу массива’); end.

Слайд 15


Задан одномерный массив. Определить максимальный среди отрицательных элементов массива.
Описание слайда:
Задан одномерный массив. Определить максимальный среди отрицательных элементов массива.

Слайд 16


program max_otr; var i, j, n: integer; a: array[1..50] of real ; max: real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;
Описание слайда:
program max_otr; var i, j, n: integer; a: array[1..50] of real ; max: real; begin write(‘ввод n ’); readln(n); writeln(‘ввод элементов массива’); for i:=1 to n do begin write(‘a[’, i, ‘] = ‘); readln(a[i]); end;

Слайд 17


j: =1; while (j<n) and (a[j] >=0)do j:=j + 1; if j <= n then begin max:= a[j]; for i:= j + 1 to n do if a[i] < 0 then if a[i]>max then max:=a[i]; writeln(max); end else writeln(‘ отрицательных элементов нет’); end.
Описание слайда:
j: =1; while (j<n) and (a[j] >=0)do j:=j + 1; if j <= n then begin max:= a[j]; for i:= j + 1 to n do if a[i] < 0 then if a[i]>max then max:=a[i]; writeln(max); end else writeln(‘ отрицательных элементов нет’); end.

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию