Программирование (Паскаль)
Сумма элементов массива
Сумма не всех элементов массива
Задачи
Подсчёт элементов по условию
Среднее арифметическое
Среднее арифметическое
Задачи
Обработка потока данных
Обработка потока данных
Найди ошибку!
Найди ошибку!
Обработка потока данных
Обработка потока данных
Найди ошибку!
Задачи
Задачи
Перестановка элементов массива
Перестановка пар соседних элементов
Перестановка пар соседних элементов
Перестановка пар соседних элементов
Реверс массива
Реверс массива
184.24K
Category: programmingprogramming

Программирование (Паскаль). Алгоритмы обработки массивов

1. Программирование (Паскаль)

Алгоритмы обработки массивов
Автор: К. Поляков
1

2. Сумма элементов массива

Программирование (Паскаль), 8 класс
2
Сумма элементов массива
Задача. Найти сумму элементов массива.
const N = 10;
var A: array[1..N] of integer;
?
Какие переменные
нужны?
sum:= 0;
for i:=1 to N do
sum:= sum + A[i];
writeln( sum );
К.Ю. Поляков, Е.А. Ерёмин, 2018
5
2
8
3
i
sum
0
1
2
3
5
7
15
4
5
18
19
1
http://kpolyakov.spb.ru

3. Сумма не всех элементов массива

Программирование (Паскаль), 8 класс
3
Сумма не всех элементов массива
Задача. Найти сумму чётных элементов массива.
?
Что делаем с нечётными?
sum:= 0;
for i:=1 to N do
if
A[i]
mod
= 0 then
sum:=
sum
+ 2
A[i];
sum:=sum
sum);
+ A[i];
writeln(
writeln( sum );
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

4. Задачи

Программирование (Паскаль), 8 класс
4
Задачи
«A»: Напишите программу, которая заполняет массив из 10
элементов случайными числами на отрезке [–5; 5] и
находит сумму положительных элементов.
«B»: Напишите программу, которая заполняет массив из 10
элементов случайными числами на отрезке [–2; 2] и
находит произведение ненулевых элементов.
«C»: Напишите программу, которая заполняет массив из 20
элементов случайными числами на отрезке
[100; 1000] и находит отдельно сумму элементов в первой
и во второй половинах массива.
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

5. Подсчёт элементов по условию

Программирование (Паскаль), 8 класс
5
Подсчёт элементов по условию
Задача. Найти количество чётных элементов массива.
?
Какие переменные нужны?
переменнаяvar count: integer;
счётчик
count:= 0;
for i:=1 to N do
if A[i] mod 2 = 0 then
count:= count + 1;
Что тут делаем?
?
writeln( count );
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

6. Среднее арифметическое

Программирование (Паскаль), 8 класс
6
Среднее арифметическое
Задача. Найти среднее арифметическое элементов массива,
которые больше 180 (рост в см).
sum:= 0;
for i:=1 to N do
if A[i]>180 then
sum:= sum + A[i];
writeln( sum/N );
К.Ю. Поляков, Е.А. Ерёмин, 2018
?
Что плохо?
http://kpolyakov.spb.ru

7. Среднее арифметическое

Программирование (Паскаль), 8 класс
7
Среднее арифметическое
Задача. Найти среднее арифметическое элементов массива,
которые больше 180 (рост в см).
?
Какие переменные нужны?
sum:= 0;
count:= 0;
for i:=1 to N do
if A[i]>180 then begin
count:= count + 1;
sum:= sum + A[i]; ? Что тут делаем?
end;
writeln( sum/count )
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

8. Задачи

Программирование (Паскаль), 8 класс
8
Задачи
«A»: Напишите программу, которая заполняет массив из 20
элементов случайными числами на отрезке [0; 200] и
считает число элементов, которые делятся на 10.
«B»: Напишите программу, которая заполняет массив из 20
элементов случайными числами на отрезке [0; 200] и
считает число двузначных чисел в массиве.
«C»: Напишите программу, которая заполняет массив из 20
элементов случайными числами на отрезке [10; 100] и
считает число пар соседних элементов, сумма которых
делится на 3.
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

9. Обработка потока данных

Программирование (Паскаль), 8 класс
9
Обработка потока данных
Задача. С клавиатуры вводятся числа, ввод завершается
числом 0. Определить, сколько было введено
положительных чисел.
1) нужен счётчик
Когда
2) счётчик увеличивается если число
> 0увеличивать
счётчик?
3) нужен цикл
4) это цикл с условием (число шагов неизвестно)
Какой цикл?
?
?
счётчик = 0
пока не введён 0:
если введено число > 0 то
счётчик:= счётчик + 1
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

10. Обработка потока данных

Программирование (Паскаль), 8 класс
10
Обработка потока данных
var x, count: integer;
count: = 0;
откуда взять x?
read( x );
while x <> 0 do begin
if x > 0 then
count:= count + 1;
read( x );
? Что плохо?
end;
writeln( count );
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

11. Найди ошибку!

Программирование (Паскаль), 8 класс
11
Найди ошибку!
var x, count: integer;
count: = 0;
read( x );
while x <> 0 do begin
if x > 0 then
count:= count + 1;
end;
read( x );
writeln( count );
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

12. Найди ошибку!

Программирование (Паскаль), 8 класс
12
Найди ошибку!
var x, count: integer;
read( x= 0;
);
count:
while x = 0 do begin
if x ><>
0 then
count:= count + 1;
read( x );
end;
writeln( count );
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

