Конференции:  3D графика Delphi Игры Бизнес Потрепаться PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
<<<    Конференция "Turbo Pascal"   >>>
Eskada ® [2004-05-12 10:34:02]
Списки в Паскале
Помогите пожалуйста отсортировать выводмый список по алфавиту или по возрастанию(числа), очень надо, вопрос жизни и смерти..... Спасибо...

А+ [2004-05-12 17:57:32]    [1]
http://algolist.manual.ru

Это из дельфи, но перекодировать думаю нетрудно.
procedure QuickSort(var A: array of string; iLo, iHi: Integer);
var
  Lo, Hi: Integer;
  Mid, T: string;
begin
  Lo := iLo;
  Hi := iHi;
  Mid := A[(Lo + Hi) div 2];
  repeat
    while A[Lo] < Mid do Inc(Lo);
    while A[Hi] > Mid do Dec(Hi);
    if Lo <= Hi then
    begin
      T := A[Lo];
      A[Lo] := A[Hi];
      A[Hi] := T;
      Inc(Lo);
      Dec(Hi);
    end;
  until Lo > Hi;
  if Hi > iLo then QuickSort(A, iLo, Hi);
  if Lo < iHi then QuickSort(A, Lo, iHi);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
f, f1: TextFile;
ss: string;
ar: array of string;
ii: integer;
begin
AssignFile(f,'d:m.txt');
AssignFile(f1,'d:s.txt');
Rewrite(f1);
Append(f1);
Reset(f);
ii:=-1;
while not EOF(f)
do begin ReadLn(f,ss); Inc(ii); end;
SetLength(ar,ii+1);
CloseFile(f);
Reset(f);
ii:=0;
while not EOF(f) do
begin
 ReadLn(f,ar[ii]);
 Inc(ii);
end;
CloseFile(f);
QuickSort(ar,Low(ar),High(ar));
for ii:=Low(ar) to High(ar) do
writeln(f1,ar[ii]);
CloseFile(f1);
ShowMessage(IntToStr(ii));
end;

амам [2005-01-19 02:36:01]    [2]
Удалено модератором

БэкхэМ [2005-11-21 07:01:11]    [3]
Помогите  в списке последний элемент поставить на место первого, а из конца удалить

БэкхэМ [2005-11-21 07:16:06]    [4]
Заранее спасибо!!!согласен

SomeOne [2006-01-15 11:49:36]    [5]
Удалено модератором

wok [2006-04-18 09:48:45]    [6]
Добрый день всем!!!
Нужна помощь: прога не поддается. :( Надежды и силы иссякли, а объяснить как решать никто не может.Самой хватает на начало. Помогиите, пожалуйста.
  Дана непустая последовательность непустых слов из букв, между соседними словами-запятая, за последним словом-точка. Напечатать все слова максимальной длины.
Заранее Агромное СПАСИБО!

kiddy [2006-06-08 16:46:39]    [7]
Содержание

  type файл = file of  real;
          массив = array [1..50] of real;

Описать функцию, значением которой является список массива х (список строить от конца).

Помогите пожалуйста.

Derek [2006-12-25 07:28:17]    [8]
HELP!!! помогите написать прогу! 3 списка: L,L1,L2. Если в списке L есть список L1, то заменить его на список L2!!!

I am [2007-04-18 09:18:14]    [9]
помогите пожалуйста!!!!выбрать из списка  натур чисмел выбрать мин. и поставить его после максимального!!!!

Валера [2007-09-28 14:41:24]    [10]
А что такое список?

приходящий [2007-09-28 14:43:39]    [11]
избиретелей, видать. :))))

всметении [2007-12-16 22:53:00]    [12]
а чем делфи от паскаля отличается? нет серьезно, чем, а?

artraf [2008-01-01 14:05:21]    [13]
Ну например тем что Delphi 32 битный я улыбаюсь

[доктор] [2008-11-30 22:31:00]    [14]
ну делфи 32 битный, т.е. числа не ограничиваются 36768 - это число уже не опирируемо (если, к примеру, число 38768 умножать на 2, то будет кривое число, даже мб отрицательное)))), короче ограничивается все числом 2 в 15 (или в 16, я забыл))), а в делфи 2 в 32 степени. кроме всего прочего в делфи добавлены какие-то свойства, новые операторы вроде как, ну и соответственно возможностей больше) хотя все равно паскаль - отец ВСЕХ языков)

хреновый программист [2008-12-23 23:35:46]    [15]
Пожайлуста помогите!!! А то мне ППЦ будет!!!Кто-нить!!!В паскале!!!


Написать диалоговую программу, реализующую сортировку подсчетом,  простым включением, простым выбором, простым обменом (пузырьковая) в линейных списках в статической памяти.



хреновый программист [2008-12-23 23:38:34]    [16]
Пожалуйста помогите!!!А то мне ППЦ!!!Кто-нить!!!Выручите!!!
14. Написать диалоговую программу, реализующую сортировку подсчетом,  простым включением, простым выбором, простым обменом (пузырьковая) в линейных списках в статической памяти.

не понимаю паскаль, не дано!! [2008-12-28 14:43:07]    [17]
Лююююдииииии....помогииитееее....нужно сортировку списка методом выбора:


составить инвенарную ведмость склада, включив следующие данные: вид продукции, стоимость, сорт, количество.

Гость [2009-01-27 17:12:18]    [18]
отец ВСЕХ языков -BASICсупер

Сашулёк [2009-04-16 18:28:38]    [19]
помогите решить прогу по спискам

SomeOne [2009-04-18 07:02:03]    [20]
дахапривет

Памазок [2009-05-28 07:49:24]    [21]
Пузырёк(по убыванию):
где f:boolean(флаг)
   A-массив(мб записей или integer или char)
   n:integer(длинна массива)
   i:integer(просто для счёта)
   ob-переменная для обмена(тип как и у массива)
repeat
f:=true;
for i:=1 to n-1 do
  if A[i]<A[i+1] then begin
        ob:=A[i];
        A[i]:=A[i+1];
        A[i+1]:=ob;
        f:=false;     end;
until f=true;


SomeOne [2009-10-14 13:51:15]    [22]
Отец всех языков - АССЕМБЛЕР!!!!!!!!

пасылатель [2010-01-08 13:50:33]    [23]
SomeOne пошел на хуй



ПОДПИСАТЬСЯ НА ТЕМУ

E-mail
7+8?



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


Ваше имя: 
     Осталось: 

 

Допускается форматирование текста:
[•B]полужирный[B•] [•I]наклонный[I•] [•U]подчеркнутый[U•] [•‹]URL картинки[›•].
Для кода программ используйте [•¤] код программы [¤•]
Количество открывающих и закрывающих тэгов форматирования текста должно быть равным, иначе форматирование не осуществится.


Adelavida Link       Рейтинг@Mail.ru