Презентация "Одномерные массивы в Pascal ABC" 9 класс

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

Одномерные массивы в 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;

Ввод одномерного массива в 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

Составьте программу для расчета суммы четных чисел в массиве из N случайных элементов

Уровень 3