Программирование на языке Pascal

       

Реализация


Мы приведем реализацию первого шага алгоритма, сортирующего числа (для элементов другой природы потребуется изменить только процесс считывания):

new(root); read(f,root^.chislo); root^.kol:= 1; root^.left:= nil; root^.right:= nil; while not eof(f) do begin read(f,x); p:= root; while true do begin if x = p^.chislo then begin inc(p^.kol); break end;

if x > p^.chislo then if p^.right <> nil then p:= p^.right else begin new(p^.right); p:= p^.right; p^.chislo:= x; p^.kol:= 1; p^.left:= nil; p^.right:= nil; break end

(* x < p^.chislo *) else if p^.left <> nil then p:= p^.left else begin new(p^.left); p:= p^.left; p^.chislo:= x; p^.kol:= 1; p^.left:= nil; p^.right:= nil; break end end; end;

on_load_lecture()

Дальше »

  Если Вы заметили ошибку - сообщите нам.  


Страницы:

« |

1

|

2

|

3

|

4

|

5

|

6

|

вопросы | »

|

учебники

|

для печати и PDA

Курсы | Учебные программы | Учебники | Новости | Форум | Помощь



Телефон: +7 (495) 253-9312, 253-9313, факс: +7 (495) 253-9310, email: info@intuit.ru

© 2003-2007, INTUIT.ru::Интернет-Университет Информационных Технологий - дистанционное образование



Содержание раздела