Презентация "Перестановка элементов в одномерном массиве" скачать бесплатно


Презентация "Перестановка элементов в одномерном массиве"


Подписи к слайдам:
Слайд 1

Не существует проблем,

Не содержащих в себе дар,

Предназначенный вам.

Вы ищите проблемы,

Потому что вам нужны их дары.

Ричард Бах.

Задать массив, состоящий из 25 целых чисел. Удвоить положительные элементы массива, остальные оставить без изменения.

  • План построения программы.
  • 1)описание переменных.
  • 2)стандартный ввод-вывод массива.
  • 3)поиск и удвоение положительных элементов
  • 4)вывод элементов массива в строку.

Задать массив, состоящий из 25 целых чисел. Удвоить положительные элементы массива, остальные оставить без изменения.

  • 1)описание переменных.
  • Var A:array[1..25] of integer;

    i: integer;

  • 2)стандартный ввод-вывод исходного массива.
  • randomize;

    For i:=1 to 25 do

    Begin

    a[i]:=-10+random(21);

    write(a[i]:4);

    end; writeln;

Задать массив, состоящий из 25 целых чисел. Удвоить положительные элементы массива, остальные оставить без изменения.

  • 3) поиск и удвоение положительных элементов.
  • For i:=1 to 25 do

    If a[i]>0 then a[i]:=2*a[i];

  • 4) вывод обработанного массива в строку.
  • For i:=1 to 25 do

    write(a[i]:4);

    writeln;

Задать массив, состоящий из 25 целых чисел. Удвоить положительные элементы массива, остальные оставить без изменения.

Var A:array[1..25] of integer;

i: integer;

begin

randomize;

For i:=1 to 25 do

Begin

a[i]:=-10+random(21);

write(a[i]:4);

end; writeln;

For i:=1 to 25 do

If a[i]>0 then a[i]:=2*a[i];

For i:=1 to 25 do

write(a[i]:4);

writeln;

end.

1)Найдите ошибки при описании массива и правильный вариант:

  • а) Var A: array(1..100) of integer;
  • б) Var A: array[1…100] of integer;
  • в) Var A: array[1..10] of readln;
  • г) Var A: array[1..10] of integer;

2)Сколько элементов в массиве и каким способом задаются элементы массива?

Var A: array[1..100] of integer;

i:integer;

Begin

For i:=1 to 15 do

readln(A[i]);

3) Найдите ошибки при задании массива и правильный вариант :

а) For i=1 to 15 do б) For i:=1 to 15 do;

readln(A[i]); readln(A[i]);

в)randomize; г)randomize;

For i:=1 to 15 do For i:=1 to 15 do

Begin Begin

a[i]:=-10+random[21]; a[i]:=-10+random(21);

write(a(i):4); write(a[i]:4);

end; writeln; end; writeln;

4)Зачем нужен каждый алгоритм (что делает с массивом)?

  • а) s:=0; б)k:=0
  • For i:=1 to 20 do For i:=1 to 15 do

    s:=s+a[i]; if a[i]>0 then k:=k+1;

     

  • в) For i:=1 to 20 do
  • if a[i] mod 2 =0 then write(a[i]:4);

     

  • г)max:=a[1];
  • For i:=1 to 20 do

    if a[i]>max then max:=a[i];

Нужно поменять местами 2-й и 5-й элементы массива, состоящего из десяти целых чисел.

  • Был массив:
  • 10, 30, -7, 15, 75, 16, -5, 0, 14, -10

  • Стал массив:
  • 10, 75, -7, 15, 30, 16, -5, 0, 14, -10

Тема урока: «Перестановка элементов в одномерном массиве»

Цель урока: научиться переставлять элементы массива

Схема перестановки двух элементов с использованием промежуточной переменной

Алгоритм перестановки двух элементов в общем виде.

pr:=a[i];

a[i]:=a[j];

a[j]=pr;

Нужно поменять местами 2-й и 5-й элементы массива, состоящего из десяти целых чисел.

  • План построения программы.
  • 1)описание переменных.
  • 2)стандартный ввод-вывод массива.
  • 3) перестановка элементов.
  • 4)вывод элементов массива в строку.

Нужно поменять местами 2-й и 5-й элементы массива, состоящего из десяти целых чисел.

Program z1;

Var A:array[1..10] of integer;

i,pr: integer;

begin

randomize;

For i:=1 to 10 do

Begin

a[i]:=-10+random(21);

write(a[i]:4);

end; writeln;

pr:=a[2];

a[2]:=a[5];

a[5]:=pr;

For i:=1 to 10 do

write(a[i]:4);

writeln;

end.

Пришло время попробовать свои силы за компьютером.

Домашнее задание.

  • Повторить известные алгоритмы обработки массивов, выучить алгоритм перестановки.
  • Написать программу решения задачи

  • Задать массив, состоящий из 20 целых чисел. Поменять местами 3-й и максимальный элементы массива.