Презентация «Одномерные массивы»

Одномерные массивы в Pascal ABC

Цель урока Сформировать представления об одномерных массивах Сформировать умение решать задачи с использованием одномерных массивов Формирование умения работать с ЭОР

Отгадай ребус

Где Вы раньше встречались с данным понятием? а = [1, 2, 3, 4, 5] b = [3, 4, 5, 6, 7] с = [1, 2, 3, 4, 5, 6, 7]

Массив тип или структура данных в виде набора компонентов (элементов массива), расположенных в памяти непосредственно друг за другом.

Одномерный массив это фиксированное количество элементов одного и того же типа, объединенных одним именем, где каждый элемент имеет свой номер. Обращение к элементам массива осуществляется с помощью указания имени массива и номеров элементов.

Запись одномерного массива в Pascal ABC: Var a : array [1..N] of integer; ИЛИ 2) Type arr = array[1..N] of integer; var a: arr;

Ввод одномерного массива в Pascal ABC: а) с клавиатуры for i := 1 to N do read(a[i]); б) с использованием генератора случайных чисел for i := 1 to N do a[i]:=random(Const);

Пример фрагмента программы заполнения массива Паскаля случайными числами Var A: array [1..10] of integer; I : byte ; {переменная I вводится как индекс массива} Begin For i :=1 to 10 do A [ i ]:= random (10);

Вывод одномерного массива в Pascal ABC: For i:=1 to N do Writeln (a[i]);

Пример фрагмента программы вывода массива Паскаля в столбик Var A: array [1..10] of integer; I : byte ; {переменная I вводится как индекс массива} Begin For i:=1 to 10 do Writeln ('a[', i,']=', a[i]);

Пример программы суммирования массивов Program summa; Var a, b, c: array [1..100] of integer; I, n: byte; Begin Write ('введите размерность массивов:'); Readln(n); For i:=1 to n do Readln (a[i]); { ввод массива a} For i:=1 to n do Readln (b[i]); { ввод массива b} For i:=1 to n do C[i]:=a[i]+b[i];{ вычисление суммы массивов } For i:=1 to n do write (c[i],' '); { вывод массива с } end.

Пример программы вывода на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34]. Program posled; Var a: array[1..100] of integer; i, n: integer; Begin Write (‘Сколько элементов? ’); Readln (n); For i=1 to n do begin a[i]:= Random(58)-23; writeln (a[i],’ ‘); end; End.

Пример программы которая в последовательности натуральных чисел определяет количество чисел, кратных 5 var n, s, k, g: integer; begin s:=0; readln(n); for k:=1 to n do begin readln(g); if (g mod 5 = 0) then s:=s+1; end; writeln(s); end.

Решаем задачи Уровень 1 Составьте программу для вывода последовательности 5 чисел в диапазоне [-10;10] Уровень 2 Составьте программу для расчета суммы элементов массива. Уровень 3 Составьте программу для расчета суммы четных чисел в массиве из N случайных элементов

Решаем задачи Уровень 1 Составьте программу умножения элементов массива. Уровень 3 Составьте программу для расчета произведения положительных элементов массива.

Домашнее задание: Параграф 48 Стр. 243-248