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


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

Подписи к слайдам:
Не существует проблем, Не содержащих в себе дар, Предназначенный вам. Вы ищите проблемы, Потому что вам нужны их дары. Ричард Бах. Задать массив, состоящий из 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-й и максимальный элементы массива.