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

[Страдалецъ]

На мой взгляд, посчитать количество цифр проще так:

Код:

Count := Length('123456');

[skif443]

Ок, я новенький. Буду придерживаться правил

[skif443]

ЧТо-то я не понял код. Если мне нужно подсчитать кол-во цифр в переменной vsign. Я пишу:

Код:

begin
vprototype:=011;
vsign:=010;
B:=1.0;
d:=0;
k:=1;
{while vprototype<>0 do
begin
  vprototype:=vprototype div 10;
  d:=d+1;
  label5.caption:=InttoStr (k);
end;    }
D := Length(inttostr(vsign));
label5.caption:=InttoStr (d);
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';

Он мне неверно выдает кол-во цифр. Должно быть 3, а он 2 пишет. Что не так.

[PhoeniX]

Что? Начальный ноль как Delphi, так и процессор, не волнует