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

@Ольга36 · Регистрация: 09.07.2012

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

Помогите, пожалуйста, составить программу, выполняющую следующие операции:
1. ввод с клавиатуры последовательности ( количество элементов m произвольно, но максимальный размер последовательности N фиксирован, m<=N);
2. сортировка по возрастанию (убыванию ) методом включения (простых вставок);
3. поиск заданного элемента в последовательности.

@~~MansMI~~ · 11.07.2012, 23:15

Pascal

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.

@Ольга36 · 12.07.2012, 15:45 **[ТС]**

Спасибо! А как написать меню для демонстрации этих трех пунктов задания?

@Puporev · 12.07.2012, 15:49

Сообщение от Ольга36

для демонстрации этих трех пунктов задания?

А пунктов точно 3, а не 6? Вроде во втором пункте по сути 4 пункта, 2 способа и 2 метода сортировки?

@~~MansMI~~ · 12.07.2012, 15:51

какое меню в консольном приложении?

Pascal

1	write('Sorting Up - 1 Down - 2:');

можно считать меню, для запуска сортировки

Pascal

1	write('Find?:');

для поиска

@Puporev · 12.07.2012, 15:53

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

какое меню в консольном приложении?

Например такое
https://www.cyberforum.ru/pascal/thread135004.html
https://www.cyberforum.ru/turb... 89158.html

@~~MansMI~~ · 12.07.2012, 16:04

...DOS, милый DOS
такое меню само на отдельную работу тянет

@Ольга36 · 12.07.2012, 16:09 **[ТС]**

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

какое меню в консольном приложении?

Pascal

1	write('Sorting Up - 1 Down - 2:');

можно считать меню, для запуска сортировки

Pascal

1	write('Find?:');

для поиска

Вообще-то, да. Я думаю, что это можно считать меню. Заучилась ...

@Ольга36 0 / 0 / 0 Регистрация: 09.07.2012 Сообщений: 5
		1
	Сортировка нечисловой последовательности методом включения (простых вставок) 11.07.2012, 15:07. Показов 1080. Ответов 7 Метки нет (Все метки) Помогите, пожалуйста, составить программу, выполняющую следующие операции: 1. ввод с клавиатуры последовательности ( количество элементов m произвольно, но максимальный размер последовательности N фиксирован, m<=N); 2. сортировка по возрастанию (убыванию ) методом включения (простых вставок); 3. поиск заданного элемента в последовательности. 0

@Ольга36 0 / 0 / 0 Регистрация: 09.07.2012 Сообщений: 5
	12.07.2012, 15:45 [ТС]	3
	Спасибо! А как написать меню для демонстрации этих трех пунктов задания? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.07.2012, 15:49	4
	Сообщение от Ольга36 для демонстрации этих трех пунктов задания? А пунктов точно 3, а не 6? Вроде во втором пункте по сути 4 пункта, 2 способа и 2 метода сортировки? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.07.2012, 15:53	6
	Сообщение от MansMI какое меню в консольном приложении? Например такое https://www.cyberforum.ru/pascal/thread135004.html https://www.cyberforum.ru/turb... 89158.html 0

@~~MansMI~~ Заблокирован
	12.07.2012, 16:04	7
	...DOS, милый DOS такое меню само на отдельную работу тянет 0

	12.07.2012, 16:09

Опции темы

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

Решение