Разработать алгоритм методом пошаговой детализации и программу решения , в которой отсортировать одномерный массив a[1..8], состоящий из элементов вещественного типа в порядке убывания методом «вставки». исходные данные массива вводятся с клавиатуры.

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

procedure sortbyinsert(a: array of real);

// сортировка простыми вставками

begin

  for var граница : = 1 to a.length - 1 do

    if a[граница - 1] < a[граница] then

    begin

      // сдвиг вправо

      var (элемент, позиция) : = (a[граница], граница - 1);

      while (позиция > = 0) and (a[позиция] < элемент) do

        (a[позиция + 1], позиция) : = (a[позиция], позиция - 1);

      // вставка на нужное место

      a[позиция + 1] : = элемент

    end

end;

begin

  var a : = readarrreal(8);

  sortbyinsert(a); a.println

end.

pascalABC

Объяснение:

var x, y: real;

begin

 Write('Введите значение аргумента x = '); ReadLn(x);

 if x < 1 then y := exp(1) / tan(2.9 + 3 * x)

 else if x > 6 then y := sin(3 * x) + ln(x + 0.3)/ln(10)

 else if (x >= 2) and (x <= 4) then y := 0.6 * ln(abs(5 - sqr(x)))

 else begin WriteLn('Аргумент вне диапазона!'); exit; end;

 WriteLn('y(', x, ') = ', y:1:3);

end.