Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Все элементы массива, предшествующие наибольшему из его отрицательных элементов заменить их квадратами https://www.cyberforum.ru/ pascal/ thread1336053.html Дан массив все элементы массива предшествующие наибольшему из его отрицательных элементов заменить их квадратами Заранее спасибо:)	Напечатать те слова последовательности, которые отличны от последнего слова Pascal Напишите пожалуйста код Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – запятая или не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова, предварительно преобразовав каждое из них по следующему правилу: - если слово нечетной...
Pascal Найти количество и сумму элементов меньших 2 https://www.cyberforum.ru/ pascal/ thread1335987.html Помогите найти количество и сумму элементов меньших 2 x{-5; 4; 0; 1; 3.5; -10; 14}	Pascal Произведение положительных элементов каждой строки матрицы Дана матрица X(N,M) (N10; M15). Найти произведение положительных элементов каждой строки матрицы с четным номером. Вывести на экран построчно произведение и соответствующий номер строки. Очень прошу помогите:) https://www.cyberforum.ru/ pascal/ thread1335914.html
Ввести предложение в виде символьной строки, а затем вывести на экран сообщение о том, сколько слов Pascal Ввести предложение в виде символьной строки, а затем вывести на экран сообщение о том, сколько слов в этом предложении содержат ровно три буквы "i". В качестве разделителя слов в предложении используются символьные пробелы.	Pascal Вывести на экран в столбик все слова введённого текста, исправить опечатки и напечатать исправленный текст https://www.cyberforum.ru/ pascal/ thread1335775.html Помогите пожалуйста..При вводе текста могут быть допущены следующие опечатки: в некоторых словах первая буква набрана два или более раз; вместо одного пробела между словами введено несколько; лишние пробелы введены в начале и в конце текста. Вывести на экран в столбик все слова введённого текста, исправить опечатки и напечатать исправленный текст
Pascal Вывести на экран элементы списка в обратном порядке Вывести на экран элементы списка в обратном порядке. Входные данные: N – количество элементов списка (целого типа); сами элементы списка. Выходные данные: новый динамический список. https://www.cyberforum.ru/ pascal/ thread1335710.html	Pascal Перевести из Pascal в C++ Упорядочить строки данной вещественной матрицы по возрастанию.) Упорядочить строки данной вещественной матрицы по возрастанию наибольших элементов строк. Очень нужно перевести в С++ program n4 Dimension A(100, 100) Real max, temp Print , 'vvedite razmer massiva i massiv' Read , M,N,((A(I,J),J=1,N),I=1,M) Print *, "Ishodnaya" Do I = 1, M
Pascal Найдите произведение элементов строк прямоугольной таблицы и сформируйте их них одномерный массив Пожалуйста, помогите с написанием кода. Найдите произведение элементов строк прямоугольной таблицы и сформируйте их них одномерный массив. https://www.cyberforum.ru/ pascal/ thread1335642.html	Pascal Вращения строки https://www.cyberforum.ru/ pascal/ thread1335589.html составить программу, которая до введенной строки (слова) построит обратный (обратное).
Pascal Системы уравнений Пожалуйста, помогите, составить программы решения систем уравнений..	Pascal Номер цифры, которую следует вычеркнуть, чтобы получить максимально возможное число дано натуральное число N.Написаты программу, которая определит номер цифры, которую следует вычеркнуть, чтобы получить максимально возможное число. https://www.cyberforum.ru/ pascal/ thread1335584.html

ZX Spectrum-128

6810 / 4567 / 4819

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

Сообщений: 22,438

21.12.2014, 10:05

Отсортировать указанные элементы массива методом быстрой сортировки - Pascal - Ответ 7016412

21.12.2014, 10:05. Показов 1189. Ответов 4

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

Ответ

Pascal

const
  n=10;
var
  arr :array[1..n] of real;
  i,j :integer;
  t:real;
begin
  randomize;
  writeln('Исходный массив');
  for i:=1 to n do
    begin
      arr[i]:=random*32-16;
      write(arr[i]:7:2);
    end;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if frac(arr[i])>0.5 then
        if arr[i] < arr[j] then
          begin
            t:=arr[i];
            arr[i]:=arr[j];
            arr[j]:=t;
          end;
  writeln;
  writeln('Результат');
  for i:=1 to n do
    write(arr[i]:7:2);
  readln;
end.

Вернуться к обсуждению:
Отсортировать указанные элементы массива методом быстрой сортировки Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.12.2014, 10:05

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

Отсортировать элементы массива, кратные 3, методом быстрой сортировки
помогите пожалуйста очень надо заранее спасибо Дан одномерный массив А, состоящий из N элементов....

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

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

Отсортировать элементы одномерного массива целых случайных чисел по возрастанию методом сортировки подсчётом
Добрый день. Помогите, пожалуйста, с написанием программы на Pascal ABC.NET со следующим заданием:...

	21.12.2014, 10:05

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.12.2014, 10:05

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

Отсортировать строки двумерного массива вещественных чисел методом быстрой сортировки
отсортировать строки двумерного массива вещественных чисел по значению элемента первого столбца ...

Отсортировать отрицательные числа с целой частью меньше 0,5. методом быстрой сортировки
Дан одномерный массив А, состоящий из N элементов. Отсортировать отрицательные числа с целой частью...

Создать программу реализующую два алгоритма сортировки одномерного массива: методом Шелла и быстрой сортировки
ЗАДАЧА. Создать программу реализующую два алгоритма сортировки одномерного массива: сортировка...

Двумерный массив. Отсортировать элементы первой строки методом быстрой сортировки
Дан двумерный массив А, состоящий из N строк и M столбцов. Отсортировать элементы первой строки...

Наверх