Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему одномерный массиы

Содержание

СодержаниеВведениеОдномерные массивы в ПаскалеПримеры решения задачЗадания для самостоятельной работыИндивидуальные заданияТестовые задания
Одномерные массивы в языке программирования Паскаль. СодержаниеВведениеОдномерные массивы в ПаскалеПримеры решения задачЗадания для самостоятельной работыИндивидуальные заданияТестовые задания .все познается через труд, через преодоление собственных ошибок, через процесс решения задач.Основной использовать его как инструментарий индивидуального и развивающего обучения;Использование программирования позволяет:показать практическую значимость Одномерные массивы в ПаскалеПонятие «массив»Описание одномерных массивовВвод одномерных массивовВывод одномерных массивов Понятие «массив»	С понятием «массив» приходится сталкиваться при решении научно-технических и экономических задач Понятие «массив»Название регулярный тип (или ряды) массивы получили за то, что в Такой тип данных применяется в программировании для обозначения объектов, аналогичных числовым последовательностям В программировании массив – это последовательность однотипных элементов, имеющих общее имя, причем Примеры массивов:Понятие «массив»Х1, Х2, …, Хn – одномерный массив, состоящий из n Структура массива всегда однородна. Массив может состоять из элементов типа integer , Рассмотрим массив Х1, Х2, …, Хn .Здесь:Понятие «массив»Х – имя массива;1, 2,…, Описание одномерных массивовДля описания массивов в программировании предварительно следует ввести соответствующий тип Описание одномерных массивовПеременную типа массив можно описать сразу в разделе описания переменных Например:Type    mas = Array [1..20] of real;Var Ввод массивов осуществляется поэлементно.Введем одномерный массив Х, состоящий из 30 элементов, то Первый вариант: ввод массива с использованием цикла с предусловием:Ввод одномерных массивовДаНет Program Primer_1;Var i: integer;   X: array [1..30] of Integer;Begin Второй вариант: ввод массива с использованием цикла с постусловием:Ввод одномерных массивов в Ввод одномерных массивовProgram Primer_2;Var i: integer;   X: array [1..30] of Третий вариант: ввод массива с использованием цикла с параметром: Ввод одномерных массивовКонецi Program Primer_3;Var i: integer;   X: array [1..30] of Integer;Begin Вывод одномерного массива осуществляется также поэлементно.Например, выведем одномерный массив Х1, Х2, …, Первый вариант: вывод массива с использованием цикла с предусловием:Вывод одномерных массивовДаНет Второй вариант: вывод массива с использованием цикла с постусловием:Вывод одномерных массивовi := Третий вариант: вывод массива с использованием цикла с параметром: Вывод одномерных массивовКонецi В программе вместо операторов Read или Readln используются операторы Write или Writeln. Приведем два возможных способа вывода массива:Вывод одномерных массивов1)  For i := На первый взгляд второй способ может показаться более простым и удобным, но Вывод одномерных массивовКроме того, очень часто массив требуется распечатать дважды, чтобы сравнить Программа вывода одномерного массивас помощью цикла с параметром:Вывод одномерных массивовProgram Primer_4;Const n Вычисление суммы и произведения элементов массива, удовлетворяющих заданному условиюНахождение количества элементов, удовлетворяющих Задача 1 Дан целочисленный одномерный массив, состоящий из n элементов. Найти Введем обозначения: n – количество элементов в массиве; А – имя массива; Первый способ. Для решения используется цикл с параметром:НачалоВвод ni := 1, n, Program Primer1_1;Var A: Array[1..20] Of Integer;   i, n, s, p: Второй способ. Для решения используется цикл с предусловием:Program Primer1_2;Var A: Array[1..20] Of Задача 2Дан массив целых чисел. Найти количество тех элементов, значения которых положительны Введем обозначения: n – количество элементов в массиве; X – имя массива; Первый способ. Для решения используется цикл с параметром:НачалоВвод ni := 1, n, Program Primer2_1;Var X: Array[1..20] Of Integer;   i, n, k, A: Задача 2.Program Primer2_2;Var X: Array [1..20] Of Integer;   i, n, Задача 3Найти номера четных элементов массива, стоящих на нечетных местах.Нахождение номеров элементов, обладающих заданным свойством Задача 3Введем обозначения: n – количество элементов в массиве; X – имя Задача 3НачалоВвод ni := 1, n, 1ВводXi(Xi mod 2 =0) и (i Задача 3Program Primer3_1;Var X: Array[1..20] Of Integer;   i, n: Integer;Begin Задача 4Найти номер последнего отрицательного элемента массива. Задача 4Введем обозначения: n – количество элементов в массиве; A – имя Задача 4Program Primer3_2;Const n=10;Var A: Array[1..n] Of Integer;   i, m: Поиск нужного элемента в массивеЗадача 5 Дан одномерный массив Х1, Х2, …, Задача 5Введем обозначения: n – количество элементов в массиве; X – имя Задача 5Первый способProgram Primer4_1;Var X: Array[1..30] Of Real;   i, n, Задача 5Второй способProgram Primer4_2;Var X: Array[1..30] Of Real;   i, n, Задача 6Дан целочисленный одномерный массив. Есть ли в нем отрицательный элемент? Задача 6Введем обозначения: n – количество элементов в массиве; X – имя Задача 6Первый способProgram Primer4_3;Const n=10;Var X: Array[1..n] Of Integer;   i, Задача 6Второй способProgram Primer4_4;Const n=10;Var X: Array[1..n] Of Integer;   i: Изменение значений некоторых  элементов массиваЗадача 7Дан одномерный массив, состоящий из n Задача 7Введем обозначения: n – количество элементов в массиве; А – имя Задача 7Program Primer5_1;Const n = 30;Var A: Array[1..n] Of Integer; Задача 8Дан одномерный массив А1, А2, …, Аn. Элементы, не превышающие 15, Задача 8Входные данные: n, А. Выходные данные: А. Введем обозначения: n – Задача 8Program Primer5_2;Const n = 30;Var A: Array[1..n] Of Real; Формирование нового массиваЗадача 9.Сформировать целочисленный массив Х1,Х2,…,Хn, элементы которого: 2, 4, 8, 16, … Задача 9Введем обозначения: n – количество элементов в массиве; Х – имя Задача 9По исходным данным получаем следующее правило формирования массива: Х1=2; Хi = Задача 10Сформировать одномерный массив так, что первые два элемента заданы, а остальные Задача 10Введем обозначения: n – количество элементов в массиве; X – имя Задача 10Program Primer6_2;Const n = 20;Var X: Array[1..n] Of Integer; Задача 11Дан одномерный масив Х1,Х2,…,Хn. Из четных элементов этого массива сформировать новый одномерный массив. Задача 11Введем обозначения: n – количество элементов в массиве; X – имя Задача 11Program Primer6_3;Const n = 20;Var X, Y: Array[1..n] Of Integer; Перестановка элементов массиваЗадача 12Дан одномерный массив Х1, Х2, …, Хn. Поменять местами Задача 12Введем обозначения: n – количество элементов в массиве; X – имя Задача 12Program Primer7_1;Const n = 20;Var X: Array[1..n] Of Integer; Задача 13Переставить все элементы одномерного массива Х в обратном порядке. Задача 13Введем обозначения: n – количество элементов в массиве; X – имя Задача 13Program Primer7_2;Const n = 20;Var X: Array[1..n] Of Integer; Сортировка массива (сортировка «пузырьком»)Задача 14Отсортировать целочисленный одномерный массив по возрастанию. Сортировка «пузырьком»Суть метода состоит в том, что последовательно сравниваются все пары соседних Сортировка «пузырьком»Но массив при этом вовсе не обязательно окажется упорядоченным. Гарантированно на Задача 14Введем обозначения: n – количество элементов в массиве; X – имя Задача 14Program Primer8_1;Const n = 100;Var X: Array[1..n] Of Integer; Задания для самостоятельной работы Дан целочисленный одномерный массив, состоящий из n Заменить отрицательные элементы массива на их абсолютные величины.Сформировать одномерный массив, содержащий n Индивидуальные заданияВариант № 1Найти сумму положительных элементов в массиве.Дан одномерный массив А1, Вариант № 4Найти номера элементов массива, значения которых кратны 4 или 6.Дан Вариант № 6Найти количество элементов массива, значения которых больше заданного числа B Вариант №8Найти номера тех элементов массива, значения которых больше заданного числа С.Из Вариант №11Найти сумму элементов массива, имеющих нечетные индексы.Определить, есть ли в данном Вариант №13Найти сумму и произведение первых пяти элементов массива.Дан одномерный массив Х1, Вариант №15Дан одномерный массив Х1, Х2, …, Хn . Найти количество и Тестовые заданияКликнуть мышью по гиперссылке персонального сайта учителя информатики Камаловой Н.А.http://infoworld.lensch5.edusite.ru/p24aa1.html
Слайды презентации

Слайд 2 Содержание
Введение
Одномерные массивы в Паскале
Примеры решения задач
Задания для самостоятельной

СодержаниеВведениеОдномерные массивы в ПаскалеПримеры решения задачЗадания для самостоятельной работыИндивидуальные заданияТестовые задания

работы
Индивидуальные задания
Тестовые задания




Слайд 3

.



все познается через труд,
через преодоление собственных ошибок,

.все познается через труд, через преодоление собственных ошибок, через процесс решения


через процесс решения задач.
Основной методический принцип обучения
программированию –
Введение




Слайд 4 использовать его как инструментарий индивидуального и развивающего обучения;

Использование

использовать его как инструментарий индивидуального и развивающего обучения;Использование программирования позволяет:показать практическую

программирования позволяет:



показать практическую значимость использования программирования для наглядного представления

решения задач в различных областях жизнедеятельности человека;





развивать логическое и аналитическое
мышление школьников.

содействовать развитию общей информационной культуры как одного из аспектов будущей профессиональной деятельности;

активизировать учебный процесс;

Введение





Слайд 5 Одномерные массивы в Паскале
Понятие «массив»
Описание одномерных массивов
Ввод одномерных

Одномерные массивы в ПаскалеПонятие «массив»Описание одномерных массивовВвод одномерных массивовВывод одномерных массивов

массивов
Вывод одномерных массивов






Слайд 6 Понятие «массив»
С понятием «массив» приходится сталкиваться при решении

Понятие «массив»	С понятием «массив» приходится сталкиваться при решении научно-технических и экономических

научно-технических и экономических задач обработки совокупностей большого количества значений.

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





Слайд 7





Понятие «массив»

Название регулярный тип (или ряды) массивы получили

Понятие «массив»Название регулярный тип (или ряды) массивы получили за то, что

за то, что в них объединены однотипные (логически однородные)

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

Массив – это составной объект,
образованный из элементов (компонент)
одного и того же типа.






Слайд 8 Такой тип данных применяется в программировании для обозначения

Такой тип данных применяется в программировании для обозначения объектов, аналогичных числовым

объектов, аналогичных числовым последовательностям в математике, где сразу целая

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

В математике это может выглядеть, например, так:
a1, а2, а3, …, аn.

Понятие «массив»





Слайд 9


В программировании массив – это
последовательность однотипных элементов,

В программировании массив – это последовательность однотипных элементов, имеющих общее имя,


имеющих общее имя, причем каждый элемент
этой последовательности определяется
порядковым

номером (индексом) элемента.

Понятие «массив»





Слайд 10 Примеры массивов:



Понятие «массив»
Х1, Х2, …, Хn – одномерный

Примеры массивов:Понятие «массив»Х1, Х2, …, Хn – одномерный массив, состоящий из

массив,
состоящий из n элементов.

А0, А1, А2, …, А10

– одномерный массив,
состоящий из 11 элементов.

Массивы бывают одномерными (один индекс),
двумерными (два индекса) и т.д.






Слайд 11 Структура массива всегда однородна.
Массив может состоять из

Структура массива всегда однородна. Массив может состоять из элементов типа integer

элементов типа integer , real или char , либо

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

Номер элемента массива называется индексом. Индекс – это значение порядкового типа, определенного, как тип индекса данного массива.

Понятие «массив»





Слайд 12

Рассмотрим массив Х1, Х2, …, Хn .
Здесь:
Понятие «массив»



Х

Рассмотрим массив Х1, Х2, …, Хn .Здесь:Понятие «массив»Х – имя массива;1,

– имя массива;
1, 2,…, n – индексы
(порядковые номера)

элементов;

Х7 – седьмой элемент массива Х.







Слайд 13 Описание одномерных массивов
Для описания массивов в программировании предварительно

Описание одномерных массивовДля описания массивов в программировании предварительно следует ввести соответствующий

следует ввести соответствующий тип в разделе описания типов.

Тип

массив описывается следующим образом:
Type
Имя типа = Array [тип индекса (ов)] Of тип элементов;
Var
Имя переменной: имя типа;





Слайд 14 Описание одномерных массивов
Переменную типа массив можно описать сразу

Описание одномерных массивовПеременную типа массив можно описать сразу в разделе описания

в разделе описания переменных Var:

Var
Имя переменной: Array

[тип индекса (ов)] Of тип элементов;

Здесь
Array – служебное слово (в переводе с английского означает «массив»);
Of – служебное слово (в переводе с английского означает «из»).
Тип индекса – любой порядковый тип, кроме типов integer, longint.
Тип же самих элементов может быть любым, кроме файлового типа.





Слайд 15 Например:
Type
mas = Array [1..20]

Например:Type  mas = Array [1..20] of real;Var  X: mas;Массив

of real;
Var
X: mas;
Массив Х –

одномерный, состоящий из двадцати элементов вещественного типа. Элементы массива хранятся в памяти компьютера последовательно друг за другом.

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


Размерность массива равна:
максимальное значение индекса – n
минимальное значение индекса + 1.

Количество элементов массива называется его размерностью.





Слайд 16 Ввод массивов осуществляется поэлементно.

Введем одномерный массив Х, состоящий

Ввод массивов осуществляется поэлементно.Введем одномерный массив Х, состоящий из 30 элементов,

из 30 элементов, то есть необходимо ввести некую последовательность

элементов Х1, Х2, …, Х30.

Пусть i – индекс (порядковый номер) элемента в массиве Х.
Тогда Хi – i-й элемент массива Х, где i = 1, 2, …, 30.

Для ввода массива можно использовать любой цикл.

Ввод одномерных массивовВвод одномерных массивов Ввод одномерных массивов в Паскале





Слайд 17 Первый вариант: ввод массива с использованием цикла с

Первый вариант: ввод массива с использованием цикла с предусловием:Ввод одномерных массивовДаНет

предусловием:
Ввод одномерных массивов
Да
Нет




Слайд 18
Program Primer_1;
Var i: integer;
X: array

Program Primer_1;Var i: integer;  X: array [1..30] of Integer;Begin

[1..30] of Integer;
Begin
i := 1;

While i <= 30 Do
Begin
Read (X[i]);
i := i + 1
End;
Readln
End.
В первом варианте ввод массива Х
в программе осуществляется с использованием
цикла с предусловием.


Ввод одномерных массивов





Слайд 19 Второй вариант: ввод массива с использованием цикла с

Второй вариант: ввод массива с использованием цикла с постусловием:Ввод одномерных массивов

постусловием:
Ввод одномерных массивов в Паскале
i := 1
Конец
i > 30
Ввод


xi

i := i + 1

Начало

Да

Нет





Слайд 20
Ввод одномерных массивов
Program Primer_2;
Var i: integer;

Ввод одномерных массивовProgram Primer_2;Var i: integer;  X: array [1..30] of

X: array [1..30] of Integer;
Begin
i :=

1;
Repeat
Read (X[i]);
i := i + 1
Until i > 30;
Readln
End.

Массив X введен с использованием цикла с постусловием.





Слайд 21 Третий вариант: ввод массива с использованием цикла с

Третий вариант: ввод массива с использованием цикла с параметром: Ввод одномерных

параметром:
Ввод одномерных массивов
Конец
i := 1, 30, 1
Ввод
xi
Начало




Слайд 22 Program Primer_3;
Var i: integer;
X: array

Program Primer_3;Var i: integer;  X: array [1..30] of Integer;Begin

[1..30] of Integer;
Begin
For i := 1

To 30 Do Read (X[i]);
Readln
End.

Массив X вводится с помощью цикла с параметром, где в качестве параметра используется индекс элемента массива (i).

Ввод одномерных массивов





Слайд 23 Вывод одномерного массива осуществляется также поэлементно.

Например, выведем одномерный

Вывод одномерного массива осуществляется также поэлементно.Например, выведем одномерный массив Х1, Х2,

массив Х1, Х2, …, Хn, состоящий из элементов вещественного

типа.

Для вывода массива можно использовать любой цикл.

Вывод одномерных массивов в Паскале





Слайд 24 Первый вариант: вывод массива с использованием цикла с

Первый вариант: вывод массива с использованием цикла с предусловием:Вывод одномерных массивовДаНет

предусловием:
Вывод одномерных массивов
Да
Нет




Слайд 25 Второй вариант: вывод массива с использованием цикла с

Второй вариант: вывод массива с использованием цикла с постусловием:Вывод одномерных массивовi

постусловием:
Вывод одномерных массивов
i := 1
Конец
i > 30
Вывод
xi
i :=

i + 1

Начало

Да

Нет





Слайд 26 Третий вариант: вывод массива с использованием цикла с

Третий вариант: вывод массива с использованием цикла с параметром: Вывод одномерных

параметром:
Вывод одномерных массивов
Конец
i := 1, 30, 1
Вывод
xi
Начало




Слайд 27 В программе вместо операторов Read или Readln используются

В программе вместо операторов Read или Readln используются операторы Write или

операторы Write или Writeln.

Но просто заменить одни операторы

на другие здесь недостаточно.

Для того чтобы выводимые значения не сливались между собой, надо явным образом вставлять между ними разделитель – пробел или перевод строки.

Вывод одномерных массивов





Слайд 28 Приведем два возможных способа вывода массива:
Вывод одномерных массивов


1)

