Презентация по информатике "Типовые задачи обработки массивов"

• 1 слайд

  Типовые задачи обработки массивов.
  Учитель информатики МБОУ «Крымская школа-гимназия»
  Сакского района Республики Крым
  Шостик Александр Иванович
  

• 2 слайд

  Содержание
  Массив
  Ввод элементов массива
  Вывод элементов массива
  2. Типовые задачи обработки массива.
  Нахождение количества элементов.
  Нахождение суммы элементов.
  Нахождение произведения элементов.
  Нахождение максимального и минимального элементов массива.
  Замена элементов массива.
  Формирование нового массива из элементов старого массива.
  Сортировка элементов массива.
  

• 3 слайд

  Массив
  Массив – это упорядоченный набор однотипных данных объединённых под одним именем. Массивы бывают одномерные (линейные) и двумерные (табличные).
  Примеры:
  2 15 7 22 25 37 – целочисленный массив из шести элементов;
  2,39 1,15 45,8 18,33 – вещественный массив из четырёх элементов;
  Элемент массива - отдельная переменная, входящая в массив.
  Размерность массива - число индексов, необходимых для идентификации отдельного элемента.
  Индекс элемента массива - номер элемента в массиве.
  
  

• 4 слайд

  Описание массива в программе
  var имя:array[номер первого элемента .. номер последнего элемента] of [тип элементов];
  
  Например:
  var A: array[1..200] of integer; {целочисленный массив A, максимальное количество элементов – 200}
  var b: array[1..80] of real; {вещественный массив b, максимальное количество элементов – 80}
  

• 5 слайд

  Ввод элементов массива
  Для ввода элементов массива используются циклы с параметром for … to … do
  
  Ввод элементов можно производить с клавиатуры
  vara: array [1..10] of real;
  i: integer;
  Begin
  for i:=1 to 10 do begin
  writeln(‘ввести’,i,’ элемент массива’);
  readln (a[i]);
  writeln(‘A(‘, i ,’)=‘, a[i]); end;
  readln;
  end.
  
  
  Ввод элементов массива с использованием генератора случайных чисел.
  vara: array [1..10] of integer;
  i: integer;
  Begin
  randomize;
  for i:=1 to 10 do begin
  a[i]:=random(30);
  writeln(‘A(‘, i ,’)=‘, a[i]);
  end;
  readln;
  end.
  
  

• 6 слайд

  Нахождение количества элементов массива.
  
  В одномерном массиве найти количество положительных элементов.
  const N = 10;
  var
  arr: array[1..N] of integer;
  i: byte;
  count: byte;
  begin
  randomize;
  count := 0;
  for i:=1 to N do begin
  arr[i] := random(100) - 50;
  write(arr[i],' ');
  if arr[i] > 0 then
  count := count + 1;
  end;
  writeln;
  writeln(count);
  end.
  

• 7 слайд

  Нахождение суммы элементов.
  
  Дан массив А, состоящий из 50 элементов, значения которого вводятся с клавиатуры.
  Найти сумму значений элементов массива, больших некоторой величины t.
  
  Program Summa;  
  Var A: Array [1..50] of Real;    
  Var   i, t : Integer;   S   : Real;
  BEGIN  
    Write ('Введите t = ');   ReadLn(t); {ввод значения t}  
  For i := 1 to 50 dо begin  
  Write('A [ ', i , ' ] = ');  
  ReadLn(A[i]) {ввод элементов массива}   end;  
  S := 0; {присваивание начального значения}  
  For i := 1 to 10 do begin
  If A[i]>t then S := S+A[i]; end;
  WriteLn('Сумма равна ', S : 5 : 1);  
  ReadLn;
  end.
  
  

• 8 слайд

  Нахождение произведения элементов
  Найдите произведение только отрицательных элементов массива, состоящего из N чисел.
  Program ;  
  Var A: Array [1..N] of Real;    
  Var   i, t : Integer;   S   : Real;
  begin  
    Write ('Введите t = ');   ReadLn(t);
  For i := 1 to N dо begin  
  Write('A [ ', i , ' ] = ');  
  ReadLn (A[i]) {ввод элементов массива}  
  end;  
  p:=1;
  for i:=1 to 10 do
  if a[i]<0 then p:=p*a[i];
  writeln (‘произведение = ’, p);
  end;
   end.
  
  

• 9 слайд

  Нахождение максимального и минимального элементов массива
  В однородном массиве, состоящем из N вещественных элементов, найти максимальный по модулю элемент массива.
  const n = 50;
  var arr: array[1..n] of real;
  max: real;
  i,j,k: byte;
  begin
  randomize;
  max := 0;
  for i:=1 to n do begin
  arr[i] := random()-0.50;
  write(arr[i]:7:2);
  if abs(arr[i]) > abs(max) then
  max := arr[i]
  end;
  writeln;
  writeln(max:7:2);  
  readln;
  end.
  
  

• 10 слайд

  Замена элементов массива.
  
  Дан массив, содержащий положительные и отрицательные числа. Заменить все элементы массива на противоположные по знаку.
  const N = 10;
  var
  arr: array[1..N] of integer;
  i: byte;
  begin
  randomize;
  for i:=1 to N do begin
  arr[i] := random(100) - 50;
  write(arr[i]:4);
  end;
  writeln;
  for i:=1 to N do
  arr[i] := -1 * arr[i];
  for i:=1 to N do
  write(arr[i]:4);
  writeln;
  end.
  

• 11 слайд

  Формирование нового массива из элементов старого масси
  Дан массив X(20), заполненный датчиком случайных чисел в диапазоне от -50 до 49 включительно. Сформировать новый массив из десяти первых положительных элементов массива X.
  program zadacha (input, output) ; {формирование массива из положительных элементов} 
  label 1,2; 
  var
  x: array [1..20] of integer; 
  у: array [1..10] of integer; 
  i,k: integer; 
  begin
  randomize;
  for i:=1 to 20 do 
  begin
  x[i]:=random (100) -50;
  writeln ( 'значение', i, 'эл. Массива = ', x[i])
  end;
  k:=0; for i:=1 to 20 do
  if x[i]>0 then 
  begin
  k:=k+1; 
  y[k]:=x[i]; 
  if k=10 then goto 1
  end; 
  if k=0 then 
  begin
  writeln ('элементов нет'); 
  goto 2 
  end;
  1:writeln ('Элементы массива Y'); 
  for i:=1 to k do writeln ('y(', i , ')=', y[i]) 
  2:end.
  

• 12 слайд

  Сортировка элементов массива
  Метод пузырька
  Сортировка вставками
  Сортировка выбором
  Метод Шелла
  Метод Хoopа
  Метод «пузырька»
  begin
  for j:=1 to N-1 do
  for i:=1 to N-j do
  if M[i] > M[i+1] then
  begin
  t := M[i]; M[i] := M[i+1];
  M[i+1] := t
  end;
  Сортировка вставками
  begin
  M[0] := -oo;
  for j:=2 to N do
  begin
  i := j;
  while M[i] < M[i-1] do
  begin
  t := M[i];
  M[i] := M[i+1];
  M[i+1] := t
  i := i-1
  end;
  end ;
  end.