ПО УЧЕБНИКУ 9 КЛАССА. ОСНОВЫ АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЯ (МАССИВЫ)

ОСНОВЫ АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЯ

§ 5. Структурированный тип данных: массив

Коротко о главном:

• Массивом называют обозначаемую одним именем последовательность однотипных элементов.

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

• Массивы в языке Pascal описываются так:

Имя: array [инд1..инд2] of тип_элементов (пример: А: array [1..20] of integer).

Упражнение 1

1) заполните пропуски в описании массива из 80 элементов, содержащего целые числа. Числа пронумерованы от 1 до 80:

Ответ:

Var a: array [1..80] of integer;

Упражнение 2

Опишите массив из 50 действительных чисел:

Ответ:

Var a: array [1..50] of real.

§ 6. Ввод и вывод элементов массива

Коротко о главном:

• Значения элементов, которые не изменяются при работе программы можно задавать в разделе описаний, например: Const A: array [1..8] of integer =(2, 4, 6, 7, 9, 5, 6, 0);

Можно использовать знак присвоения, например А[3]:=8;

Для ввода значений элементов массива с клавиатуры используют стандартные процедуры read и readln: например: for i:=1 to 5 do read(А[i]);.

• Для вывода значений элементов массив используют стандартные процедуры write и writeln: например: for i:=1 to 5 do writeln(А[i]);.

• Для формирования значений случайных чисел используют стандартную функцию random, например: Х[i]:=random (генерация случайных вещественных чисел на промежутке [0,1)

Упражнение 1

1. Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20;40]:

Ответ:

Var A: array [1..10] of integer;

i: integer;

Begin

for i:=1 to 10 do

begin

A[i]:=random(21) +20;

Write(A[i]);

end;

End.

Упражнение 2

Составьте программу для ввода с клавиатуры в массив 7 целых чисел и вывода этих чисел в обратном порядке.

Ответ:

Var A: array[1..7] of integer;

i: integer;

Begin

for i:=1 to 7 do

read (A[i]); {ввод значений через пробел}

for i:=7 downto 1 do

Write (A[i],' '); { вывод значений в строку}

End.

Результат работы программы может выглядеть так:

5 -6 1 0 4 -2 3

3 -2 4 0 1 -6 5

Упражнение 3

Составьте программу для ввода и вывода температуры за неделю.

Ответ:

Var A: array[1..7] of integer;

i: integer;

Begin

for i:=1 to 7 do

read (A[i]); {ввод значений через пробел}

for i:=1 to 7 do

Writeln (i,' сентября температура была ', A[i]); { вывод значений в столбец}

End.

Результат работы программы может выглядеть так:

17 15 16 19 20 18 17

1 сентября температура была 17

2 сентября температура была 15

3 сентября температура была 16

4 сентября температура была 19

5 сентября температура была 20

6 сентября температура была 18

7 сентября температура была 17

Упражнение 4

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

Ответ:

Var A: array[1..12] of integer;

i: integer;

Begin

for i:=1 to 12 do

A[i]:=random(11)-5; {формирование массива случайных чисел на принадлежащих

промежутку [-5;5]}

for i:=1 to 12 do

Writeln (‘A[’ , I ,’]=’ , A[i]); { вывод значений в столбец}

End.

Результат работы программы может выглядеть так:

A[1]=3

A[2]=-1

A[3]=-1

A[4]=-3

A[5]=-1

A[6]=4

A[7]=3

A[8]=-1

A[9]=-2

A[10]=-2

A[11]=4

A[12]=-4

Упражнение 6

Составьте программу, которая формирует массив из десяти случайных вещественных чисел, принадлежащих промежутку [4;5), и выводит эти числа с 3 по 7 в столбец с двумя десятичными цифрами.

Ответ:

Var A: array[1..10] of real;

i: integer;

Begin

for i:=1 to 10 do

A[i]:=random+4; {формирование массива случайных чисел, принадлежащих

промежутку [4;5]}

for i:=3 to 7 do

Writeln ( A[i]:4:2); { вывод значений в столбец с 3 по 7 элемент}

End.

Результат работы программы может выглядеть так:

4.97

4.54

4.42

4.07

4.34

§ 7. Арифметические действия над элементами массива

Коротко о главном:

• Для элементов массива целых чисел допустимы операции +, -, *, div, mod.

• Для элементов массива вещественных чисел допустимы операции +, -, *, /.

Упражнение 1

Составьте программу, которая вычисляет среднюю плотность раствора (в кг/м³) по результатам измерения плотности 7 проб (задаются в массиве констант: 1205, 1350, 1170, 1320, 1220, 1310, 1180.

Const A: array[1..7] of integer = (1205, 1350, 1170, 1320, 1220, 1310, 1180);

Var i: integer;

p: real;

Begin

p:=0;

for i:=1 to 7 do

p:=p+A[i]; {вычисление суммы элементов массива}

p:=p/7; {вычисление средней плотности раствора}

write ('средняя плотность раствора ', p:8:2)

End.

Результат работы программы может выглядеть так:

средняя плотность раствора 1250.71

Упражнение 2

Составьте программу, которая осуществляет ввод в массив с клавиатуры размеров 6 файлов в байтах (от 100 до 2000) и вычисляет:

А) суммарный размер файлов в килобайтах;

Б) средний размер файла.

Ответ:

Var A: array[1..6] of integer;

s,i: integer;

Begin

s:=0;

writeln ('Введите размеры файлов через пробел, размер каждого от 100 до 2000 байт');

for i:=1 to 6 do

begin

read ( A[i]);

s:=s+A[i];

end;

writeln ('суммарный размер файлов ', s/1024:5:0, ' килобайт');

{форматный вывод результата}

writeln ('средний размер файла ', s/6:5:0,' байт');

{форматный вывод результата}

End.

Результат работы программы может выглядеть так:

Введите размеры файлов через пробел, размер каждого от 100 до 2000 байт

200 560 1024 2000 1560 780

суммарный размер файлов 6 килобайт

средний размер файла 1021 байт

Упражнение 3

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:

А) среднее арифметическое нечётных чисел;

Б) сумму чисел, не превышающих 10;

В) сумму чисел, кратных трём.

На экран выводятся исходные значения и результаты вычислений.

Ответ:

Var A: array[1..40] of integer;

sa,s3,s10,k,i: integer;

Begin

sa:=0;

s10:=0;

s3:=0;

k:=0;

writeln ('исходные значения:');

for i:=1 to 40 do

begin

A[i]:=random(21);

{формирование массива случайных чисел, принадлежащих промежутку [0;20)}

write (A[i], ' '); {вывод элементов массива на экран}

end;

writeln ; {перевод курсора на новую строку}

for i:=1 to 40 do

begin

if A[i] mod 2 0 then {проверка чётности элемента массива}

begin

sa:=sa+A[i]; {вычисление суммы чётных элементов}

k:=k+1; {вычисление количества чётных элементов}

end;

if A[i] вычисление суммы элементов , меньших 10}