Приведем два возможных способа вывода массива:Вывод одномерных массивов1) For i :=

For i := 1 To n Do Write

(X[i],’ ‘)

2) For i := 1 To n Do Writeln (x[i])





Слайд 29 На первый взгляд второй способ может показаться более

На первый взгляд второй способ может показаться более простым и удобным,

простым и удобным, но это далеко не всегда так.



Результат работы такой программы зачастую неудобно, а то и просто невозможно анализировать.

Ведь каждый элемент массива будет располагаться в отдельной строке, следовательно, мы не сможем увидеть более 25 элементов одновременно.

Вывод одномерных массивов





Слайд 30 Вывод одномерных массивов
Кроме того, очень часто массив требуется

Вывод одномерных массивовКроме того, очень часто массив требуется распечатать дважды, чтобы

распечатать дважды, чтобы сравнить состояние массива до обработки и

результат его обработки.

В этом случае сравнение состояний массива гораздо удобнее проводить, если они распечатаны в двух соседних строках, а элементы выровнены по столбцам, то есть к варианту 1 должна быть добавлена еще и форматная печать (указано количество позиций, которое должно отводиться на печать одного элемента).






Слайд 31 Программа вывода одномерного массива
с помощью цикла с параметром:

Вывод

Программа вывода одномерного массивас помощью цикла с параметром:Вывод одномерных массивовProgram Primer_4;Const

