Технология выполнения индивидуальных заданий. Часть 1 - 29 стр.

UptoLike

Составители:

Рубрика:

Описание алгоритма

В цикле выполняются следующие действия:

– находятся два наиболее близких по значению элемента массива a,

– меньший из найденных элементов помещается в массив b, больший –в

массив c,

– найденные элементы удаляются из массива a.

Используются следующие процедуры:

- MinPair – поиск двух элементов массива с наименьшим модулем раз-

ности между ними;

- DelElement – удаление из массива элемента с заданным индексом;

- WriteArr – вывод массива вещественных чисел;

Текст программы

program Vect_2;

const nmax = 10;

type vect = array[1..nmax] of real;

var a,b,c : vect;

n,m,i,k,p,r,ia,ib: integer;

procedure MinPair(n: integer; const a: vect; var k,p: integer);

var i,j:integer;

x,y: real;

begin

x:=abs(a[1]-a[2]);

k:=1; p:=2;