Страница 16 из 56
DumpList (myList,Count); dumplist(myList,count);
Read(Kbd,Ch); ch = getch();
SortList(myList,Count); sortlist(myList,count);
DumpList(myList,Count); dumplist(myList,count);
Read(Kbd,Ch) ch = getch();
end.(* of DoSort *) } /* main */
---------------------------------------------------------------
Остановимся на наиболее важных моментах:
# В Паскаль-версии, мы помещаем процедуру SwapItem внутрь про-
цедуры SortList; в Си нельзя вкладывать функции, поэтому мы
вынесли swapitem "вне" sortlist.
# В Си массивы начинаются с индекса 0 и располагаются до ];
Отметим, что в отличие от Паскаля, вы не имеете возможности
применять короткую запись, т.е. [] скобки с запятыми (см. Ошибку
#5).