одномерных массивов

Program Primer_4;
Const n = 30;
Var i: Integer;

X: Array [1..n] Of Real;
Begin
For i:= 1 To n Do Write (X[i] : 6 : 2, ‘ ‘);
Writeln; {курсор переводит на новую строку}
Readln
End.





Слайд 32 Вычисление суммы и произведения элементов массива, удовлетворяющих заданному

Вычисление суммы и произведения элементов массива, удовлетворяющих заданному условиюНахождение количества элементов,

условию
Нахождение количества элементов, удовлетворяющих заданному условию
Нахождение номеров элементов, обладающих

заданным свойством
Поиск нужного элемента в массиве
Изменение значений некоторых элементов массива
Формирование нового массива
Перестановка элементов массива
Сортировка массива

Примеры решения задач





Слайд 33 Задача 1

Дан целочисленный одномерный
массив, состоящий из n

Задача 1 Дан целочисленный одномерный массив, состоящий из n элементов.

элементов.
Найти сумму и произведение нечетных
элементов, кратных 3.




Вычисление

суммы и произведения элементов массива,
удовлетворяющих заданному условию

Слайд 34 Введем обозначения:
n – количество элементов в массиве;

Введем обозначения: n – количество элементов в массиве; А – имя


А – имя массива;
i – индекс элемента массива;


