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

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

Цель урока

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

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

Где Вы раньше встречались с данным понятием?

Массив

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

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

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

Запись одномерного массива в 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.

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.

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.

Решаем задачи

Решаем задачи

Домашнее задание:

Источники

http://school-collection.edu.ru/
http://metodist.lbz.ru/
http://www.metod-kopilka.ru
http://rebus1.com/index.php?item=rebus_generator&enter=1 – генератор ребусов
Графическое оформление - Lenagold.ru