Занятие 13. Работа с массивами без использования операторов цикла

Было замечено, что большинство учеников не понимают сути методов работы с массивами. Для устранения этого пробела делаем шаг назад и пробуем работать массивами без использования циклов. Заодно начнем изучение функций…

Программа №1. Поиск максимального элемента в массиве без использования циклов

{Поиск максимального элемента в массиве без использования циклов}

const

    Arr: array [1..4] of integer = (5,4,8,3);

Var

    max: integer;

Begin

    If Arr[1]>Arr[2] Then

        max:=Arr[1]

    Else

        max:=Arr[2];

    If Arr[3]>max Then

        max:=Arr[3];

    If Arr[4]>max Then

        max:=Arr[3];

    Writeln('Максимальный элемент массива =', max);

End.

Программа №2. Поиск максимального элемента в массиве без использования циклов, но с использованием функции

{Поиск максимального элемента в массиве без использования циклов,но с использованием функции}

const

    Arr: array [1..4] of integer = (5,4,8,3);

Var

    max: integer;

Function GetMax(a: integer; b: integer): integer;

Begin

    If a>b Then

        GetMax:=a

    Else

        GetMax:=b;

End;

Begin

    cls;

    {if Arr[1]>Arr[2] Then

        max:=Arr[1]

    Else

        max:=Arr[2];}

    max:=GetMax(Arr[1],Arr[2]);

    {if Arr[3]>max Then

        max:=Arr[3];}

    max:=GetMax(max,Arr[3]);

    {if Arr[4]>max Then

        max:=Arr[3];}

    max:=GetMax(max,Arr[4]);

    Writeln('Максимальный элемент массива =', max);

End.

Программа №3. Перестановка элементов массива в обратном порядке

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

Var

    Arr: array [1..4] of integer;

    t1: integer;

    i: byte;

Begin

    cls;

    Arr[1]:=5; Arr[2]:=4; Arr[3]:=8; Arr[4]:=3;

    t1:=Arr[1];

    Arr[1]:=Arr[4];

    Arr[4]:=t1;

    t1:=Arr[2];

    Arr[2]:=Arr[3];

    Arr[3]:=t1;

    for i:=1 to 4 do

        writeln('Элемент массива №',i, '=',Arr[i])

End.