Ai – i-й элемент массива A;
s – сумма нечетных элементов массива, кратных 3;
p – произведение нечетных элементов массива, кратных 3.





Задача 1.

Входные данные: n, A.

Выходные данные: s, p.





Слайд 35 Первый способ. Для решения используется цикл с параметром:
Начало
Ввод

Первый способ. Для решения используется цикл с параметром:НачалоВвод ni := 1,

n
i := 1, n, 1
Ввод
Ai
S := 0
P := 1
i

:= 1, n, 1

(Ai mod 2 <>0) и
(Ai mod 3 = 0)

P := p * A

S := s + Ai

Ввод
S, p

Начало

i := 1, n, 1

Да

Нет





Слайд 36
Program Primer1_1;
Var A: Array[1..20] Of Integer;

Program Primer1_1;Var A: Array[1..20] Of Integer;  i, n, s, p:

i, n, s, p: Integer;
Begin
Write (‘n=’);

Readln (n);
For i:=1 To n Do Readln (A[i]); {ввод массива}
s:= 0; p:=1;
For i:=1 To n Do {обработка массива}
If (A[i] mod 2 <>0) and (A[i] mod 3 = 0) Then
Begin
s:=s+A[i];
p:= p*A[i]
End;
Writeln (‘s=’, s, ‘p=’, p);
Readln
End.

Задача 1.


Дан целочисленный одномерный массив, состоящий из n элементов.
Найти сумму и произведение нечетных элементов, кратных 3.






Слайд 37
Второй способ. Для решения используется цикл с предусловием:
Program

Второй способ. Для решения используется цикл с предусловием:Program Primer1_2;Var A: Array[1..20]

Primer1_2;
Var A: Array[1..20] Of Integer;
i, n,

s, p: Integer;
Begin
Write (‘n=’); Readln (n);
i:=1;
While i <= n Do
Begin
Readln (A[i]); i:= i + 1 End;
s:= 0; p:=1; i:=1;
While i<=n Do Begin
If (A[i] mod 2 <>0) and (A[i] mod 3 = 0) Then
Begin
s:=s+A[i]; p:= p*A[i]
End;
i:= i + 1 End;
Writeln (‘s=’, s, ‘p=’, p);
Readln
End.

Задача 1.





Слайд 38 Задача 2
Дан массив целых чисел. Найти
количество тех

Задача 2Дан массив целых чисел. Найти количество тех элементов, значения которых

элементов, значения которых положительны
и не превосходят заданного
натурального

числа А.




Нахождение количества элементов,
удовлетворяющих заданному условию


Слайд 39 Введем обозначения:
n – количество элементов в массиве;

Введем обозначения: n – количество элементов в массиве; X – имя


X – имя массива;
i – индекс элемента массива;


Xi – i-й элемент массива X;
A – заданное число;
k – количество элементов, значения которых положительны и не превосходят заданного числа А.





Задача 2.

Входные данные: n, , X, A.

Выходные данные: k.





Слайд 40 Первый способ. Для решения используется цикл с параметром:
Начало
Ввод

Первый способ. Для решения используется цикл с параметром:НачалоВвод ni := 1,

n
i := 1, n, 1
Ввод
Xi
k := 1
(Xi > 0)

и
(Xi <=A)

k := k + 1

Вывод
k

Конец

i := 1, n, 1

Да

Нет

Ввод
A





Слайд 41 Program Primer2_1;
Var X: Array[1..20] Of Integer;

Program Primer2_1;Var X: Array[1..20] Of Integer;  i, n, k, A:

i, n, k, A: Integer;
Begin
Write (‘n=’);

Readln (n);
For i:=1 To n Do Readln (X[i]); {ввод массива}
Write (‘A=’); Readln (A);
k:= 0;
For i:=1 To n Do {обработка массива}
If (X[i] >0) and (X[i] <= A) Then
k:=k + 1;
Writeln (‘k=’, k);
Readln
End.

