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. Показов 1846. Ответов 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

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

31.05.2012, 01:11

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

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

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

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

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

	31.05.2012, 01:11

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

31.05.2012, 01:11

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

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

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

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

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

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх