Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Конструктор множества https://www.cyberforum.ru/ pascal/ thread2581821.html Конструктор множества – список элементов Множества, обрамлённый квадратными скобками, например: И что с этими данными можно сделать? Вот написал такую программу, чтобы напечатать это множество. Но она отказала (в строке Const A). Uses Crt; Const A = : Integer;	Pascal Завершение программы не получается (Программа вводит символ и выводит на экран его код. Для завершения работы программы дважды нажать ENTER). Uses Crt; Var ch: Char; {Вводимый символ} Const CR = 13; {Код символа СК} Begin ClrScr; Repeat ReadLn(ch); WriteLn(' ', ch, ' = ', Ord(ch)); Until Ord(ch) = CR; ReadLn
Pascal Сумма n чисел https://www.cyberforum.ru/ pascal/ thread2581719.html Дано несколько чисел. Вычислите их сумму. Сначала вводите количество чисел N, затем вводится ровно N целых чисел. Какое наименьшее число переменных нужно для решения этой задачи? входные данные 2 235 56 выходные данные 291	Pascal Проверить, лежит ли точка внутри графика https://www.cyberforum.ru/ pascal/ thread2581559.html составить программу, определяющую принадлежность точки заштрихованной области.
Вычисление суммы чисел от 1 до 10, используя циклы repeat и while Pascal У меня получился такой код(смотреть ниже). Но расчет не идет. Почему? var i, sum: integer; тело процедуры: begin if (radiobutton1.checked) then {begin sum := 0; i := 1; while i < 10 do sum := sum + i;	Pascal Если в первом столбце прямоугольной матрицы все элементы по модулю больше заданной величины, разделить столбец с максима https://www.cyberforum.ru/ pascal/ thread2580577.html Если в первом столбце прямоугольной матрицы все элементы по модулю больше заданной величины, разделить столбец с максимальным средним арифметическим элементов на соответствующие элементы первого столбца
Pascal Отсортировать по возрастанию серединную строку. Использовать метод вставки https://www.cyberforum.ru/ pascal/ thread2580525.html В двумерном массиве целых случайных чисел размерностью 5*5, отсортировать по возрастанию серединную строку. Использовать метод вставки.	Заполнить массив цифрами заданного числа в порядке возрастания Pascal Дано натуральное число n<999999. Заполните массив его цифрами в порядке возрастания. Например n=527184. a=1, а=2, а=5... И т.д. В Паскале.
Pascal Картинка в графике https://www.cyberforum.ru/ pascal/ thread2580299.html Как вставить поясняющею картинку в график? uses graphABC; var gx,gy,x0,y0,x1,y2{м}{перепад на торцах}:integer;{переменным присваиваем целочисленный тип данных} x,k,P0,k2{давление в Па},Pab{перепад давлений на торцах}, h {начальный зазор, м}, r { радиус в плоскости кромки, м}, A{ угол конусности бочки золотника в рад}, i, S1{площадь первого отверстия},	Pascal Вычислить: 2x+4x+6x+... Вычислить: 2x+4x+6x+(n слагаемых); https://www.cyberforum.ru/ pascal/ thread2580158.html
Вычислить x+2x+3x+... Pascal Вычислить: x+2x+3x+(n слагаемых);	Pascal Вычислить факториал Дано натуральное число n. Вычислить n! (n!=123...n); https://www.cyberforum.ru/ pascal/ thread2580150.html

Cyborg Drone

Модератор

10029 / 5376 / 3348

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

Сообщений: 16,387

11.02.2020, 01:45

Сортировка строки пузырьком - Pascal - Ответ 14243557

11.02.2020, 01:45. Показов 2539. Ответов 1

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

Ответ

Vladik12350, пока что никто не сможет помочь, поскольку вопрос Ваш вызывает разночтения.

Что значит "обычная строка"?
Имеется ввиду, в любой кодировке, кроме кодировок Unicode с BOM, смею надеяться?

Что именно в строке нужно отсортировать? Символы или слова?

Если нужно сортировать слова.
Что является разделителем слов?
Сортировка должна быть в лексикографическом порядке?
Сортировку нужно производить в той же самой строке, или допускается использование массива строк?

Добавлено через 34 минуты
Хотя... На всякий случай, возможно, это Вам подойдёт. Пузырьковая сортировка символов в строке с однобайтовой кодировкой, по неубыванию, в порядке, заданном таблицей кодировки:

Pascal

var
  s: string;
  c: char;
  i, j: integer;
  swap: boolean;
 
begin
  writeln('Enter string:');
  readln(s);
  repeat
    inc(j);
    swap := false;
    for i := length(s) - 1 downto j do
      if s[i + 1] < s[i] then
        begin
          c := s[i + 1];
          s[i + 1] := s[i] ;
          s[i] := c;
          swap := true
        end
  until not swap;
  writeln('Sorted string:');
  writeln(s);
  readln
end.

Это практически то же самое, что и по алфавиту. Если нужно именно по алфавиту, то напишите, что нужно делать, если в строке есть не только буквы.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.02.2020, 01:45

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

Блок схема.Сортировка «Пузырьком», Сортировка методом «Последовательных перестановок», Сортировка «Вставками»
Помогите, нужны блок схемы Сортировка «Вставками» Program Vstavka; uses dos; Type mass=array ...

Сортировка пузырьком
Товарищи,прошу помощи. Нужно отсортировать массивчик методом пузырька. Как только не...

Сортировка Пузырьком
Сортировка методом обмена. Помогите изменить реализацию так, чтобы осуществлялась сортировка...

Сортировка Пузырьком,
Задача: Дана последовательность не более 100 чисел,вводятся все числа пользователем 0-конец файла...

	11.02.2020, 01:45

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.02.2020, 01:45

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

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

Сортировка пузырьком и выбором
Парни, что общего между сортировкой пузырьком и сортировкой выбором?

Сортировка пузырьком по убыванию
const n=10; var A:array of integer; m,i,j,x:integer; Sr:real; Begin Sr:=0; For i:=1 to n do...

Сортировка пузырьком
Нужно сделать так, чтобы на каждом шаге выводился массив (частично отсортированный) а также число...

Сортировка пузырьком
Дана матрица. Найти минимум в каждой строке и максимум в столбцах, вывести в новые массивы, методом...

Сортировка пузырьком
Здравствуйте,знаю как сделать сортировку с заданным массивом,но не получается сделать так,что...

Наверх