Дан массив целых чисел. Найти количество тех элементов, значения
которых положительны и не превосходят заданного натурального числа А.

Задача 2.





Слайд 42 Задача 2.
Program Primer2_2;
Var X: Array [1..20] Of Integer;

Задача 2.Program Primer2_2;Var X: Array [1..20] Of Integer;  i, n,

i, n, k, A: Integer;
Begin

Write (‘n=’); Readln (n); i:=1;
Repeat
Read (X[i]); i := i + 1
Until i > n;
Write (‘A=’); Readln (A);
k:= 0; i:=1;
Repeat
If (X[i] >0) and (X[i] <= A) Then
k:=k + 1; i := i + 1
Until i > n;
Writeln (‘k=’, k);
Readln
End.

Второй способ. Для решения используется цикл с постусловием:





Слайд 43 Задача 3
Найти номера четных элементов массива, стоящих на

Задача 3Найти номера четных элементов массива, стоящих на нечетных местах.Нахождение номеров элементов, обладающих заданным свойством

нечетных местах.



Нахождение номеров элементов,
обладающих заданным свойством


Слайд 44 Задача 3
Введем обозначения:
n – количество элементов в

Задача 3Введем обозначения: n – количество элементов в массиве; X –

массиве;
X – имя массива;
i – индекс элемента

массива;
Xi – i-й элемент массива X.





Входные данные: n, X.

Выходные данные: i.





Слайд 45 Задача 3
Начало
Ввод n
i := 1, n, 1
Ввод
Xi
(Xi mod

Задача 3НачалоВвод ni := 1, n, 1ВводXi(Xi mod 2 =0) и

2 =0) и
(i mod 2 0)
Вывод
i
Конец
i

:= 1, n, 1




Вывод
i

Вывод
i

Да

Нет

i := 1, n, 1

i := 1, n, 1


Слайд 46 Задача 3

Program Primer3_1;
Var X: Array[1..20] Of Integer;

Задача 3Program Primer3_1;Var X: Array[1..20] Of Integer;  i, n: Integer;Begin

i, n: Integer;
Begin
Write (‘n=’); Readln

(n);
For i:=1 To n Do Readln (X[i]); {ввод массива}
For i:=1 To n Do {обработка массива}
If (X[i] mod 2 = 0) and (i mod 2<>0) Then
Write (i:5);
Readln
End.





Слайд 47 Задача 4
Найти номер последнего отрицательного
элемента массива.



Задача 4Найти номер последнего отрицательного элемента массива.

Слайд 48 Задача 4
Введем обозначения:
n – количество элементов в

Задача 4Введем обозначения: n – количество элементов в массиве; A –

массиве;
A – имя массива;
i – индекс элемента

массива;
Ai – i-й элемент массива А;
m – номер последнего отрицательного элемента массива.





Входные данные: n, А.

Выходные данные: m.





Слайд 49 Задача 4
Program Primer3_2;
Const n=10;
Var A: Array[1..n] Of Integer;

Задача 4Program Primer3_2;Const n=10;Var A: Array[1..n] Of Integer;  i, m:

i, m: Integer;
Begin
For

i:=1 To n Do Readln (A[i]); {ввод массива}
m := 0; i:=n;
While (i >= 1) and (A[i] >=0) Do
i:=i-1;
m:=i;
Writeln (‘m=’, m);
Readln
End.





Слайд 50 Поиск нужного элемента в массиве
Задача 5
Дан одномерный

Поиск нужного элемента в массивеЗадача 5 Дан одномерный массив Х1, Х2,

массив Х1, Х2, …, Хn. Найти минимальный элемент и

его порядковый номер среди элементов, расположенных на четных местах.







Слайд 51 Задача 5
Введем обозначения:
n – количество элементов в

Задача 5Введем обозначения: n – количество элементов в массиве; X –

массиве;
X – имя массива;
i – индекс элемента

массива;
Xi – i-й элемент массива Х;
min – значение минимального элемента массива;
k – порядковый номер минимального элемента среди элементов, расположенных на четных местах.






Входные данные: n, X.

Выходные данные: min, k.





Слайд 52 Задача 5
Первый способ
Program Primer4_1;
Var X: Array[1..30] Of Real;

Задача 5Первый способProgram Primer4_1;Var X: Array[1..30] Of Real;  i, n,

i, n, k: Integer; min: Real;
Begin

Write (‘n=’); Readln (n); i:=1;
While i <= n Do Begin {ввод массива}
Readln (X[i]); i:= i + 1 End;
min:=X[2]; k:=2; i:=4;
While i <= n Do Begin
If X[i] < min Then Begin min:= X[i]; k:= i End;
i:= i + 2 End;
Writeln (‘min=’, min:6:1, ‘ k=’, k);
End.





Слайд 53 Задача 5
Второй способ
Program Primer4_2;
Var X: Array[1..30] Of Real;

Задача 5Второй способProgram Primer4_2;Var X: Array[1..30] Of Real;  i, n,

i, n, k: Integer; min: Real;
Begin


Write (‘n=’); Readln (n); i:=1;
Repeat
Read (X[i]); i := i + 1
Until i > n;
min:=X[2]; k:=2; i:=4;
Repeat
If X[i] < min Then Begin
min:= X[i]; k:= i End; i:= i + 2
Until i > n;
Writeln (‘min=’, min:6:1, ‘ k=’, k)
End.





Слайд 54 Задача 6
Дан целочисленный одномерный массив. Есть ли в

Задача 6Дан целочисленный одномерный массив. Есть ли в нем отрицательный элемент?

нем отрицательный элемент?




Слайд 55 Задача 6
Введем обозначения:
n – количество элементов в

Задача 6Введем обозначения: n – количество элементов в массиве; X –

массиве;
X – имя массива;
i – индекс элемента

массива;
Xi – i-й элемент массива Х;
k – количество отрицательных элементов в массиве;
m – признак наличия или отсутствия отрицательного элемента в массиве Х.






Входные данные: n, X.

Выходные данные:
сообщение ‘yes’ или ‘no’ .





Слайд 56 Задача 6
Первый способ
Program Primer4_3;
Const n=10;
Var X: Array[1..n] Of

Задача 6Первый способProgram Primer4_3;Const n=10;Var X: Array[1..n] Of Integer;  i,

