Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 13.03.2010, 19:57   #1 (permalink)
Celeritas
Новичок
 
Регистрация: 13.03.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Question Сортировка списка на статической памяти.

Господа, очень-очень прошу помочь разобраться с программой:

Создать на статической памяти список строк (словарь). Реализовать функцию, сортирующую словарь по первой букве.


Есть несколько заготовок по инициализации, добавлению и выводу элементов, но, по ходу дела,это все едва ли правильно написано. Как сделать здесь сортировку и составить это счастье в единую программу у меня мозга уже не хватает(
Помогите, пожалуйста.

PHP код:
program alpha;
uses
  crt
;
const 
N=10null=(-1);
      
type
      PElem 
integer;
      
TElem record;
      
dataString;
      
nextPElem;
      
end;
          
Tlist record;
          
buffer:array[1..Nof TElem;
          
headPElem;
          
free:PElem;
          
end;
var
string;
 
Procedure inst (var list: Tlist); {инициализация списка}
var 
i:integer;
begin
     
list.head:= null;
     list.
free:=1;
     for 
i:=1 to N-do
         list.
buffer[i].next:=i+1;
         list.
buffer[N].next :=Null;
end;
 
Procedure insert (var List : TList; const dataString);
var 
objTElem;
pointerPElem;
i:string;
begin
         pointer
:=list.free;
         
writeln('Vvedite dannye');
         
readln(i);
         
i:=data;
         list.
buffer[pointer].data:=data;
         list.
free:=list.buffer[list.free].next;
         list.
head:=pointer;
end;
 
Procedure Print(var pointer:PElem; list: Tlist);
var
i:integer;
begin
pointer
:=list.head;
i:=1;
 
repeat
  Writeln
(i, list.buffer[pointer].data,' ');
  
pointer:=list.buffer[pointer].next;
 
i:=i+1;
 
until pointer=null;
 
end
Буду очень признательна)
Celeritas вне форума   Ответить с цитированием

Старый 13.03.2010, 19:57
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я думаю, что можно попробовать поискать решение этой проблемы в схожих темах

Сортировка по алфавиту
Сортировка по алфавиту(помогите)
Сортировка в Паскале
Сортировка в Pascal
Сортировка одномерного массива

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 01:19.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.