Помогите пожалуйста с задачей на массив

@Nika · Регистрация: 12.05.2014

Дан массив целых чисел. Получить упорядоченную по возрастанию по-следовательность из чисел, которые встречаются в данном массиве более двух раз. Использовать сортировку вставками.

Vourhey · 24.09.2008, 10:55

Тяяяк. Что же у нас не получается? Ответ "все" не принимается.

@Nika · 24.09.2008, 17:26 **[ТС]**

Сортировка вставками это написала, а вот чтобы вывести результат на форму,не получается.

Код

type Index = 0..n;
var a: array[0..n] of integer;
procedure Insert;
    var i,j: index;
    x: integer;
    begin
    for i:= 1 to n do
    begin
        x:= a[i]; a[0]:= x; j:= i-1;
        while x < a[j] do
        begin
           a[j+1]:= a[j]; j:= j-1;
        end;
        a[j+1]:= x;
    end;
end;

Это правильно?

Добавлено через 6 минут 5 секунд
Так что можно сказать, что не все получается)

@Puporev · 25.09.2008, 12:19

Что бы больше не переписывали кривоватые коды, посмотрите проект, что непонятно, спрашивайте здесь или в личке.

@Nika 0 / 0 / 0 Регистрация: 12.05.2014 Сообщений: 5
		1
	Помогите пожалуйста с задачей на массив 24.09.2008, 08:43. Показов 1135. Ответов 3 Метки нет (Все метки) Дан массив целых чисел. Получить упорядоченную по возрастанию по-следовательность из чисел, которые встречаются в данном массиве более двух раз. Использовать сортировку вставками. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Vourhey Почетный модератор 7388 / 2634 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	24.09.2008, 10:55	2
	Тяяяк. Что же у нас не получается? Ответ "все" не принимается. 0

@Nika 0 / 0 / 0 Регистрация: 12.05.2014 Сообщений: 5
	24.09.2008, 17:26 [ТС]	3
	Сортировка вставками это написала, а вот чтобы вывести результат на форму,не получается. Код type Index = 0..n; var a: array[0..n] of integer; procedure Insert; var i,j: index; x: integer; begin for i:= 1 to n do begin x:= a[i]; a[0]:= x; j:= i-1; while x < a[j] do begin a[j+1]:= a[j]; j:= j-1; end; a[j+1]:= x; end; end; Это правильно? Добавлено через 6 минут 5 секунд Так что можно сказать, что не все получается) 0

Опции темы