Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/12: Рейтинг темы: голосов - 12, средняя оценка - 4.58
alena900
3 / 3 / 2
Регистрация: 13.10.2009
Сообщений: 83
1

Упорядочить последовательность чисел по возрастанию.

24.11.2009, 17:51. Просмотров 2311. Ответов 1
Метки нет (Все метки)

Метод модифицированного простого выбора:
выбирается минимальный элемент, переставляется с первым элементом, затем в усеченном массиве снова ищется минимальный элемент и переставляется со вторым, процесс продолжается n-1 раз.

Задание: Дана последовательность из 15 чисел, нужно упорядочить элементы по возрастанию абсолютных значений элементов методом модифицированного простого выбора.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2009, 17:51
Ответы с готовыми решениями:

Упорядочить по возрастанию последовательность трех чисел
Упорядочить по возрастанию последовательность тех чисел X,Y,Z(вывести на печать...

Упорядочить по возрастанию последовательность трех чисел X,Y,Z
Помогите мне решить эти 4 задачки по Паскалю,а то не получается у меня её...

Упорядочить последовательность по возрастанию
Даны целые числа x1, ..., xn . Упорядочить данную последовательность по...

Упорядочить данную последовательность по возрастанию
Задача 2. Упорядочить данную последовательность по возрастанию. Элементы...

дана последовательность вещественных чисел а1,а2,.а15 Определить являеться ли последовательность упорядоченной по возрастанию
дана последовательность вещественных чисел а1,а2,...а15 Определить являеться ли...

1
Puporev
Модератор
55479 / 42580 / 29429
Регистрация: 18.05.2008
Сообщений: 100,731
24.11.2009, 18:06 2
Лучший ответ Сообщение было отмечено alena900 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
{сортировка выбором по возрастанию абсолютных значений}
uses crt;
const n=15;
var a:array [1..n]of integer;
     i,j,nmin,buf:integer;
Begin
clrscr;
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
for i:=1 to n-1 do//повторяем n-1 раз
  begin
    nmin:=i;//первый непроверенный элемент
  for j:=i+1 to n do
    if abs(a[j])<abs(a[nmin]) then nmin:=j;//выбираем минимальный элемент в хвосте массива
    buf:=a[i];
    a[i]:=a[nmin];//переставляем с первым непроверенным
    a[nmin]:=buf;
  end;
writeln('Упорядоченный массив: ');
for i:=1 to n do
    write(a[i]:4);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2009, 18:06

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

Упорядочить выбором массив целых чисел по возрастанию
Упорядочить выбором массив целых чисел по возрастанию.

Упорядочить содержимое типизированного файла вещественных чисел по возрастанию
Люди пожалуйста помогите!!!! У меня скоро ГОСы - 8го числа и мне надо написать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru