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

@dimayudin · Регистрация: 18.12.2014

Студворк — интернет-сервис помощи студентам

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

@ZX Spectrum-128 · 21.12.2014, 10:05

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.

@Cyborg Drone · 25.12.2014, 02:43

Не по теме:

dimayudin, дубли и кросспосты тем недопустимы. Ознакомьтесь: https://www.cyberforum.ru/announcement.php?a=3

@Cyborg Drone · 03.01.2015, 22:09

Сообщение от ZX Spectrum-128

Pascal

17	if frac(arr[i])>0.5 then

Сообщение от dimayudin

с целой частью больше 0,5

Несоответствие решения и задания. Возможна ошибка со стороны ТС: если имеется ввиду именно целая часть числа, по логике вещей, должно быть написано "с целой частью больше 0".

@ZX Spectrum-128 · 04.01.2015, 09:14

Cyborg Drone, надо было мне написать, что задание мною понято как "положительные числа с ~~целой~~ дробной частью больше 0,5" именно по тем причинам, которые вы озвучили.
На будущее учту, спасибо.

@dimayudin 2 / 2 / 2 Регистрация: 18.12.2014 Сообщений: 72
		1
	Отсортировать указанные элементы массива методом быстрой сортировки 20.12.2014, 14:34. Показов 1120. Ответов 4 Метки нет (Все метки) Дан одномерный массив А, состоящий из N элементов. Отсортировать указанные элементы б) методом прямого обмена. положительные числа с целой частью больше 0,5 0

@Cyborg Drone
	25.12.2014, 02:43 #3
	Не по теме: dimayudin, дубли и кросспосты тем недопустимы. Ознакомьтесь: https://www.cyberforum.ru/announcement.php?a=3 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	04.01.2015, 09:14	5
	Cyborg Drone, надо было мне написать, что задание мною понято как "положительные числа с ~~целой~~ дробной частью больше 0,5" именно по тем причинам, которые вы озвучили. На будущее учту, спасибо. 0

Опции темы