0 / 0 / 0
Регистрация: 12.05.2014
Сообщений: 5
1

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

24.09.2008, 08:43. Показов 1135. Ответов 3
Метки нет (Все метки)

Дан массив целых чисел. Получить упорядоченную по возрастанию по-следовательность из чисел, которые встречаются в данном массиве более двух раз. Использовать сортировку вставками.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.09.2008, 08:43
Ответы с готовыми решениями:

помогите с задачей надо в поле edit ввести одномерный массив
В поле edit ввести одномерный массив, в поле label выводить номер веденного i-го элемента массива,...

Помогите с задачей
Помогите вывести правильно формулы,а то программа работает некорректно

Помогите с задачей!
задача:дана действительная матрица 18хN. Вывести её на экран.Найти значение наибольшего по МОДУЛЮ...

помогите с задачей номер 9
с самой программой проблем нет.а вот как сделать что бы кнопка появлялась только после ввода всех...

3
Почетный модератор
7388 / 2634 / 281
Регистрация: 29.07.2006
Сообщений: 13,696
24.09.2008, 10:55 2
Тяяяк. Что же у нас не получается? Ответ "все" не принимается.
0
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
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.09.2008, 12:19 4
Что бы больше не переписывали кривоватые коды, посмотрите проект, что непонятно, спрашивайте здесь или в личке.
Вложения
Тип файла: rar Удаление сорт. вставк.rar (7.9 Кб, 26 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.09.2008, 12:19
Помогаю со студенческими работами здесь

Помогите с задачей по Delphi7
1)даны действительные числа x,y.Меньшее из этих двух чисел заменить их полусуммой,а больше их...

Помогите с задачей на Записи
Ведомость содержит сведения о сотрудниках предприятия: фамилию и инициалы, даты рождения,...

Помогите с транспортной задачей
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Выручайте, пожалуйста, с задачей по теме Работа с файлами!
Просто в самый последний день получил задание, а мозги после работы не варят до завтрашнего утра...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru