COM + интерфейс - есть ответ « Вопросы и ответы

maxix, 562 просмотра

Вот сижу на днях здача, а у меня не выходит реализовать интерфейс который будет сортировать данные массива. Точнее никто ничего по этому не рассказывал, а завать надо. Товарищи помогите не могу сам сделать сума схожу.
Язык Delphi

Ответы:

kosty72antonov

Ну например вот такой вариант
const
N = 5;
a: array[1..N] of Integer = (1,5,3,2,4);
VAR
i, j, min: Integer;
BEGIN
for i:= 1 to N do Write(a[i]:8); WriteLn;
for i:= 1 to N-1 do
begin
min:=i; {Считаем, что это минимальный - номер минимального равен i}
for j:= i+1 to N do
if a[j] < a[min] then min:=j; {Если есть j-тый меньше, то он минимальный}
if i <> min then {если i-тый не был минимальным, то значение min изменится }
begin
a[i] := a[i] XOR a[min]; {меняем местами с помощью XOR - очень эффективно}
{а можно было buf:=a[i]; a[i]:=a[min]; a[min]=buf;}
a[min] := a[min] XOR a[i];
a[i] := a[i] XOR a[min]
end
end;
for i:= 1 to N do Write(a[i]:8); WriteLn;
END.

14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

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

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.