Integer;
i, k: Integer;
Begin
For

i:=1 To n Do Readln (X[i]); {ввод массива}
k:= 0;
For i:=1 To n Do
If X[i] < 0 Then k:= k + 1;
If k <> 0 Then Writeln (‘yes’)
Else Writeln (‘no’);
Readln
End.





Слайд 57 Задача 6
Второй способ
Program Primer4_4;
Const n=10;
Var X: Array[1..n] Of

Задача 6Второй способProgram Primer4_4;Const n=10;Var X: Array[1..n] Of Integer;  i:

Integer;
i: Integer; m: Boolean;
Begin

For i:=1 To n Do Readln (X[i]); {ввод массива}
m := false; i:=1;
While (i <= n) and not m Do
Begin
If X[i] < 0 Then m:= true; i:=i+1
End;
If m Then Writeln (‘yes’)
Else Writeln (‘no’)
End.





Слайд 58 Изменение значений некоторых элементов массива
Задача 7
Дан одномерный массив,

Изменение значений некоторых элементов массиваЗадача 7Дан одномерный массив, состоящий из n

состоящий
из n элементов. Если очередной элемент массива
четный,

то прибавить к нему первый,
если нечетный – прибавить последний.
Первый и последний элементы не изменять.





Слайд 59 Задача 7
Введем обозначения:
n – количество элементов в

Задача 7Введем обозначения: n – количество элементов в массиве; А –

массиве;
А – имя массива;
i – индекс элемента

массива;
Аi – i-й элемент массива А.





Входные данные: n, А.

Выходные данные: А.





Слайд 60 Задача 7

Program Primer5_1;
Const n = 30;
Var A: Array[1..n]

Задача 7Program Primer5_1;Const n = 30;Var A: Array[1..n] Of Integer;

Of Integer;
i: Integer;
Begin
For

i:=1 To n Do Readln (A[i]); {ввод массива}
For i:=2 To n-1 Do
If A[i] mod 2 = 0 Then A[i]:= A[i] + A[1]
Else A[i]:= A[i] + A[n];
For i:= 1 To n Do Write (X[i] : 5);
Writeln;
Readln
End.





Слайд 61 Задача 8
Дан одномерный массив А1, А2, …, Аn.

Задача 8Дан одномерный массив А1, А2, …, Аn. Элементы, не превышающие

Элементы, не превышающие 15, заменить средним арифметическим всех элементов

массива.





Слайд 62 Задача 8




Входные данные: n, А.
Выходные данные: А.

Задача 8Входные данные: n, А. Выходные данные: А. Введем обозначения: n


Введем обозначения:
n – количество элементов в массиве;
А

– имя массива;
i – индекс элемента массива;
Аi – i-й элемент массива А;
s– сумма элементов массива А;
sr – среднее арифметическое всех элементов массива.





Слайд 63 Задача 8

Program Primer5_2;
Const n = 30;
Var A: Array[1..n]

Задача 8Program Primer5_2;Const n = 30;Var A: Array[1..n] Of Real;

Of Real;
i: Integer; s, sr: Real;
Begin

For i:=1 To n Do Readln (A[i]); {ввод массива}
s:= 0;
For i:=1 To n Do
s:=s+A[i];
sr:= s/n;
For i:=1 To n Do
If A[i]<=15 Then A[i]:= sr;
For i:=1 To n Do Write (A[i]:5);
Writeln;
Readln
End.





Слайд 64 Формирование нового массива
Задача 9.
Сформировать целочисленный массив Х1,Х2,…,Хn, элементы

Формирование нового массиваЗадача 9.Сформировать целочисленный массив Х1,Х2,…,Хn, элементы которого: 2, 4, 8, 16, …

которого: 2, 4, 8, 16, …




Слайд 65 Задача 9
Введем обозначения:
n – количество элементов в

Задача 9Введем обозначения: n – количество элементов в массиве; Х –

массиве;
Х – имя массива;
i – индекс элемента

массива;
Хi – i-й элемент массива Х.





Входные данные: n.

Выходные данные: Х.





Слайд 66 Задача 9
По исходным данным получаем следующее правило формирования

Задача 9По исходным данным получаем следующее правило формирования массива: Х1=2; Хi

массива: Х1=2; Хi = Xi-1 * 2.
Program Primer6_1;
Const n

= 20;
Var X: Array[1..n] Of Integer;
i: Integer;
Begin
X[1]:=2; {начало формирования массива}
For i:=2 To n Do
X[i]:=X[i-1]*2; {конец формирования массива}
For i:=1 To n Do Write (X[i]:5); {вывод массива}
Writeln;
Readln
End.





Слайд 67 Задача 10
Сформировать одномерный массив так, что первые два

Задача 10Сформировать одномерный массив так, что первые два элемента заданы, а

элемента заданы, а остальные элементы с нечетными номерами больше

предыдущего на величину первого, а с четными – на величину второго.





Слайд 68 Задача 10
Введем обозначения:
n – количество элементов в

Задача 10Введем обозначения: n – количество элементов в массиве; X –

массиве;
X – имя массива;
i – индекс элемента

массива;
Xi – i-й элемент массива Х;
a, b – соответственно значения первого и второго элементов массива.





Входные данные: n, a, b.

Выходные данные: X.





Введем обозначения:
n – количество элементов в массиве;
X – имя массива;
i – индекс элемента массива;
Xi – i-й элемент массива Х;
a, b – соответственно значения первого и второго элементов массива.











Слайд 69 Задача 10

Program Primer6_2;
Const n = 20;
Var X: Array[1..n]

Задача 10Program Primer6_2;Const n = 20;Var X: Array[1..n] Of Integer;

Of Integer;
i, a, b: Integer;
Begin

Write (‘a=’); Readln (a);
Write (‘b=’); Readln (b);
X[1]:=a; X[2]:=b; {начало формирования массива}
For i:=3 To n Do
If i mod 2 <> 0 Then X[i]:= X[i-1] + X[1]
Else X[i]:= X[i-1] + X[2];
{конец формирования массива}
For i:=1 To n Do Write (X[i]:5); {вывод массива}
Readln
End.





Слайд 70 Задача 11
Дан одномерный масив Х1,Х2,…,Хn. Из четных элементов

