Презентация . Информатика 9 класс.

• 1 слайд

  Тема урока.
  Нахождение элемента массива с заданными свойствами.
  Сортировки.
  (Язык программирования Паскаль. 9 класс.)
  Подготовила: Рожкова И.С., учитель информатики МКОУ СОШ №2
  Острогожск – 2017 год
  

• 2 слайд

  Нахождение элемента массива с заданными свойствами
  Результатом поиска элемента, значение которого равно заданному, может быть:
  n - индекс элемента массива такой, что a[n]= x, где х - заданное число;
  сообщение о том, что искомого элемента в массиве не обнаружено.
  

• 3 слайд

  Поиск элемента, равного 12
  program n_5;
  var n, i: integer;
  a: array[1..10] of integer;
  begin
  randomize;
  for i:=1 to 10 do
  begin
  a[i]:=random(100);
  writeln (a[i],'');
  end;
  n:=0;
  for i:=1 to 10 do
  if a[i]=50 then n:=i;
  if n=0 then write(‘нет') else write (i)
  end.
  Будет найден последний из элементов, удовлетворяющих условию,
  если таких элементов несколько.
  

• 4 слайд

  Поиск элемента, равного 12
  program n_5_1;
  var n, i: integer;
  a: array[1..10] of integer;
  begin
  randomize;
  for i:=1 to 10 do
  begin
  a[i]:=random(70);
  writeln (a[i]);
  End;
  i:=0;
  repeat
  i:=i+1;
  until (a[i]=50) or (i=10);
  if a[i]=50
  then writeln('i=',i)
  else writeln(‘нет')
  end.
  Будет найден первый из элементов, удовлетворяющих условию.
  

• 5 слайд

  Подсчет количества элементов больших 20
  var k,i: integer;
  a: array[1..10] of integer;
  begin
  randomize;
  for i:=1 to 10 do
  begin
  a[i]:=random(50);
  writeln(a[i],'');
  End;
  k:=0;
  for i:=1 to 10 do
  if a[i]>20 then k:=k+1;
  write('k=', k)
  end.
  >
  20
  

• 6 слайд

  Сортировка массива
  Сортировка элементов массива по невозрастанию
  выбором осуществляется следующим образом:
  1. В массиве выбирается максимальный элемент
  2. Максимальный и первый элемент меняются местами
  (первый элемент считается отсортированным)
  3. В неотсортированной части массива снова выбирается
  максимальный элемент; он меняется местами с первым
  неотсортированным элементом массива
  Действия пункта 3 повторяются с неотсортированными
  элементами массива, пока не останется один
  неотсортированный элемент (минимальный)
  

• 7 слайд

  Сортировка массива
  0
  1
  0
  0
  0
  0
  

• 8 слайд

  Сортировка массива
  program rost;
  var n, i, j, x, imax: integer;
  a: array[1..10] of integer;
  begin
  randomize;
  for i:=1 to 10 do
  begin
  a[i]:=random(10);
  write (a[i]:3);
  End;
  for i:=1 to 9 do
  begin
  imax:=i;
  for j:=i+1 to 10 do
  if a[j]>a[imax] (1)
  then imax:=j;
  x:=a[i];
  a[i]:=a[imax];
  a[imax]:=x
  end;
  writeln;
  for i:=1 to 10 do
  write (a[i]:3)
  end.
  ! Замена знака в строке 1 , отсортирует массив по возрастанию.
  

• 9 слайд

  Задачи для самостоятельной работы.
  Поиск элемента в одномерном массиве, состоящем из 6 элементов, равного 3. Массив задан случайным образом, диапазон чисел от 0 до 10.
  Поиск количества элементов больше 12 в одномерном массиве, состоящем из 8 элементов. Массив задан случайным образом, диапазон чисел от 0 до 20.
  Отсортировать одномерный массив из 7 элементов по возрастанию. Массив задан случайным образом, диапазон чисел от 0 до 100.