Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Квадрат Полибия https://www.cyberforum.ru/ pascal/ thread33241.html Шифровальная таблица для латиницы представляет собой прямоугольник с шестью столбцами и пятью строками, которые нумеруются цифрами. В каждую клетку такого квадрата записывается одна буква. В результате каждой букве соответствует пара чисел (например, a-11, b-12, c-13 и т.д.), и шифрование сводится к замене буквы парой чисел. Необходимо написать программу, которая будет осуществлять шифрование и...	Заполнить массив А(n,m) целыми случайными числами Pascal Помогите решить,очень надо.Заполнить массив А(n,m) целыми случайными числами таким образом чтобы и в каждой строке и в каждом столбце каждый следующий элемент был не меньше предыдущего элемента.Заранее спасибо
Pascal Дана матрица. Упорядочить элементы строк матрицы по возрастанию https://www.cyberforum.ru/ pascal/ thread33215.html 1) Дана матрица. Упорядочить элементы строк матрицы по возрастанию, а сами строки по неубыванию произведения четных элементов строк. Использовать сортировку бинарными вставками, реализовав метод в виде подпрограммы. 2) Написать программу, определяющую, на какую букву чаще всего начинаются слова в заданном текстовом файле. Результат вывести на экран и в текстовый файл.	Pascal Необходимо разработать рекурсивный алгоритм. https://www.cyberforum.ru/ pascal/ thread33201.html Разработать рекурсивный алгоритм и программу решения задачи, в которой вычислить : f(n)=(1+n!)/n!. Исходные данные вводятся с клавиатуры. Программа должна быть реализована с использованием пользовательского библиотечного модуля. Добавлено через 4 часа 8 минут 3 секунды помогите пожалуста то я немогу с этой задачей разобраться.
Pascal Запись По ходу роботы возник такой момент .. в роботе в запись нужно добавить 7 полей с которых 4 типа string и 3 типа integer , Это все я обьявил в type .. потом хочу создать масив записей ... но здесь появилась проблемка ... при создавание говорит что структура слишком длинная =( кто что может посоветовать ?? возможно както зделать через array of char ... посоветуйте что то =)	Pascal Паскаль.Процедуры.Матрицы. https://www.cyberforum.ru/ pascal/ thread33187.html написать процедуру для ввода и выода элементов двухмерных массивов как целого(integer),так и вещественного(real) Буду благодарен за любую подсказку...лаба горит,без зачета могу остаться...
Pascal Поиск и сортировка Помогите, пожалуйста с задачкой! Необходимо упорядочить массив R(I) по невозрастанию, используя следующий подход: для i=2,3,...,1 каждый элемент r(i) вставлять в нужное место среди упорядоченных ранее элементов r1,r2,...,r(i-1) за счет удаления r(i). https://www.cyberforum.ru/ pascal/ thread33178.html	Pascal Динамический список, не пойму... Здравствуйте, есть задание: Сформировать динамический список, элементами которого являются целые числа (в условии дано - это элементы массива). Выполнить задание, не создавая массив, а с использованием динамического списка. В процессе выполнения программа должна отслеживать и выводить на экран объем свободной памяти до создания списка, в...
Pascal Работа с текстом. https://www.cyberforum.ru/ pascal/ thread33173.html Написать программу которая бы считала кол-во слов в блокноте .txt За рание огромное спасибо!!!	Pascal Матрицы (Процедуры). https://www.cyberforum.ru/ pascal/ thread33171.html Условие: Дана матрица А, состоящая из N строк и N столбцов, и одномерный массив Т из N элементов. Изменит все строки матрицы, в которых отрицателен элемент главной диагонали: к каждому элементу i-й строки прибавляется элемент Ti из заданного массива. Подсчитать число изменеённых строк матрицы... Заранее спасибо =)
Разработать рекурсивный алгоритм: f(n)=1/(n+5)! Pascal Напишите плизз весь код программки и модуля)) Разработать рекурсивный алгоритм и программу решения задачи, в которой вычислить : f(n)=1/(n+5)!. Исходные данные вводятся с клавиатуры. Программа должна быть реализована с использованием пользовательского библиотечного модуля.	Pascal Разработать алгоритм и программу решения задачи, в которой сформировать кольцевой односвязный список. Разработать алгоритм и программу решения задачи, в которой сформировать кольцевой односвязный список. https://www.cyberforum.ru/ pascal/ thread33164.html

bormant

Модератор

7771 / 4600 / 2824

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

Сообщений: 13,080

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

16.09.2019, 11:24

Сортировки - Pascal - Ответ 13831331

16.09.2019, 11:24. Показов 137102. Ответов 14

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

Ответ

Сортировка Шелла с шагом 3*k+1:

Pascal

type TElement = Integer;
 
{ сортировка Шелла с шагом 3*k+1 }
procedure ssort(var a: array of TElement);
var
  gap, lt, rt, i: Integer;
  t: TElement;
begin
  gap:=1; while gap<=High(a) do gap:=3*gap+1; gap:=gap div 3;
  while gap>0 do begin
    for i:=0 to High(a)-gap do begin
      lt:=i; rt:=lt+gap; t:=a[rt];
      while (lt>=0) and (a[lt]>t) do begin
        a[rt]:=a[lt]; rt:=lt; Dec(lt,gap);
      end;
      a[rt]:=t;
    end;
    gap:=gap div 3;
  end;
end;
 
{ пример использования }
var
  a: array [1..10] of TElement;
  i: Integer;
begin
  Randomize;
  for i:=Low(a) to High(a) do a[i]:=-99+Random(199);
  Write('A ='); for i:=Low(a) to High(a) do Write(a[i]:4); WriteLn;
  ssort(a);
  Write('A''='); for i:=Low(a) to High(a) do Write(a[i]:4); WriteLn;
end.

Вернуться к обсуждению:
Сортировки Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

16.09.2019, 11:24

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

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

Написать комментарии, поясняющие принцип сортировки. (Метод сортировки - вставками)
Написать комментарии, поясняющие принцип сортировки. (Метод сортировки - вставками) Если вдруг...

Расставить элементы массива в порядке возрастания методом сортировки выбором и сортировки простыми вставками
Здрасьте еще раз!С прошедшим вас праздником! я глупая и бестолковая опять пришла к вам на...

Сортировки
Написать программу, реализующую сортировку массива заданными способами.Алгоритм сортировки должен...

	16.09.2019, 11:24

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

16.09.2019, 11:24

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

Сортировки
Реализовать три алгоритма внутренней сортировки 1.1 О(n) 1.2 O(n logn) Сортировки...

Методы сортировки
Сравнить скорости сортировки массивов - небольшого (до 1000 елементов) и большого (10000 елементов)...

Организация сортировки
Прошу помощи в организации сортировки данных в процедуре sortirovka все время выдает ошибку...

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

Наверх