[skif443]

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

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

Код:

  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: Пользуемся тегами!