Рабочие листы
к вашим урокам
Скачать
1 слайд
Одномерные
(линейные) массивы
2 слайд
Массив – упорядоченный набор одинаковых значений, объединенных одним именем.
Примеры:
А (14, 7, -5, 3, -10) – массив целых чисел,
Зима (‘декабрь’, ‘январь’, ‘февраль’) – символьный массив.
Элементы массива – переменные с индексом (индекс – порядковый номер):
A[1] = 14, A[3] = -5, Зима[2] = ‘январь’
Одномерные массивы
3 слайд
В разделе переменных VAR
var
<имя массива>:array[тип индекса] of <тип компоненты>
Примеры:
var
A : array [0..5] of string;
D : array [1..17] of real;
S : array [‘A’..’Z’] of integer;
Описание массивов
4 слайд
Производится поэлементно. Обычно используется цикл с параметром, где в качестве параметра используется индексная переменная.
Пример:
{заполнение массивов}
for i:=1 to 10 do
begin write (‘A[‘,i, ‘]=‘); readln (A[i]) end;
B [1] = 9.8; B[3] = -7,23;
{вывод элементов}
for i:=1 to 10 do write (‘A[‘,i, ‘]=‘, A[i]);
Ввод и вывод элементов массива
5 слайд
Заполнить случайными числами из диапазона [0, 100] вещественный одномерный массив из N чисел. Найти максимальное значение и его индекс. Посчитать сколько раз менялся максимальный элемент
Пример:
1)max=2.5, Kmax=1, T=1
2)max=28.6, Kmax=2, T=2
3)max=59.2, Kmax=3, T=3
4)max=59.2, Kmax=3, T=3
5)max=63.1, Kmax=5, T=4
Решить задачу
6 слайд
program MAX;
var X:array[1..N] of real; max: real;
Kmax, i, T : integer;
begin
write(‘N’); readln (N);
for i:=1 to N do X[i]:=random*100;
max:=X[1]; Kmax:=1; T:=1;
for i:=2 to N do
if X[i]>max then
begin max:=X[i]; Kmax:=I , T:=T+1 end;
writeln (‘Максимальный элемент и номер:’,
‘X[’,Kmax,’]=’,max, ‘замен:’, T)
end.
Решение задачи
7 слайд
Дан целочисленный массив. Отсортировать его элементы в порядке возрастания значений.
Задача
8 слайд
Метод пузырька
Дан массив А (8, 4, 7, 6)
9 слайд
program sort;
var A:array[1..100] of integer; N, I, J, P: integer;
begin
write(‘Введите N’); readln (N);
for I:=1 to N do
begin write (‘A[‘,I, ‘]=‘); readln (A[I]) end;
for I:=1 to N-1 do
begin for J:=1 to N-1 do
if A[I]>=A[I+1] then
begin P:=A[J]; A[J]:=A[J+1]; A[J+1]:=P end
end;
for I:=1 to 10 do write (‘A[‘,I, ‘]=‘, A[I])
end.
Решение задачи
Рабочие листы
к вашим урокам
Скачать
6 665 052 материала в базе
Настоящий материал опубликован пользователем Парфенова Галина Викторовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
500/1000 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс повышения квалификации
72/180 ч.
Мини-курс
3 ч.
Мини-курс
3 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.