13. Обработка потока данных

Программирование (Паскаль), 8 класс
13
Обработка потока данных
Задача. С клавиатуры вводятся числа, ввод завершается
числом 0. Найти сумму введённых чисел, оканчивающихся
на цифру "5".
1) нужна переменная для суммы
2) число добавляется к сумме, если оно заканчивается
на "5"
3) нужен цикл с условием
сумма: = 0
? Как это записать?
пока не введён 0:
если число оканчивается на "5" то
сумма:= сумма + число
if x mod 10 = 5 then
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

14. Обработка потока данных

Программирование (Паскаль), 8 класс
14
Обработка потока данных
Задача. С клавиатуры вводятся числа, ввод завершается
числом 0. Найти сумму введённых чисел, оканчивающихся
на цифру "5".
var x, sum: integer;
sum: = 0;
Чего не хватает?
?
read( x );
while x <> 0 do begin
if x mod 10 = 5 then
sum:= sum + x;
read( x )
end;
writeln( sum );
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

15. Найди ошибку!

Программирование (Паскаль), 8 класс
15
Найди ошибку!
var x, sum: integer;
sum: = 0;
while
read( x <>
); 0 do begin
if x mod 10 = 5 then
sum:= sum + x;
read( x )
end;
writeln( sum );
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

16. Задачи

Программирование (Паскаль), 8 класс
16
Задачи
«A»: На вход программы поступает неизвестное количество
целых чисел, ввод заканчивается нулём. Определить,
сколько получено чисел, которые делятся на 3.
«B»: На вход программы поступает неизвестное количество
целых чисел, ввод заканчивается нулём. Определить,
сколько получено двузначных чисел, которые
заканчиваются на 3.
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

17. Задачи

Программирование (Паскаль), 8 класс
17
Задачи
«C»: На вход программы поступает неизвестное количество
целых чисел, ввод заканчивается нулём. Найти среднее
арифметическое всех двузначных чисел, которые делятся
на 7.
«D»: На вход программы поступает неизвестное количество
целых чисел, ввод заканчивается нулём. Найти
максимальное из введённых чётных чисел.
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

18. Перестановка элементов массива

Программирование (Паскаль), 8 класс
18
Перестановка элементов массива
?
Как поменять местами значения двух
переменных a и b?
вспомогательная
переменная
с:= a;
a:= b;
b:= c;
К.Ю. Поляков, Е.А. Ерёмин, 2018
элементы массива:
с:= A[i];
A[i]:= A[k];
A[k]:= c;
http://kpolyakov.spb.ru

19. Перестановка пар соседних элементов

Программирование (Паскаль), 8 класс
19
Перестановка пар соседних элементов
Задача. Массив A содержит чётное количество элементов N.
Нужно поменять местами пары соседних элементов:
первый со вторым, третий — с четвёртым и т. д.
1
2
3
4
7
12
38
5
1
2
3
4
12
7
5
38
К.Ю. Поляков, Е.А. Ерёмин, 2018


N-1
N
40
23
N-1
N
23
40
http://kpolyakov.spb.ru

20. Перестановка пар соседних элементов

Программирование (Паскаль), 8 класс
20
Перестановка пар соседних элементов
for i:=1 to N do begin
поменять местами A[i] и A[i+1]
end;
Что плохо?
?
1
2
3
4
5
7
12
38
5
40
23
12
7
38
5
40
23
12
38
7
5
40
выход
23 за границы
массива
12
38
5
7
40
23
12
38
5
40
7
23
12
38
5
40
23
7
К.Ю. Поляков, Е.А. Ерёмин, 2018
6
?
http://kpolyakov.spb.ru

21. Перестановка пар соседних элементов

Программирование (Паскаль), 8 класс
21
Перестановка пар соседних элементов
не выходим за
границу
i:= 1;
while i < N do begin
{ переставляем A[i] и A[i+1] }
с:= A[i];
A[i]:= A[i+1];
A[i+1]:= c;
i:= i + 2
{ к следующей паре }
end;
A[1] A[2], A[3] A[4], …, A[N-1] A[N]
К.Ю. Поляков, Е.А. Ерёмин, 2018
http://kpolyakov.spb.ru

22. Реверс массива

Программирование (Паскаль), 8 класс
22
Реверс массива
Задача. Переставить элементы массива в обратном порядке
(выполнить реверс).
1
2
3
7
12
5
1
2
3
23
40
38
A[1] A[N]
A[2] A[N-1]
A[i] A[N+1-i]
A[N] A[1]
К.Ю. Поляков, Е.А. Ерёмин, 2018
N-2
N-1
N
38
40
23
N-2
N-1
N

5
12
7
1+N
2+N-1
i+???
N+1
=
=
=
=

N+1
N+1
N+1
N+1
http://kpolyakov.spb.ru

23. Реверс массива

Программирование (Паскаль), 8 класс
23
Реверс массива
2 do begin
for i:=1 to NN div
do begin
поменять местами A[i] и A[N+1-i]
end;
Что плохо?
?
1
2
3
4
7
12
40
23
i=1
23
12
40
7
i=2
23
40
12
7
i=3
23
12
40
7
i=4
7
12
40
23
?
К.Ю. Поляков, Е.А. Ерёмин, 2018
Как исправить?
http://kpolyakov.spb.ru
English     Русский Rules