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

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