Презентация по информатике на тему Нахождение элемента массива с заданными свойствами

ПовторениеДиапазонФункция[-7;0]x := RANDOM (_)+ _;[-5;1]x := RANDOM (_) + _;[1;100]x := RANDOM (_) + _; Нахождение элемента массива с заданными свойствами Результатом поиска элемента, значение которого равно заданному, может быть:n - индекс элемента массива такой, что a[n]= x, где х - заданное число; сообщение о том, что искомого элемента в массиве не обнаружено.133116200731163749Здесь:4-й элемент равен 20;два элемента равны 31:нет элемента равного 10;четыре элемента – четные числа.Условия поиска




Алгоритм поискаЗадать массив с помощью случайных чисел в заданном диапазоне. Вывести его на экран.Ввести число Х, с которым будет сравниваться текущий элемент массива . Если элемент равен числу Х (ИЛИ другое условие истинно), то некая переменная–счетчик NumberX увеличивается на единицу. Анализ и вывод результата: если переменная–счетчик NumberX=0 => таких чисел в массиве нет; если переменная–счетчик NumberX равна какому-то значению, то => кол-во чисел в массиве = этому значению. У стр.117 Как определить четность числа?Как изменится фрагмент программы, если используется элемент массива, а не переменная?Как изменится фрагмент программы, если используется 100 элементов массива?

Могут быть использованы для определения четности элементов массиваNumberChet:=0;for i:=1 to 20 do if Rand[i] mod 2=0 then NumberChet:= NumberChet +1;Операции MOD и DIV: ЗаданияЗаполнить массив из 20-ти элементов случайными числами из диапазона [0; 50]. Найти количество элементов массива, равных заданному числу (Учебник стр.117).Измените программу (Random(50)) так, чтобы числа принадлежали диапазону [-10; 10] Условие If Rand(I) = X… измените на условие, чтобы программа находила количество положительных чисел. Макет программыprogram MaxX;var A:array [1..X] of тип данных; i: integer; max,min,sum,kx,kchet: integer; sred:real;begin Randomize; for i:=1 to X do begin A[i]:=Random (11) - 5; Write ( A[i], ‘ ‘ ); end;max:= A[1]; for i:=2 to 5 do if A[i] > max then max:= A[i];write (‘max=‘ ,max); Sum:=0;for i:=1 to X do sum:=sum + A[i];Sred:=sum/X;write (‘sred=‘ ,sred:5:2);kchet:=0;for i:=1 to 100 do if A[i] mod 2=0 then kchet:=kchet+1; min:= A[1]; for i:=2 to 5 do if A[i] <min then min:= A[i];write (‘min =‘ , min);
Задания Заполните массив из 10-ти элементов случайными числами от -5 до 5.Распечатать на экране элементы в столбец. Найти максимальный, минимальный элемент, среднее значение чисел и вывести на их экран. Заполните массив из 10-ти элементов случайными числами от 1 до 10. Распечатать на экране элементы. Найти четные элементы и вывести на экран их сумму.Заполните массив из 5-ти элементов случайными числами от 10 до 20. Распечатать на экране элементы в строку. Введите число X. Подсчитать количество элементов, равных числу X.