Виртуальный учебник Turbo Pascal 7.0

Главная/Раздел 3

Методы обработки массивов

Массивы - наиболее часто применяемый тип данных при обработке большого количества информации, различного рода статистических данных и т.д. Это объясняется не столько удобством хранения информации в памяти компьютера в виде массива, сколько возможностью легко производить различного рода обработку массивов.

Сумма элементов массива.

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

     PROGRAMM ex_1;

     VAR
       m: ARRAY[1..30] of real;    {декларация массива}
       i: integer;                 {параметр цикла FOR}
       s: real;                    {сумма элементов}

     BEGIN
      FOR i:=1 TO 30 DO            {заполнение массива}
        Begin
         Write('Введите элемент последовательности N ',i);
         Readln(m[i]);
        End;
       s:=0;                       {обнуление счётчика суммы}
      FOR i:=1 TO 30 DO s:=s+m[i]; {вычисление суммы}
      Write('Сумма элементов последовательности равна ',s);
      Readln;   { пауза }
     END.

Число положительных элементов массива

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

     PROGRAMM ex_2;

     VAR
       m: ARRAY[1..30] of real;    {декларация массива}
       i: integer;                 {параметр цикла FOR}
       n: integer;                 {счётчик положительных эл-ов}

     BEGIN
      FOR i:=1 TO 30 DO            {заполнение массива}
        Begin
         Write('Введите элемент последовательности N ',i);
         Readln(m[i]);
        End;
       n:=0;                       {обнуление счётчика п. эл-ов}
      FOR i:=1 TO 30 DO
       if m[i]>=0 then n:=n+1;     {вычисление количества п. эл-ов}
      Write('Последовательность содержит ',n,' положительных эл-ов');
      Readln;   { пауза }
     END.

Определение максимального элемента

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

     PROGRAMM ex_3;

     VAR
       m: ARRAY[1..30] of real;    {декларация массива}
       i: integer;                 {параметр цикла FOR}
       max: real;   {значение максимального элемента}
       t: integer;  {индекс (номер) макс. элемента}

     BEGIN
      FOR i:=1 TO 30 DO            {заполнение массива}
        Begin
         Write('Введите элемент последовательности N ',i);
         Readln(m[i]);
        End;
       max:=m[1];  {допустим, что 1-й элемент - максимален}
       t:=1;
      FOR i:=1 TO 30 DO
       if m[i]>max then     {проверка нашего утверждения}
                     begin
                      max:=m[i];
                      t:=i;
                     end;
       Writeln('Максимальный элемент последовательности равен ',max);
       Writeln('Номер максимального элемента ',t);
      Readln;   { пауза }
     END.

Поиск элемента в неупорядоченном массиве

Пример программы, которая сначала вводит 30 реальных чисел, организовывает их хранение в массиве, затем запрашивает так называемое "контрольное число". После этого проверяет, есть ли в массиве элемент, который равен контрольному числу.

     PROGRAMM ex_4;

     VAR
       m: ARRAY[1..30] of real;    {декларация массива}
       i: integer;                 {параметр цикла FOR}
       p: real;     {значение искомого элемента}
       t: integer;  {индекс (номер) иском. элемента}

     BEGIN
      FOR i:=1 TO 30 DO            {заполнение массива}
        Begin
         Write('Введите элемент последовательности N ',i);
         Readln(m[i]);
        End;
      Write('Введите контрольное число ');
      Readln(p);
       t:=0; {допустим, что в массиве нет такого элемента}
      FOR i:=1 TO 30 DO
       if m[i]=p then        {проверка нашего утверждения}
                     begin
                      t:=i;
                      write('Эл. N ',i,' равен искомому');
                     end;
       if t=0 then write('В массиве нет такого элемента');
      Readln;   { пауза }
     END.

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

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

Задания для самостоятельного выполнения

Напишите программу, которая вводит с клавиатуры 20 реальных чисел, и организовывает их хранение в массиве. После этого определяет сумму элементов, значение которых больше среднего арифметического элементов массива.
Напишите программу, которая вводит с клавиатуры 15 реальных чисел, организовывает их хранение в массиве и определяет разность между максимальным и минимальным элементом массива.
Напишите программу, которая вводит с клавиатуры 15 реальных чисел, организовывает их хранение в массиве и определяет индексы (номера) элементов массива, значение которых равно значению первого элемента массива. Если такого элемента нет, вывести соответствующее сообщение на экран.
Напишите программу, которая вводит с клавиатуры 10 реальных чисел, и организовывает их хранение в массиве. После этого массив пересортировывается по закону: первый элемент меняется с последним, второй с предпоследним и т.д.
Напишите программу, которая вводит с клавиатуры 10 целых чисел, организовывает их хранение в массиве и определяет количество чётных и количество нечётных элементов в массиве.
Напишите программу, которая вводит с клавиатуры 30 реальных чисел и определяет среднее арифметическое первых десяти элементов, вторых десяти и последних десяти. После этого определяется максимальное и минимальное среднее арифметическое и выводится сообщение.
Дан массив состоящий из 10 символов. Определить и вывести на экран индексы символов равных первому символу.
Дан массив состоящий из 10 символов. Организовать массив целых чисел и заполнить его номерами символов исходного массива. Вывести содержимое массива на экран.

НАЗАД ДАЛЕЕ

:::