61. Ввод и вывод элементов одномерного массива. Операции над элементами одномерных массивов
Ввод элементов одномерного массива, его обработка и вывод на экран могут быть организованы с помощью оператора цикла с параметром:
Ввод элементов массива:
Пусть дан массив действительных чисел А1, А2, …, Аn.
Этот массив имеет следующие характеристики: - имя массива А;
- количество элементов N;
- индекс (I) изменяется от 1 до N.
For I := 1 to N do
Begin
Writeln (‘ Введите’, I , ‘ элемент массива А’);
Readln ( A [ I ] ) ;
End ;
Блок-схема ввода элементов массива:
Вывод элементов массива.
Пусть дан тот же массив с теми же характеристиками, тогда вывод элементов организован следующим образом:
For I := 1 to N do
Begin
Writeln ( ‘ A [ ‘, I , ‘] = ‘, A [ I ] :8:2 ) ;
( или write ( A [ I ] :8:2 ); )
End ;
Блок-схема вывода элементов массива:
Обработка массива – это основная часть программы, т.е. решение самой задачи, так же организуется с помощью оператора цикла FOR. Все задачи с массивами можно разделить на группы:
А) нахождение суммы элементов массива;
Б) нахождение произведения элементов массива;
В) поиск минимального или максимального элементов массива;
Г) сортировка массивов (по возрастанию или по убыванию).
После объявления массива каждый его элемент можно обработать, указав имя массива, а за ним – индекс элемента в квадратных скобках. Индексированные элементы массива называются индексированными переменными и могут использоваться так же, как и простые переменные. Например, они могут входить в выражения в качестве операндов, использоваться в операторах, им можно присваивать любые значения, соответствующие их типу.
Рассмотрим пример формирования массива несколькими способами.
Задача. Создать программу, которая формирует одномерный массив тремя способами (по формуле А[i]=sin(i), случайным образом В[i], ввод элементов с клавиатуры C[i]) и выводит полученный в каждом случае массив на экран.
Решение: в начале программы опишем переменные, массивы A, B, C из вещественных чисел, индекс I, количество элементов N. Основная часть программы будет состоять из трех отдельных частей, каждая из которых иллюстрирует разный способ формирования одномерного массива.
Program massiv;
Uses Crt ;
Var a, b, c : array [1..20] of real ;
I, n : integer ;
Begin
ClrScr ;
Writeln (‘Введите количество элементов массива’);
Readln ( n ) ;
for I := 1 to n do {первый способ формирование массива по формуле}
begin
a [ I ] := sin ( I ) ;
end ;
for I := 1 to n do {второй способ – случайным образом}
begin
b [ I ] := Random ( I ) ;
end ;
for I := 1 to n do {третий способ – путем ввода данных с клавиатуры}
begin
writeln ( ‘ Введите ‘, I , ‘ элемент массива С ‘ ) ;
readln ( c [ I ] ) ;
end :
Writeln ( ‘ Вывод массива А’ ) ;
For I := 1 to n do
Write ( a [ I ] :8:2 ) ;
Writeln ( ‘ Вывод массива В ’ ) ;
For I := 1 to n do
Write ( b [ I ] :8:2 ) ;
Writeln ( ‘ Вывод массива С ’ ) ;
For I := 1 to n do
Write ( c [ I ] ) ;
Readln
End.
Блок-схема к задаче:
