Основы программирования на языке Turbo Pascal. Беляева И.В. - 99 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

99
i : IndexElement; {*Счетчик цикла*}
begin
writeln;
write('Массив : ');
for i := 1 to NumEl do
write(Arr[i]:3);
writeln;
end; {*Конец процедур PrintArray*}
{==========================================}
{NumberOfDifferentElements – функция, вычисляющая количество различных
элементов в массиве}
{Данные берутся из массива Arr. В переменной NumEl хранится количество
элементов в массиве Arr}
Function NumberOfDifferentElements:integer;
var
i, j : IndexElement; {*Счетчики циклов*}
num : integer; {Количество разных элементов}
isDifferent : boolean; {Элемент является отличным
от все предыдущих}
begin
{Для подсчета количества разных элементов массива используется
следующий алгоритм:
– количество различных элементов обнуляем;
– начиная с первого элемента, по очереди берем все элементы
и сравниваем их со всеми предшествующими. Если взятый
элемент равен хотя бы одному из предшествующих, то этот
элемент не является новым – мы такой уже учли;
– если же он ни одному из предшествующих не равен, то
увеличиваем количество РАЗЛИЧНЫХ элементов на 1.}
num := 0;
for i := 1 to NumEl do
begin
isDifferent := true; {i-й элемент является отличным
от предыдущих}

Страницы