3 года назад

COM + интерфейс

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

Weps513 (Гость) COM
3

COM: COM + интерфейс

9 месяцев назад Перенаправление портов (с USB в COM). Возможно?

В общем есть термопринтер с usb интерфейсом, который подключается к усб порту. Но дело в том что программа для печати работает только с COM портами. возможно ли что то придумать?
про переходники слышал, интересует чисто програмное решение данной проблемы

throussen (Гость) 2 ответа
3
8 месяцев назад что такое ukr-contact.com.ua?

Разве этот сайт, uk-cotact.com.ua является копией сайта вконтакте или facebook?, www.uk-cotact.com.ua лично меня привлекает своим дизайном и интерфейсом, а вас? Как вы думаете, до чего дойдет этот проект? Будет ли интересно посещать его тем людям которые не из Украины?, так как сайт предназначен для Украины. Спасибо за ответы)

I love latte (Гость) 4 ответа
3
8 месяцев назад IStorage: Как работать и что за фс в файле?

Как работать с этим интерфейсом на C# и что из себя представляет файловая система внутри файла?Всё что накопал - это англ.статья на MSDN Libay, на там чисто описание методов и свойств класса.

Утка-маляр (Гость) 1 ответ
3
Ответы (1)
Доктор_Айболит (Гость) 3 года назад
0

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

а вообще вариантов уйма

Пожаловаться
COM + интерфейс (COM) - вопросы и ответы на все случаи жизни - справочник COM moi-vopros.ru