[skif443]

Добрый вечер! Очень нужна ваша помощь. Я пишу проектную работу по кластеризации. Мне на данном этапе необходимо реализовать несколько тестов. Первый - тест на схожесть. В нем требуется посчитать количество совпадений в векторе-прототипе и векторе-признаков. Тобишь допустим 1 вектор: 010, второй вектор: 110. Здесь кол-во совпадений 1/1 =1. Как эту операцию сделать программно на Delphi?

И второй вопрос. Как программно посчитать количество цифр в числе? Я пытался делть через div, но неверно считает( Что не так?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

begin vprototype:=011; vsign:=010; B:=1.0; d:=3; k:=1; while vprototype<>0 do begin   vprototype:=vprototype div 10;   k:=k+1;   label5.caption:=InttoStr (k); end; if 1/(B+2)>1/(b+d) then result1:=1 else result1:=0; if result1=1 then label2.Caption:=label2.Caption + ' Success' else if result1=0 then label2.Caption:=label2.Caption + ' Fail';

Admin: Пользуемся тегами!