Упорядочить массив в порядке неубывания

@mysteria-m · Регистрация: 26.12.2013

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

Помогите пожалуйста с заданием((
Дан массив a: array [1..n] of integer. Упорядочить элементы массива а по неубыванию в соответствии со следующим критерием: элемент x считается «больше» элемента y, если первая цифра числа x больше первой цифры y.

Добавлено через 4 часа 37 минут

Добавлено через 3 часа 12 минут
помогииитеее((( неправильно сортирует

Pascal

Uses crt;
const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,j: byte;
  t: integer;
begin
    clrscr;
  write('Vvedite razmernosti massiva ');
  readln(n);
  writeln('Vvedite chisla:');
  for i:=1 to n do
  begin
    readln (a[i]);
    end;
  writeln;
  for i:=2 to n do
    for j:=n downto i do
    if (a[j-1] div 10)>(a[j] div 10)then
    begin
      t:=a[j-1];
      a[j-1]:=a[j];
      a[j]:=t;
    end;
  writeln('Preobrazovanniy massiv:');
  for i:=1 to n do
    write(a[i]:3);
  readln;
end.

@Cyborg Drone · 22.04.2014, 23:47

Допустим, число 2345. Итак, какая цифра первая, 2 или 5? Если 5, то в 20 строке замените div на mod, и все дела. Если 2, то это уже более другая история.

@mysteria-m · 23.04.2014, 05:01 **[ТС]**

первая цифра - 2

@Krasme · 23.04.2014, 06:15

mysteria-m, пример кода будет таков

Кликните здесь для просмотра всего текста

Pascal

Uses crt;
const
 nmax=100;
var
 a: array[1..nmax] of integer;
 n,i,j: byte;
 t: integer;
 s1,s2:string[4];
begin
 clrscr; randomize;
 write('Vvedite razmernosti massiva ');
 readln(n);
 for i:=1 to n do
 begin
 a[i]:=random(1000);
 write(a[i]:4);
 end;
 writeln;
 for i:=1 to n-1 do
  for j:=i to n do
  begin
  str(a[i],s1); str(a[j],s2);
  if (s1)>(s2)then
  begin
   t:=a[i];
   a[i]:=a[j];
   a[j]:=t;
  end;
 end;
 writeln('Preobrazovanniy massiv:');
 for i:=1 to n do
  write(a[i]:4);
 readln;
end.

@Cyborg Drone · 23.04.2014, 06:52

Хм... Krasme, первая цифра ищется через строку... Предполагаю, что исходя из контекста обучения, это у mysteria-m вызовет некоторые бодания с преподавателем, который ждёт от него применения операторов div и mod. Да, и условие сравнения чисел у Вас не соответствует заданию. Нужно сравнивать только первую цифру чисел, а не всё число. К тому же, у Вас не предусмотрен случай с отрицательными числами. array-то of integer, а не of word, к примеру.
Исправление для Вашей программы:

Pascal

//...
  str(abs(a[i]),s1); str(abs(a[j]),s2);
  if s1[1]>s2[1]then
//...

Мой вариант кода. Строки для чисел не применяются. Правда, в нём применена функция для вычисления первой цифры числа и процедура для печати массива, думаю, если mysteria-m разберётся с программой, это ему будет только в плюс:

Pascal

function fd(x: integer): integer;
begin
  x := abs(x);
  while x >= 10 do x := x div 10;
  fd := x
end;
 
const nmax = 100;
 
var a: array[1..nmax] of integer;
    n, i, j: byte;
    t, k: integer;
 
procedure prnt(s: string);
var i: integer;
begin
  writeln(s);
  for i := 1 to n do write(' ', a[i]:3);
  writeln
end;
 
begin
  write('Vvedite razmernosti massiva: ');
  readln(n);
  writeln('Vvedite chisla: ');
  for i := 1 to n do
    begin
      write(i:2, ': ');
      readln(a[i])
    end;
  prnt('Ishodniy massiv:');
  for i := 2 to n do for j := n downto i do if fd(a[j-1]) > fd(a[j])
    then begin
      t:=a[j-1];
      a[j-1]:=a[j];
      a[j]:=t
    end;
  prnt('Preobrazovanniy massiv:');
  readln;
end.

@Krasme · 23.04.2014, 07:29

Cyborg Drone,

я и сделала начальный вариант с сортировкой "только по первой цифре", но потом применила простую "строковую" сортировку.
в задании не сказано, что числа вводятся вручную, а одиночный рандом дает только положительные числа.
конечно, можно двойным рандомом отрицательные сгенерировать, но опять же нет акцента, что массив целых чисел должен содержать и отрицательные значения.
все по воле программиста-студента, главное, чтобы мог и оперировать алгоритмом, и преподу доказать, что работал самостоятельно

Сообщение от Cyborg Drone

вызовет некоторые бодания с преподавателем, который ждёт от него применения операторов div и mod

а ждет ли? может, автор темы сам их использовал, создавая свой алгоритм.

Добавлено через 7 минут

но потом применила простую "строковую" сортировку.

чтобы не возникал вопрос типа "почему в сортировке не участвует вторая и т.д. цифра".

@Cyborg Drone · 23.04.2014, 07:58

Не по теме:

Ну и пусть с ними, нюансами. Теперь у ТС есть свобода выбора.

@mysteria-m · 23.04.2014, 11:57 **[ТС]**

спасибо огромное!! всем всем))

@Cyborg Drone Модератор 9867 / 5235 / 3306 Регистрация: 17.08.2012 Сообщений: 16,005
	22.04.2014, 23:47	2
	Допустим, число 2345. Итак, какая цифра первая, 2 или 5? Если 5, то в 20 строке замените div на mod, и все дела. Если 2, то это уже более другая история. 0

@mysteria-m 3 / 3 / 5 Регистрация: 26.12.2013 Сообщений: 197
	23.04.2014, 05:01 [ТС]	3
	первая цифра - 2 0

@Krasme 6830 / 4890 / 2065 Регистрация: 02.02.2014 Сообщений: 13,048
	23.04.2014, 07:29	6
	Cyborg Drone, я и сделала начальный вариант с сортировкой "только по первой цифре", но потом применила простую "строковую" сортировку. в задании не сказано, что числа вводятся вручную, а одиночный рандом дает только положительные числа. конечно, можно двойным рандомом отрицательные сгенерировать, но опять же нет акцента, что массив целых чисел должен содержать и отрицательные значения. все по воле программиста-студента, главное, чтобы мог и оперировать алгоритмом, и преподу доказать, что работал самостоятельно Сообщение от Cyborg Drone вызовет некоторые бодания с преподавателем, который ждёт от него применения операторов div и mod а ждет ли? может, автор темы сам их использовал, создавая свой алгоритм. Добавлено через 7 минут но потом применила простую "строковую" сортировку. чтобы не возникал вопрос типа "почему в сортировке не участвует вторая и т.д. цифра". 0

@Cyborg Drone
	23.04.2014, 07:58 #7
	Не по теме: Ну и пусть с ними, нюансами. Теперь у ТС есть свобода выбора. 0

@mysteria-m 3 / 3 / 5 Регистрация: 26.12.2013 Сообщений: 197
	23.04.2014, 11:57 [ТС]	8
	спасибо огромное!! всем всем)) 0