Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Ольга36
0 / 0 / 0
Регистрация: 09.07.2012
Сообщений: 5
#1

Сортировка нечисловой последовательности методом включения (простых вставок) - Turbo Pascal

11.07.2012, 15:07. Просмотров 701. Ответов 7
Метки нет (Все метки)

Помогите, пожалуйста, составить программу, выполняющую следующие операции:
1. ввод с клавиатуры последовательности ( количество элементов m произвольно, но максимальный размер последовательности N фиксирован, m<=N);
2. сортировка по возрастанию (убыванию ) методом включения (простых вставок);
3. поиск заданного элемента в последовательности.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.07.2012, 15:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Сортировка нечисловой последовательности методом включения (простых вставок) (Turbo Pascal):

Сортировка одномерного массива методом простых вставок - Turbo Pascal
Как вызвать процедуру заполнение массива в процедуре Sortirovka, чтобы можно было сортировать заполненный массив?

Сортировка одномерного массива методом простых вставок - Turbo Pascal
Помогите сделать сортировку одномерного массива методом простых вставок. Процедура заполнения массива. procedure ZapolnenieC(var...

Матрица. Сортировки методом простых вставок и методом простого выбора - Turbo Pascal
Описать, разработать и запрограммировать два алгоритма сортировки по указанному методу: первый алгоритм - сортировка методом простых...

Дан массив А. Упорядочите элементы массива методом простых вставок - Turbo Pascal
Дан массив А, состоящий из n натуральных чисел. Упорядочите элементы массива методом простых вставок.Массив берется из файла.

Отсортировать по возрастанию каждый столбец матрицы методом простых вставок и простого выбора - Turbo Pascal
Отсортировать нужно по возрастанию каждый столбец,методом простых вставок и простого выбора.Матрица 70Х70 типа Word

Дан массив А, состоящий из n натуральных чисел. Упорядочите элементы массива методом простых вставок. - Turbo Pascal
Дан массив А, состоящий из n натуральных чисел. Упорядочите элементы массива методом простых вставок.

7
MansMI
1290 / 1068 / 299
Регистрация: 08.01.2012
Сообщений: 4,068
11.07.2012, 23:15 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
var arr:array[1..100]of char;
    i,j,n,m:integer;
    f:boolean;
    a:char;
begin
  clrscr;
  write('N chars <=100:');
  readln(n);
  for i:=1 to n do
  begin
    write('A',i,':');
    readln(arr[i]);
  end;
  writeln;
  write('Up - 1  Down - 2:');
  readln(m);
  writeln;
  if m<>1 then m:=-1;
  for i:=2 to n do
  begin
    a:=arr[i];
    j:=i;
    while(ord(a)*m<ord(arr[j-1])*m)and(j>1)do
    begin
      arr[j]:=arr[j-1];
      j:=j-1;
    end;
    arr[j]:=a;
  end;
  for i:=1 to n do writeln('A',i,':',arr[i]);
  writeln;
  write('Find?:');
  readln(a);
  for i:=1 to n do
  if arr[i]=a then
  begin
    f:=true;
    break;
  end;
  if f then writeln('A',i,'=',a)
       else writeln('Not found!');
  readln;
end.
1
Ольга36
0 / 0 / 0
Регистрация: 09.07.2012
Сообщений: 5
12.07.2012, 15:45  [ТС] #3
Спасибо! А как написать меню для демонстрации этих трех пунктов задания?
0
Puporev
Модератор
52399 / 40246 / 13579
Регистрация: 18.05.2008
Сообщений: 93,034
12.07.2012, 15:49 #4
Цитата Сообщение от Ольга36 Посмотреть сообщение
для демонстрации этих трех пунктов задания?
А пунктов точно 3, а не 6? Вроде во втором пункте по сути 4 пункта, 2 способа и 2 метода сортировки?
0
MansMI
1290 / 1068 / 299
Регистрация: 08.01.2012
Сообщений: 4,068
12.07.2012, 15:51 #5
какое меню в консольном приложении?
Pascal
1
write('Sorting Up - 1  Down - 2:');
можно считать меню, для запуска сортировки
Pascal
1
write('Find?:');
для поиска
1
Puporev
Модератор
52399 / 40246 / 13579
Регистрация: 18.05.2008
Сообщений: 93,034
12.07.2012, 15:53 #6
Цитата Сообщение от MansMI Посмотреть сообщение
какое меню в консольном приложении?
Например такое
http://www.cyberforum.ru/pascal/thread135004.html
http://www.cyberforum.ru/turbo-pascal/thread289158.html
0
MansMI
1290 / 1068 / 299
Регистрация: 08.01.2012
Сообщений: 4,068
12.07.2012, 16:04 #7
...DOS, милый DOS
такое меню само на отдельную работу тянет
0
Ольга36
0 / 0 / 0
Регистрация: 09.07.2012
Сообщений: 5
12.07.2012, 16:09  [ТС] #8
Цитата Сообщение от MansMI Посмотреть сообщение
какое меню в консольном приложении?
Pascal
1
write('Sorting Up - 1  Down - 2:');
можно считать меню, для запуска сортировки
Pascal
1
write('Find?:');
для поиска
Вообще-то, да. Я думаю, что это можно считать меню. Заучилась ...
0
12.07.2012, 16:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.07.2012, 16:09
Привет! Вот еще темы с ответами:

Сортировка строк методом прямых вставок с барьером - Turbo Pascal
Здравствуйте! Срочно нужна помощь в решении задачи. Задача сама по себе легкая, но не могу реализовать сам метод сортировки. Помогите...

Сортировка двумерного массива с датами методом вставок. Работает через раз - Turbo Pascal
Не совсем пока вкурил этот метод... Задание - Первый столбец массива содержит номер года, второй - номер месяца, третий - число (день)....

Разработать процедуру сортировки массива методом простых вставок - Pascal
uses crt; const Nmax=100; type myarray=array of integer; procedure Sort(n:integer; var A:myarray); label metln; var k, j, c,...

Расположение символов в алфавитном порядке, выведение наибольшего числа методом простых вставок.. - Pascal
:help:Мне нужно зделать в С++ Борланд Билдер: Расположение символов в алфавитном порядке, выведение наибольшего числа методом простых...


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

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

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