Презентация по информатике на тему "Максимальный элемент одномерного массива" (9 класс)

• 1 слайд

  Найти максимальный элемент одномерного массива.
  1
  2
  0
  n
  …
  6
  -8
  4
  7
  А
  max
  

• 2 слайд

  Найти максимальный элемент одномерного массива.
  program pr;
  var i, n: integer; max: real;
  a: array[1..30] of real;
  begin readln (n);
  for i:=1 to n do
  begin
  write (‘a[‘, i , ’ ] =’);
  readln (a[ i ]);
  end;
  mах := ;
  for i:=2 to n doif a[ i ] mах
  then max:= ;
  writeln (‘max=’, max)
  end.
  Тест: ввод: n=3; a[1]=8; a[2]=-3; a[3]=7
  Вывод: max=8
  i = 1 ( 1 ) n
  mах :=
  начало
  конец
  Вывод mах
  mах :=
  Ввод a[ i ]
  i = 2 ( 1 ) n
  a[ i ] mах
  нет
  да
  Ввод n
  

• 3 слайд

  Найти максимальный элемент одномерного массива.
  program pr;
  var i, n: integer; max: real;
  a: array[1..30] of real;
  begin readln (n);
  for i:=1 to n do
  begin
  write (‘a[‘, i , ’ ] =’);
  readln (a[ i ]);
  end;
  mах := a[1];
  for i:=2 to n doif a[ i ] > mах
  then max:=a[i];
  writeln (‘max=’, max)
  end.
  Тест: ввод: n=3; a[1]=8; a[2]=-3; a[3]=7
  Вывод: max=8
  i = 1 ( 1 ) n
  mах:= a[ i ]
  начало
  конец
  Вывод mах
  mах := a[1]
  Ввод a[ i ]
  i = 2 ( 1 ) n
  a[ i ] > mах
  нет
  да
  Ввод n
  

• 4 слайд

  Найти минимальный элемент одномерного массива.
  program pr;
  var i, n: integer; min: real;
  a: array[1..30] of real;
  begin readln (n);
  for i:=1 to n do
  begin
  write (‘a[‘, i , ’ ] =’);
  readln (a[ i ]);
  end;
  min := ;
  for i:=2 to n doif a[ i ] min
  then min:= ;
  writeln (‘min=’, min)
  end.
  Тест: ввод: n=3; a[1]=8; a[2]=-3; a[3]=7
  Вывод: max=8
  i = 1 ( 1 ) n
  min :=
  начало
  конец
  Вывод min
  min :=
  Ввод a[ i ]
  i = 2 ( 1 ) n
  a[ i ] min
  нет
  да
  Ввод n
  

• 5 слайд

  Найти минимальный элемент одномерного массива.
  program pr;
  var i, n: integer; min: real;
  a: array[1..30] of real;
  begin readln (n);
  for i:=1 to n do
  begin
  write (‘a[‘, i , ’ ] =’);
  readln (a[ i ]);
  end;
  min := a[1] ;
  for i:=2 to n doif a[ i ] < min
  then min :=a[ i ];
  writeln (‘min=’, min)
  end.
  Тест: ввод: n=3; a[1]=8; a[2]=-3; a[3]=7
  Вывод: max=8
  i = 1 ( 1 ) n
  min :=a[ i ]
  начало
  конец
  Вывод min
  min := a[1]
  Ввод a[ i ]
  i = 2 ( 1 ) n
  a[ i ] < min
  нет
  да
  Ввод n
  

• 6 слайд

  Дан одномерный массив. Найти значение максимального элемента. Если таких элементов несколько, то определить, сколько их.
  program pr;
  var i, n, k: integer; max: real;
  a: array[1..30] of real;
  begin readln (n);
  for i:=1 to n do
  begin
  write (‘a[‘, i , ’ ] =’);
  readln (a[ i ]);
  end;
  mах := a[1]; k:=1;
  for i:=2 to n do
  if a[ i ] > mах
  then begin max:=a[i]; k:=1 end
  else if a[ i ] = mах then k:=k+1;
  writeln (‘max=‘, max)
  writeln (‘k=‘, k)
  end.
  Тест: ввод: n=5; a[1]=3; a[2]=3; a[3]=8; a[4]=5; a[5]=8
  Вывод: max=8, k=2
  …
  mах:= a[ i ]
  начало
  Вывод mах, k
  mах := a[1]
  i = 2 ( 1 ) n
  a[ i ] > mах
  нет
  да
  Ввод n
  …
  k := 1
  k:= 1
  a[ i ] = mах
  k:= k+1
  да
  нет
  

Краткое описание документа:

Презентация по информатике на тему "Максимальный элемент одномерного массива" может использоваться на уроках в 9-10 классах. На первом слайде схематично описывается идея решения задачи. На втором: тест, алгоритм и Паскаль-программа нахождения максимального элемента одномерного массива с пропусками, которые должны устно заполнить учащиеся. На следующих слайдах - аналогичные задачи.