Задача 11Дан одномерный масив Х1,Х2,…,Хn. Из четных элементов этого массива сформировать новый одномерный массив.

этого массива сформировать новый одномерный массив.





Слайд 71 Задача 11
Введем обозначения:
n – количество элементов в

Задача 11Введем обозначения: n – количество элементов в массиве; X –

массиве;
X – имя заданного массива;
i – индекс

элемента массива;
Xi – i-й элемент массива Х;
Y – имя формируемого массива;
k – порядковый номер элемента в массиве Y;
Yk – k-й элемент массива Y.





Входные данные: n , X.

Выходные данные: Y.












Выходные данные: Y.













Слайд 72 Задача 11

Program Primer6_3;
Const n = 20;
Var X, Y:

Задача 11Program Primer6_3;Const n = 20;Var X, Y: Array[1..n] Of Integer;

Array[1..n] Of Integer;
i, k: Integer;
Begin

For i:=1 To n Do Read (X[i]); {ввод массива Х}
k:=0;
For i:=1 To n Do
If X[i] mod 2 = 0 Then
Begin
k:=k + 1;
Y[k] := X[i]
End;
For i:=1 To k Do Writeln (Y[i]:5); {вывод массива Y}
Readln
End.





Слайд 73 Перестановка элементов массива
Задача 12
Дан одномерный массив Х1, Х2,

Перестановка элементов массиваЗадача 12Дан одномерный массив Х1, Х2, …, Хn. Поменять

…, Хn. Поменять местами значения двух элементов массива с

номерами k1 и k2, где k1 и k2 - вводятся с клавиатуры.





Слайд 74 Задача 12
Введем обозначения:
n – количество элементов в

Задача 12Введем обозначения: n – количество элементов в массиве; X –

массиве;
X – имя заданного массива;
i – индекс

элемента массива;
Xi – i-й элемент массива Х;
K1, k2 – порядковые номера элементов, значения которых нужно поменять местами;
b – дополнительная переменная, используемая для перестановки двух элементов массива.


Входные данные: n , X.

Выходные данные: Y.









Слайд 75 Задача 12

Program Primer7_1;
Const n = 20;
Var X: Array[1..n]

Задача 12Program Primer7_1;Const n = 20;Var X: Array[1..n] Of Integer;

Of Integer;
i, k1, k2, b: Integer;
Begin

For i:=1 To n Do Read (X[i]); {ввод массива}
Write (‘k1=’); Readln (k1);
Write (‘k2=’); Readln (k2);
b:= X[k1];
X[k1]:= X[k2];
X[k2]:= b;
For i:=1 To n Do Writeln (X[i]:5); {вывод массива X}
Readln
End.





Слайд 76 Задача 13
Переставить все элементы одномерного массива Х
в

Задача 13Переставить все элементы одномерного массива Х в обратном порядке.

обратном порядке.




Слайд 77 Задача 13
Введем обозначения:
n – количество элементов в

Задача 13Введем обозначения: n – количество элементов в массиве; X –

массиве;
X – имя заданного массива;
i – индекс

элемента массива;
Xi – i-й элемент массива Х;
b – дополнительная переменная.

Входные данные: n , X.

Выходные данные: Y.









Слайд 78 Задача 13

Program Primer7_2;
Const n = 20;
Var X: Array[1..n]

Задача 13Program Primer7_2;Const n = 20;Var X: Array[1..n] Of Integer;

Of Integer;
i, b: Integer;
Begin

For i:=1 To n Do Read (X[i]); {ввод массива}
For i:=1 To n div 2 Do
Begin
b:= X[i];
X[i]:= X[n+1-i];
X[n+1-i]:= b
End;
For i:=1 To n Do Write (X[i]:5); {вывод массива X}
Writeln;
Readln
End.





Слайд 79 Сортировка массива (сортировка «пузырьком»)
Задача 14
Отсортировать целочисленный одномерный массив по

Сортировка массива (сортировка «пузырьком»)Задача 14Отсортировать целочисленный одномерный массив по возрастанию.

возрастанию.





Слайд 80 Сортировка «пузырьком»
Суть метода состоит в том, что последовательно

Сортировка «пузырьком»Суть метода состоит в том, что последовательно сравниваются все пары

сравниваются все пары соседних элементов массива, и если значения

элементов в паре стоят в неправильном порядке (правый меньше левого), то они меняются местами.

В результате одного такого прохода по массиву самый большой элемент обязательно окажется на последней позиции массива. При этом от своей позиции он, путем постепенных обменов, дойдет до последнего места. «Всплывает» как пузырек.





Слайд 81 Сортировка «пузырьком»
Но массив при этом вовсе не обязательно

Сортировка «пузырьком»Но массив при этом вовсе не обязательно окажется упорядоченным. Гарантированно

окажется упорядоченным. Гарантированно на нужном месте при этом окажется

только самый большой элемент. Поэтому эту процедуру нужно повторить. Но только теперь можно не рассматривать самую последнюю пару.

В результате предпоследний элемент тоже окажется на нужном месте.
Значит, всю процедуру нужно повторить столько раз, сколько элементов нужно поставить на требуемое место, то есть n – 1 (оставшийся элемент окажется при этом на своем месте сам).





Слайд 82 Задача 14
Введем обозначения:
n – количество элементов в

Задача 14Введем обозначения: n – количество элементов в массиве; X –

массиве;
X – имя заданного массива;
i – индекс

элемента массива;
Xi – i-й элемент массива Х;
k – номер просмотра, изменяется от 1 до n-1;
w – промежуточная переменная для перестановки местами элементов массива.


Входные данные: n , X.

Выходные данные: Х.









Слайд 83 Задача 14

Program Primer8_1;
Const n = 100;
Var X: Array[1..n]

Задача 14Program Primer8_1;Const n = 100;Var X: Array[1..n] Of Integer;

Of Integer;
i, k, w: Integer;
Begin

For i:=1 To n Do Read (X[i]); {ввод массива}
For k:=n - 1 Downto 1 Do {цикл по номеру просмотра}
For i:=1 To k Do
If X[i] > X[i + 1] Then {перестановка элементов}
Begin
w:= X[i];
X[i]:= X[i + 1];
X[i + 1]:= w
End;
For i:=1 To n Do Writeln (X[i]:5); {вывод массива X}
Readln
End.





