dimitriy7
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mmotop20oo12
Ну как-то так, да. Только просматривать по s,d надо не по всему массиву, а до текущего элемента a[q,p]; переменная x лишняя, почему бы сразу не сравнить с a[q,p]?
Цитата:| уже элемент станет а (1 2) и к обнулиться |
С чего бы вдруг? Оно не сразу же обнулится, перед k:=0 надо проверить k и увеличить (или не увеличить) счетчик (кстати, а где он? Нет его).
Вот как-то так надо:
Код:
procedure TForm1.какая_то_там(Sender: TObject);
var
i,j,k,c: integer;
m: array[0..nmax] of extended;
b: boolean;
begin
c:=0;
for i:=1 to n do for j:=1 to n do
begin
b:=FALSE;
m[c]:=a[i,j];
for k:=0 to c-1 do b:=(b)or(m[c]=m[k]);
if not b then inc(c);
end;
//теперь в переменной "c" лежит
//искомое кол-во неповторяющихся элементов,
//выводим его как-нибудь.
end;
|
А вообще какая-то кривая идея пихать счетные процедуры-функции прямо в обработчики кнопок... |
Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 23:46 12-12-2014 | Исправлено: dimitriy7, 23:47 12-12-2014 |
|
