Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal Необходимо создать блок схемы к программам 1) Uses crt; Var f: Boolean; n: Integer; BEGIN Clrscr; f:=False; Repeat Writeln('Введите двузначное число: '); https://www.cyberforum.ru/ free-pascal/ thread591386.html	Списки. Найти самую длинную неубывающую подпоследовательность элементов списка Free Pascal а вторая задача очень сложная? 2)Дан список из n целых чисел a,a,...,a.Найти самую длинную неубывающую подпоследовательность элементов списка.
Free Pascal Объяснить, в чем заключается синтаксическая ошибка https://www.cyberforum.ru/ free-pascal/ thread590853.html Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по вашему мнению, будет правильным. Program MyError Begin Var X : Real; Write('Введите X: '); ReadLn(X); If X > 0 Then P := LnX Else X := ABS(X); P := LnX; WriteLn(P : 7 : 2) End.	Free Pascal Объекты (массив, список, двунаправленый список), использовать виртуальные методы https://www.cyberforum.ru/ free-pascal/ thread590713.html 2.Объект!: поле - одномерный массив; методы: основные методы работы с одномерным массивом; найти индекс наименьшего элемента; найти сумму простых чисел. Объект2:поле - однонаправленный список; методы:основные методы работы с однонаправленным списком, информационное поле которого строится но элементам массива; найти порядковый номер наименьшего элемента й удалить его из списка. ОбъектЗ:ноле -...
Cписки. Удалить из списка все элементы, входящие в него в точности 2 раза Free Pascal 1)Помогите пожалуйста решить задачу в паскале дан список из n целых чисел a1,a2,...an. вывести на экран элементы списка в указанной последовательности: a(1),a(2),...,a (n/2), a(n),a (n-1),...,a (n\2 +1) ( n- четное) Добавлено через 1 минуту 2)Дан список из n целых чисел a1,a2,..,an. Удалить из списка все элементы, входящие в него в точности 2 раза. у меня уже есть прога, но она...	Free Pascal Списки. Вывести экран элементы списка в указанной последовательности https://www.cyberforum.ru/ free-pascal/ thread590695.html 1)Дан список из n целых чисел a,a2,...,a.Вывести экран элементы списка в указанной последовательности : a,a,a,a,...,a,a Добавлено через 3 минуты Ребята!Помогите пожалуйста,очень надо!
Free Pascal Извлечения flash диска есть код который отключает первый попавшийся flash-диск, нужно сделать так что бы он отключал конкретный диск если их больше 1 program EjectFlesh; {$MODE OBJFPC} uses Windows, strings; const setupapi = 'SetupApi.dll'; GUID_DEVCLASS_DISKDRIVE: TGUID = (D1: $4D36E967; D2: $E325; D3: $11CE; D4: ($BF, $C1, $08, $00, $2B, $E1, $03, $18)); // GUID класса накопителей https://www.cyberforum.ru/ free-pascal/ thread590464.html	Анимация змейка Free Pascal можете подсказать почему не компилируется модуль, пишет illegal unit name unit mymod; interface procedure initgr; procedure outpic(k,size,x1,rnd:integer); procedure hlp; implementation uses graph,crt; var gm,gd:integer;
Free Pascal Определить факт попадания точки M(x,y) в заштрихованную область https://www.cyberforum.ru/ free-pascal/ thread590355.html написать программу опредения факта попадания точки M(x,y) в заштрихованную область, изображенную на рисунке.	Free Pascal CRT. Ввести строку из n символов. Организовать 3 окна: в одном выводить цифры, в другом буквы, в третьем знаки https://www.cyberforum.ru/ free-pascal/ thread590323.html Ввести строку из n символов. Организовать 3 окна: в одном выводить цифры, в другом буквы, в третьем знаки, которые содержатся во введенном массиве. Окна появляются поочередно через 3 секунды, каждое со своим звуковым сигналом. Выход из программы: нажатие клавиши ESC. (CRT) ....нужна срочная помощь ... за ранние сп
Free Pascal ошибка SIGFPE помогите найти ошибку в коде(делал на lazarus) программа должна по методу холецкого решать слау,делал всё по блок схеме что мне дали,но не работает,пишет SIGFPE procedure TForm1.Button1Click(Sender: TObject); var b:array of array of real; c:array of array of real; y:array of real; s,s1,s2:real; i,j,k:integer; begin	Free Pascal Интерполяция методом Ньютона (Pascal) Народ, помогите нужна прога на паскале для интерполяции методом Ньютона с разделенными разностями. Заодно если можно привести тест программы. https://www.cyberforum.ru/ free-pascal/ thread589346.html

DaskOFF

113 / 113 / 42

Регистрация: 02.05.2012

Сообщений: 524

Записей в блоге: 1

31.05.2012, 01:11

Метод быстрой рекурсивной сортировки - Free Pascal - Ответ 3105058

31.05.2012, 01:11. Показов 1832. Ответов 2

Метки (Все метки)

Ответ

Алгоритм реализуется следующим образом: в некотором отрезке массива выбирается центральное (серединное) значение; все элементы из левой части отрезка, превосходящие центральное значение, перемещаются в правую часть, и наоборот. На следующем шаге (для которого используются рекурсивные вызовы этой же процедуры) алгоритм повторяется для обоих частей отрезка.

Рассмотрите процедуру, упорядочивающую по возрастанию значения из массива Massiv в диапазоне индексов Left..Right.

Pascal

Procedure QuickSort (Left, Right : integer; Massiv : Array1);
Var
  i, j, x, y : integer;
Begin
  i := Left;
  j := Right;
  x := Massiv[(Left+Right) div 2];{}
  repeat
    while Massiv[i]<x do 
      Inc(i);
    while Massiv[j]>x do 
      Dec(j);
    if i<=j
      then
        begin
          y := Massiv[i];
          Massiv[i] := Massiv[j];
          Massiv[j] := y;
          Inc(i);
          Dec(j);
        end;
until i>j;
if Left<j
  then
    QuickSort (Left, j);
if i<Right 
  then
    QuickSort (i, Right);
End;

Вернуться к обсуждению:
Метод быстрой рекурсивной сортировки Free Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

31.05.2012, 01:11

Готовые ответы и решения:

При обращении к процедуре рекурсивной быстрой сортировки происходит переполнение стека
При обращении к процедуре рекурсивной быстрой сортировки происходит переполнение стека... Хотя...

Метод быстрой сортировки: В чем ошибка?
В Паскале я ниачем, нашел метод быстрой сортировки, нужно скоро сдавать, компелятор говорит что там...

Процедура быстрой сортировки числового массива сортирует только первую часть
const Csize=10; type TNumbers=arrayof integer; var Arr:Tnumbers; procedure Quicksort (var...

метод быстрой сортировки.
написать программу метододом быстрой сортировки. направление сортировки - спадение размерность...

	31.05.2012, 01:11

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

31.05.2012, 01:11

Помогаю со студенческими работами здесь

Разработайте рекурсивную процедуру сортировки последовательности методом быстрой сортировки Хоара
Помогите!!!! Дана последовательность чисел a1, a2, ... , an. Разработайте рекурсивную процедуру...

Процедура быстрой сортировки
Доброго времени суток. Нужна опять Ваша помощь, в принципе вопрос не сложный, но я никак не могу в...

Составьте алгоритм быстрой сортировки!
Пожалуйста составьте алгоритм быстрой сортировки! Без употребления dec, inc, random,randomize

Составьте блок-схему быстрой сортировки
Составьте блок-схему быстрой сортировки ПОЖАЛУЙСТА!

Наверх