Назад на содержание Массивы в Pascal


Общая информация

Ввод массива

Вывод массива

Поиск

Сортировка

Вычисление
колличественных

характеристик массива


Котрольные вопросы

Задания


Поиск

Поиск в массиве можно показать на примере задачи нахождения наибольшего элемента и его индекса.

Для этого нужно показать:
  • алгоритм
  • блок-схему
  • текст программы
Задача:
Сделать программу поиска наибольшего элемента в массиве и его индекса.
Назовем A - массив, INDMax - индекс наибольшего элемента, Max - значение наибольшего элемента, I - параметр цикла, необходимый для перебора элементов.

Алгоритм:
  1. Выделить память для массива A(10)
  2. Присвоить элементам значения любым способом
  3. Присвоить MAX значение A(1)
  4. Присвоить INDMAX значение 1
  5. Для каждого I от 1 до 10 повторять:
  6. Если A(I)>MAX то
  7. Присвоить MAX значение A(I)
  8. Присвоить INDMAX значение I
  9. КонецЕсли
  10. КонецЦикла
Блок-схема алгоритма:



Задача: Найти min и max значения элементов массива.
Фрагмент программы:
Иллюстрация:
Var {дополнительные переменные}
max,min:integer;{значение максимального
и минимального элементов массива}
...
Begin
...
for i:=1 to n do
Read(A[i]);
Readln;
max:=A[1];
min:=A[1];
for i:=2 to n do
       if A[i]>max then max:=A[i]
       else if A[i]<min then min:=A[i];
...
Пусть массив А имеет размерность n=4.
вводим число1:    Ввод!!!
вводим число2:    Ввод!!!
вводим число3:    Ввод!!!
вводим число4:    Ввод!!!
Введено =
Введено =
Введено =
Введено =
max =   min =



max =   min =
На начало страницы
Hosted by uCoz