подкорректировать: Дан массив, все элементы которого упорядочены. Найти количество различных элементов в данном массиве ( Delphi )

[schibeki]

Помогите подделать прогу. само условие: Дан целочисленный массив размера N, все элементы которого упорядочены(по возрастанию и по убыванию). Найти количество различных элементов в данном массиве. у меня сам код на делфи

procedure TForm1.FormCreate(Sender: TObject);
var
R:integer;
N:integer;
j,i:integer;
a: array [1..10] of integer;
bol:boolean;
begin
// ввод данных
n:=StrToInt(InputBox('Введите N (N<=10)','','0'));
// ручной ввод значений массива
for i:=1 to n do begin A[i]:=StrToInt(InputBox(format('a[%d]',[i]),'','0')); end;
for i:=1 to n do Memo1.Lines.Add(IntToStr(A[i]));
R:=0;
for i:=1 to n-1 do
begin
bol:=true; // присвоение начального значения
for j:=i+1 to n do
begin
if (a[i]=a[j])and(i<>j) then bol:=false; //цикл для проверки элементов от определяемого до конца массива.
end;
if bol then inc(R); // если элемент неимеет похожих элементов подсчитываем его
end;
// вывод результата
Memo1.Lines.Add('количество различных элементов = '+IntToStr(R));
end;

Но данная прога работает некорректно,т.е. вот Введенные элементы:
1
2
3
4
1
2
3
4
количество различных элементов = 3
должно было написать,что различных элементов нет, а если так
Введенные элементы:
2
2
6
5
количество различных элементов = 2
то правильно и если введу так
Введенные элементы:
2
2
3
3
4
4
количество различных элементов = 2

тоже неправильно. помогите,пожалуйста....

[Serge_Bliznykov]

не смотрел ваш код, но, обратите внимание, что Вы НАРУШАЕТЕ условия задачи!!!

Дан целочисленный массив размера N, все элементы которого упорядочены

Вы задаёте НЕУПОРЯДОЧЕННЫЕ массивы.
А это принципиально важно!!


p.s. кстати, и не согласен с вашей трактовкой задачи!

2
2
6
5
количество различных элементов = 2
то правильно

на мой взгляд, это неверно. В данном примере 3(три) различных элемента! Это 2, 5, 6

а, например, если взять массив:
1
2
3
4
5
то тут различных элементов ровно 5(пять). Перечислить, или сами найдёте?

[schibeki]

Сообщение от Serge_Bliznykov

не смотрел ваш код, но, обратите внимание, что Вы НАРУШАЕТЕ условия задачи!!!


Вы задаёте НЕУПОРЯДОЧЕННЫЕ массивы.
А это принципиально важно!!


p.s. кстати, и не согласен с вашей трактовкой задачи!

на мой взгляд, это неверно. В данном примере 3(три) различных элемента! Это 2, 5, 6

а, например, если взять массив:
1
2
3
4
5
то тут различных элементов ровно 5(пять). Перечислить, или сами найдёте?

я ввел
3
6
7
7
9
9
должно было вывести 2 различных элемента,т.е те,которые не повторяются в массиве,а вывело 3

тоже самое,когда ввожу
7
7
4
4
2
5

все,я понял,кажись,саму суть условия,т.е. если два элемента,просто считать за один и все

[Serge_Bliznykov]

Сообщение от schibeki

я ввел
3
6
7
7
9
9
должно было вывести 2 различных элемента,т.е те,которые не повторяются в массиве,а вывело 3

нет, не так. При чём здесь - "повторяются" или "не повторяются".

в данном массиве четыре различных элемента.

Вот, допустим, Вы собираете марки.
У Вас две марки "Голубой Маврикий", пять марок (одинаковых) с Юрием Гагариным и три одинаковые марки с А.П.Чеховым.

Вопрос, сколько РАЗЛИЧНЫХ марок у Вас в коллекции?!

[Serge_Bliznykov]

Сообщение от schibeki

все,я понял,кажись,саму суть условия,т.е. если два элемента,просто считать за один и все

если только они ОДИНАКОВЫЕ!!

И вообще, все одинаковые элементы, хоть их два, хоть пятьдесят, если они одинаковые - то их считать за ОДИН отличный от других элемент!

[schibeki]

а если вообще их не считать,то неправильно будет?

[Serge_Bliznykov]

Сообщение от schibeki

а если вообще их не считать,то неправильно будет?

ну, конечно же, неправильно!

[Vanta11a]

arr : array[0..n] of real;
for i:=0 to n-1 do
if (arr[i] != arr[i+1]) then inc(numb);

Считаем только переходы от 1 символа к другому, т.к. массив упорядочен.

[Serge_Bliznykov]

Сообщение от Vanta11a

arr : array[0..n] of real;
for i:=0 to n-1 do
if (arr[i] != arr[i+1]) then inc(numb);

Считаем только переходы от 1 символа к другому, т.к. массив упорядочен.

В принципе с подходом полностью согласен!

А почему у Вас индексация массива в примере такая странная?!
и ещё, важно! Нужно numb проиницилизировать единицей (разумеется, если массив не пустой!)

[Vanta11a]

А почему у Вас индексация массива в примере такая странная?!

А чтобы жизнь медом не казалась ^_^

и ещё, важно! Нужно numb проиницилизировать единицей (разумеется, если массив не пустой!)

Нужно, но это на совести ТС.