Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi на процедуры и функции Delphi https://www.cyberforum.ru/ delphi-beginners/ thread537065.html
объясните мне пожалуйста поподробней, как в прямоугольной матрице найти индексы всех седловых точек используя процедуры и функции? очень прошу!!! очень прошу объясните, кто знает...
Найти сумму номеров отрицательных элементов массива h=(h1,h2,…,hn ). Delphi
Очень нужна ваша помощь. Преподаватель зверь, а пары пролетели и МАССИВЫ были заданы для домашнего прохождения. Вторую неделю группой весим :( Задание: Найти сумму номеров отрицательных элементов массива h=(h1,h2,…,hn ). procedure TForm1.Button1Click(Sender: TObject); var h:array of real; //Назвал массив s:integer; i:integer; //Обозначил переменные begin a:=strtofloat(memo1.lines);...
Delphi Программа не заходит в функцию Omega!В чем дело? Здравствуйте. У меня такая проблема. Программа, код которой представлен ниже работает,но при вводе чисел в поля ввода для w,w начальное и w конечно не реагирует на них. Выводит такие же числа.Помоги разобраться.Возможно я что-то не то написал в этой функции. Где w наша угловая скорость, w начальное это время,начиная с которого наша частота зануляется, w конечно это время, до которого наша w... https://www.cyberforum.ru/ delphi-beginners/ thread536940.html Delphi написать прграмму на делфи дана функция x^3-6*x^2-6x-2=0 нужно найти корни уравнения методом горнера https://www.cyberforum.ru/ delphi-beginners/ thread536920.html
Delphi Дана непустая последовательность слов
Дана непустая последовательность слов, в каждом из которых от 1 до 12 строчных латинских букв; между словами—пробел, за последним словом—точка. Напечатать эти слова по алфавиту, указав для каждого из них число его вхождений в эту последовательность. Сделайте пожалуйста.
Delphi Random. https://www.cyberforum.ru/ delphi-beginners/ thread536801.html
Добрый вечер! Подскажите пожалуйста, как заполнить массив в StringGrid1 100 числами наугад чтобы при этом числа не повторялись. То есть все числа от 0 до 100 без повтора. Что именно надо дописать к этому коду чтобы работал Randomize без повторения: procedure TForm1.Button1Click(Sender: TObject); var a,b: integer; begin
Delphi Структура построения двумерных массивов https://www.cyberforum.ru/ delphi-beginners/ thread536799.html
Не так давно решил занятся программированием, но к сожалению начитавшись разных книг в голове осталась какая то каша, с которой не разобраться без примеров. Сколько не искал нет ничего похожего что нужно, поэтому прошу помощи у вас, а именно кто может написать ход решения таких задач как: 1. Даны матрицы А,B: array of real. Вычислить матрицу С поэлементным сложением соответствующих...
Delphi Вычислить значение функции
Помогите решить 3 задачки, которые на фото с минусом... Без использования массивов и сложных конструкций. ... Дурацкая практика...
Delphi Создание документа Word https://www.cyberforum.ru/ delphi-beginners/ thread536743.html
Как через Delphi создать новый документ Word. Нажимая на кнопку создается и открывается новый документ.
Delphi Смысл функции Integer() https://www.cyberforum.ru/ delphi-beginners/ thread536643.html
Здравствуйте, уважаемые знатоки! Собственно разбираю код и не могу понять, что делает функция Integer(). Строка из программы: x1 := Integer(m.N2)-FonN2; m - это запись, содержащая три значения (N1,N2,T) типа Cardinal FonN2 - переменная типа Integer. Не понимаю смысла Integer(m.N2)- помогите разобраться, пожалуйста:)
ListBox MultiSelect - не получается удалить выделенное Delphi
Извиняюсь если была подобная тема. Есть листбокс, в нем вывожу студентов выбранной группы. Нужно отметить отсутствующих. Выделяю отсутствующих и жмякаю на кнопку. Выделенные удаляются, остальные остаются. Вот заготовка: for i := 1 to Form1.Student.RecordCount do begin if not Self.lst1.Selected then i++ else begin str:= form1.Student.FieldByName('fam').AsString+'...
Delphi Простая обработка матриц в кратном цикле Для каждого столбца матрицы найти среднее арифметическое элементов, больших нуля, но меньших единицы. https://www.cyberforum.ru/ delphi-beginners/ thread536440.html
0 / 0 / 0
Регистрация: 02.04.2012
Сообщений: 9
03.04.2012, 19:58  [ТС] 0

Курсовая по ООП (Быстрая сортировка) - Delphi - Ответ 2869183

03.04.2012, 19:58. Показов 1862. Ответов 4
Метки (Все метки)

Ответ

я прогонял но результата ни какого ((((
не могу понять почему оно берет меняет половину массива местами, но НЕ сортируя их ....

Добавлено через 2 часа 8 минут

Добавлено через 42 секунды
Спасибо за помощь, ошибку я нашел.

Вернуться к обсуждению:
Курсовая по ООП (Быстрая сортировка) Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2012, 19:58
Готовые ответы и решения:

Быстрая сортировка
Как в бстрой сортировке сделать построчный вывод отсортированныз значений Например 60,79, 82, 58,...

Быстрая сортировка
необходимо создать код,который будет производить сортировку массива по убыванию или возрастанию...

Быстрая сортировка.
Написать программу, сортирующую по убыванию побочную диагональ двумерного массива целых чисел....

Быстрая сортировка
написал прогу с двумя видами сортировки... проблема в том что в второй варианте не выводится вторая...

4
03.04.2012, 19:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2012, 19:58
Помогаю со студенческими работами здесь

Рекурсивная быстрая сортировка
Имеется код: procedure QSortRec(var _arr:TArr;min,max:integer); var i,j,mid,tmp:integer; begin...

Быстрая сортировка, ошибка
Добрый день! Задали 6 методов сортировок и уже на 5-ой у меня голова кругом( Выскакивают...

Быстрая сортировка элементов Listbox
Пожалуйста, подскажите как решить данную задачу? Есть Listbox, содержащий большое количество...

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

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