Слайд 84 Задания для самостоятельной работы
Дан целочисленный одномерный массив, состоящий

Задания для самостоятельной работы Дан целочисленный одномерный массив, состоящий из

из n элементов, и натуральные числа k, m (k

< m < n). Вычислить среднее арифметическое элементов массива с номерами от k до m включительно.
Дан целочисленный одномерный массив, состоящий из n элементов. Подсчитать количество его положительных, отрицательных и нулевых элементов.
Дан одномерный массив Х1, Х2, …, Хn. Найти максимальный элемент и его порядковый номер.
Дан одномерный массив Х1, Х2, …, Хn. Есть ли в массиве положительные элементы, кратные k (k вводить с клавиатуры)?
Дан одномерный массив Х1, Х2, …, Хn. Найти все элементы, кратные 3 или 5. Сколько их?





Слайд 85 Заменить отрицательные элементы массива на их абсолютные величины.
Сформировать

Заменить отрицательные элементы массива на их абсолютные величины.Сформировать одномерный массив, содержащий

одномерный массив, содержащий n первых положительных нечетных чисел: 1,

3, 5, …
Дано целое число a и массив Х1, Х2, …, Хn. Из элементов, меньших a, сформировать новый одномерный массив.
Дан одномерный массив А1, А2, …, Аn. Все элементы уменьшить на величину квадрата наименьшего элемента.
Поменять местами первый и максимальный элементы массива.
Проверить, что массив упорядочен строго по убыванию (каждый последующий элемент строго меньше предыдущего).

Задания для самостоятельной работы





Слайд 86 Индивидуальные задания
Вариант № 1
Найти сумму положительных элементов в

Индивидуальные заданияВариант № 1Найти сумму положительных элементов в массиве.Дан одномерный массив

массиве.
Дан одномерный массив А1, А2, …, Аn. Наибольший элемент

этого массива заменить средним арифметическим отрицательных элементов.

Вариант № 2
Найти номера элементов массива, значения которых кратны 3 и 5.
Сформировать массив: x1 = 2, x2 = 3, xi = , где i=3, 4, …, n.
Вариант № 3
Найти сумму всех четных элементов массива, стоящих на четных местах, то есть имеющих четные номера.
Есть ли в данном массиве элементы, равные заданному числу b?





Слайд 87 Вариант № 4
Найти номера элементов массива, значения которых

Вариант № 4Найти номера элементов массива, значения которых кратны 4 или

кратны 4 или 6.
Дан одномерный массив Х1, Х2, …,

Хn . Заменить каждый двухзначный элемент на вторую цифру в его записи.

Вариант № 5
Найти сумму и произведение элементов массива, больших данного числа b (b вводится с клавиатуры).
Есть ли в данном массиве элементы равные заданному числу? Если есть, то вывести номер одного из них.

Индивидуальные задания







Слайд 88 Вариант № 6
Найти количество элементов массива, значения которых

Вариант № 6Найти количество элементов массива, значения которых больше заданного числа

больше заданного числа B и кратны 5.
Сформировать одномерный массив,

первые два элемента которого есть заданные числа, а остальные элементы с нечетными номерами в два раза больше предыдущего, а с четными – на 3 меньше второго.

Вариант №7
Найти сумму и произведение положительных элементов массива, значения которых меньше 10.
Дан одномерный массив А1, А2, …, Аn. Все четные элементы массива возвести в квадрат, а нечетные удвоить.

Индивидуальные задания





Слайд 89 Вариант №8
Найти номера тех элементов массива, значения которых

Вариант №8Найти номера тех элементов массива, значения которых больше заданного числа

больше заданного числа С.
Из элементов массива А сформировать элементы

массива В по правилу: B[i] := A[1] + A[2] + … + A[i].

Вариант №9
Найти произведение элементов массива, имеющих нечетное значение.
Дан одномерный массив Х1, Х2, …, Хn . Все ли элементы массива больше 3?
Вариант №10
Найти количество тех элементов массива, значения которых положительны и не превосходят заданного числа D.
Дан одномерный массив А1, А2, …, Аn. Заменить все элементы, кратные 3, на третий элемент массива.

Индивидуальные задания





Слайд 90 Вариант №11
Найти сумму элементов массива, имеющих нечетные индексы.
Определить,

Вариант №11Найти сумму элементов массива, имеющих нечетные индексы.Определить, есть ли в

есть ли в данном массиве положительные элементы, кратные k

(k вводится с клавиатуры).

Вариант №12
Найти количество нечетных элементов в массиве.
Из элементов массива А сформировать массив В той же размерности по правилу: если номер четный, то B[i] := i*A[i], если нечетный, то B[i]:= A[i].


Индивидуальные задания





Слайд 91 Вариант №13
Найти сумму и произведение первых пяти элементов

Вариант №13Найти сумму и произведение первых пяти элементов массива.Дан одномерный массив

массива.
Дан одномерный массив Х1, Х2, …, Хn . Из

положительных элементов массива вычесть элемент с номером k1, а отрицательные увеличить на значение элемента с номером k2, нулевые элементы оставить без изменения.

Вариант №14
Найти сумму элементов массива, принадлежащих промежутку от x до y (x и y вводятся с клавиатуры).
Дан одномерный массив А1, А2, …, Аn. Верно ли, что произведение первого и последнего элементов больше, чем сумма нечетных элементов массива.


Индивидуальные задания





Слайд 92 Вариант №15
Дан одномерный массив Х1, Х2, …, Хn

Вариант №15Дан одномерный массив Х1, Х2, …, Хn . Найти количество

. Найти количество и номера таких элементов массива, которые

больше своего соседа справа.
Из элементов массива А сформировать массив В той же размерности по правилу: если номер четный, то B[i] :=A[i]*A[i], если нечетный, то B[i]:= A[i] Div i.

Вариант №16
Найти удвоенную сумму положительных элементов массива.
Дан одномерный массив А1, А2, …, Аn. Все элементы с нечетными номерами разделить нацело на первый элемент.


Индивидуальные задания





  • Имя файла: odnomernyy-massiy.pptx
  • Количество просмотров: 167
  • Количество скачиваний: 0
- Предыдущая Нагревание тела