«Богатство ума не в обладании огромными знаниями, а в умении ими пользоваться» Спиноза
- В саду жили 14 семей бабочек. В первой семье бабочек было 3, во второй – 5, в третьей – 7 и т.д. Подсчитайте общее количество (сумму) бабочек.
- Во время субботника учащиеся 10 А класса школы № 16 собирали макулатуру. Классным руководителем были собраны сведения о количестве макулатуры, собранной каждым учеником. Определить ученика, собравшего большее количество макулатуры, то есть наилучший результат.
- В 2-этажном доме 16 квартир. На первом этаже вывешены почтовые ящики всех квартир. Почтальон перепутал почту квартир №2 и № 6. Нужно поменять ( переложить) содержимое этих ящиков.
Одномерные массивы Перестановка элементов
4. Упорядочивание элементов массива по возрастанию или убыванию.
1. Группа элементов одного типа, обозначенная одним именем.
8. Обозначение, показывающее месторасположение элемента в массиве.
6. массив, состоящий из чисел.
7. Операция резервирования места в памяти компьютера для элементов массива.
3. Совокупность символов, однозначно указывающая на тот или иной массив.
9. Характеристика, указывающая на количество элементов в массиве.
2. Характеристика массива, указывающая на способ размещения элементов массива.
5. Вид массива, элементы которого располагаются в строку или в столбец.
2
Р
З
М
Е
Н
О
Т
Ь
3
1
М А С С И В
М
Я
5
4
Д
Н
О
М
Р
Н
Ы
Й
С О Р Т И Р О В К А
7
6
Ч И С Л О В О Й
П
И
С
Н
И
Е
8
И Н Д Е К С
9
Р А З М Е Р
Графический способ записи-
Блок- схема-
Название блока
Вид блока
Что означает
max Max:=a[i]; max конец " width="640"
Найти максимальный элемент в массиве А( 10 )
начало
i:=1,10,1
A[i]:=random(10);
Max:=a[1];
i:= 2 ,10,1
да
нет
A[i]max
Max:=a[i];
max
конец
Найти сумму элементов кратных 3 в массиве А( 10 )
начало
i:=1,10,1
A[i]:=random( 5 0);
S:=0;
i:=1,10,1
да
нет
A[i] mod 3 =0
S:=S+a[i];
S
конец
Даны 5 корзинок, поменять местами грибы из первой и последней корзинок.
начало
i:=1, 5 ,1
a[i];
buf:=a[1];a[1]:=a[5];a[5]:=buf;
i:=1,5,1
a[i]
конец
Даны 5 корзинок, поменять местами корзинки с наибольшим и наименьшим количеством грибов.
начало
i:=1, 5 ,1
a[i];
buf:=a[1];a[1]:=a[5];a[5]:=buf;
i:=1,5,1
a[i]
конец
Стандартные типы задач на использование одномерных массивов :
- - нахождения суммы (произведения) элементов массива;
- -нахождения количества элементов массива, удовлетворяющих определенным условиям;
- -определения наибольшего (наименьшего) элемента в массиве;
- -упорядочения массива в порядке возрастания (убывания) элементов.
Стандартные типы задач на использование одномерных массивов :
- - нахождения суммы (произведения) элементов массива;
- -нахождения количества элементов массива, удовлетворяющих определенным условиям;
- -определения наибольшего (наименьшего) элемента в массиве;
- -упорядочения (сортировка) массива в порядке возрастания (убывания) элементов.
Вычисление суммы значений элементов массива
- Найти сумму значений 10 элементов одномерного массива А(10): s = a [1]+ a [2]+…+ a [ 10 ]
s :=0;
for i:=1 to 10 do
s := s + a [ i ];
writeln(‘s=’,s);
Вычисление произведения значений элементов массива
Найти произведение значений 10 элементов одномерного массива А(10) :
p=a[1]*a[2]*…*a[10]
p:=1;
For i:=1 to 10 do
p:=p*a[i];
Writeln (‘ p =’, p );
Подсчет количества элементов, удовлетворяющих определенному условию.
Найти сколько четных значений в целочисленном массиве: А ( 10 ):
K :=0;
For i :=1 to 10 do
if a [ i ] mod 2=0 then k := k + l ;
writeln (‘ k =’, k );
Задать и заполнить данными массив В(5). Открыть шаблон 9а281. pas )
1. Сумму элементов массива В (5);
2. Произведение элементов кратных 2;
Найдите ошибки : 1. Найти сумму первых 10 элементов массива, заданных по формуле:
- PROGRAM 1A; VAR A:ARRAY [1..10] OF INTEGER; I: INTEGER; S: INTEGER; BEGIN S: =1; FOR I: =1 TO N DO A[i]:=2*I – 5.5; WRITELN (‘A[‘,I,’]=’,A[I]); S:=S+ A[i]; WRITELN (‘S=’,S); END.
0
10
begin
end;
Найдите ошибки : 2. Найти произведение 15 случайных чисел в диапазоне от 1 до 10.
- PROGRAM D 2 ; VAR A:ARRAY [1..10] OF INTEGER; P, I: REAL; BEGIN P:=0; A(i):=RANDOM(10); WRITELN (‘A[‘,I,’]=’,A[I]); P:=P*A[i];
End; WRITELN (‘P=’,P); END.
Integer;
For i:=1 to 15 do begin
1
[ ]
Задачи для самостоятельного выполнения 1 вариант (см. файл Шаблон вариант 1. doc)
1. Найти произведение элементов стоящих на четных местах. Откройте файл VAR1_ Z1. PAS и в готовом шаблоне допишите недостающие операторы
2. На крыше дома 10 семей ласточек. В первой семье ласточка была одна, во второй – 4, в третьей – 7 и т.д. Подсчитайте общее количество ласточек. Выведите на экран номера семей, где количество ласточек кратно 2 . Откройте файл VAR1_ Z2. PAS и в готовом шаблоне допишите недостающие операторы.
Задачи для самостоятельного выполнения 2 вариант (см. файл Шаблон вариант 2 . doc)
1. Найти сумму элементов кратных 2 .
Откройте файл VAR 2 _ Z1. PAS и в готовом шаблоне допишите недостающие операторы
2. В саду жили 14 семей бабочек. В первой семье бабочка была 1 , во второй – 3, в третьей – 5 и т.д. Выведите на экран номера семей, где количество бабочек кратно 3 .
Откройте файл VAR 2 _ Z2. PAS и в готовом шаблоне допишите недостающие операторы.
Стандартные типы задач на использование одномерных массивов :
- нахождения суммы элементов массива;
- нахождения произведения элементов массива;
- - -нахождения количества элементов массива, удовлетворяющих определенным условиям;
Спасибо за урок!