Технический форум - Показать сообщение отдельно

virginia · 31.03.2012, 14:54

Function Tst(Q:Ar):Boolean;
var
k,m:Byte;
b:Boolean;
begin
b:=false;
k:=0;
Repeat
Inc(k);
m:=k;
Repeat
Inc(m);
If Q[k]=Q[m] then b:=true;
Until b or (m=N);
Until b or (k=N-1);
Tst:=b;
end;
а что в этой части делается?

31.03.2012, 14:54	#3 (permalink)
virginia Member Регистрация: 29.10.2011 Сообщений: 42 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: -42	Function Tst(Q:Ar):Boolean; var k,m:Byte; b:Boolean; begin b:=false; k:=0; Repeat Inc(k); m:=k; Repeat Inc(m); If Q[k]=Q[m] then b:=true; Until b or (m=N); Until b or (k=N-1); Tst:=b; end; а что в этой части делается?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070