Ввод и вывод элементов массива

Ввод и вывод элементов массива

Цели урока:

• закрепление материала, изученного на предыдущем уроке;

• развитие умений формирования массива;

• развитие познавательного интереса, логического и алгоритмического мышления, самооценки, навыков самоконтроля.

Тип урока: урок усвоения новых знаний.

Учащиеся должны знать: способы формирования массива.

Учащиеся должны уметь: формировать массив с помощью формул и функции random.

Ход урока:

1. Организационный момент;

2. Актуализация знаний;

3. Объяснение нового материала;

Одним из способов задания элементов массива является заполнение массива случайными числами из некоторого диапазоны. Для этого в программе используется функция Random (x). Она возвращает случайное целое число в диапазоне от 0 до х-1 (х – целое число).

Например,

a:= Random(10); - переменная a получит значение случайного целого числа в диапазоне от 0 до 9.

a:= Random(11); - переменная a получит значение случайного целого числа в диапазоне от 0 до 10.

a:= Random(10)+1; - переменная a получит значение случайного целого числа в диапазоне от 1 до 10.

Еще одним способом заполнения массива является заполнение массива числами, связанными определенной закономерностью.

1. Выполнение практических заданий.

Задание 1. Составьте программу, в которой массив заполняется случайными целыми числами в диапазоне от 0 до 20.

program primer1;

var

a:array[1..10] of integer;

i:integer;

begin

writeln ('Полученный массив:');

for i:=1 to 10 do

begin

a[i]:=random(21);

write (a[i],' ');

end;

end.

Задание 2. Составьте программу заполнения массива a[1..10] следующими числами:

program primer2;

var

a:array[1..10] of integer;

i:integer;

begin

for i:=1 to 10 do

a[i]:=i*2;

writeln ('Полученный массив:');

for i:=1 to 10 do

write (a[i],' ');

end.

Задание 3. Составьте программу заполнения массива a[1..10] следующими числами:

program primer3;

var

a:array[1..10] of integer;

i:integer;

begin

for i:=1 to 10 do

a[i]:=i*2+1;

writeln ('Полученный массив:');

for i:=1 to 10 do

write (a[i],' ');

end.

Задание 4. Составьте программу, в которой массив заполняется случайными целыми числами в диапазоне от 1 до 30.

program primer4;

var

a:array[1..10] of integer;

i:integer;

begin

writeln ('Полученный массив:');

for i:=1 to 10 do

begin

a[i]:=random(30)+1;

write (a[i],' ');

end;

end.

1. Домашнее задание: §6.