Welkom op de Nederland Computer Kennisnetwerk!  
 
Zoeken computer kennis
Home Hardware Netwerken Programmering Software Computerstoring Besturingssysteem
Computer Kennis >> Programmering >> Computer Programming Languages >> Content
Hoe maak je een Binary Tree Met behulp van Pascal Implementeren
Binaire bomen kunnen de bouwstenen van efficiënt zoeken en sorteren algoritmen vormen en hierdoor hebben een brede toepassing in de informatica . Zoals Pascal heeft ondersteuning voor administratie en types pointer , kunt u elegant implementeren binaire bomen erin . Gebruik uw Pascal programma als de basis van een binaire heap prioriteit wachtrij of aan te passen aan elke vorm van vergelijkbare gegevens te steunen . Instructies
1

Open een nieuwe Pascal -bestand in uw tekstverwerker of IDE kopen van 2

Voeg volgende regel toe aan het bestand : . Programma bintree ;
< br >

Type 3 het volgende deel van de code in uw editor om de basistypen voor de binaire boom te definiëren : TypeBinTree = ^ Node ; Node = recordi : integer ; L , R : BinTree ; end ;
= nilend ;

Place 5 de volgende broncode in uw bestand naar de boom voor leegte testen : ; : functie MakeTree : beginMakeTree BinTree

Kopieer 4 de volgende in de editor om een lege boom te construeren : functie IsEmptyTree ( B : BinTree ) : Boolean ; beginIsEmptyTree : = ( B = nihil ) ; end ;
6

Neem de volgende regels in het script om een ​​kind knooppunt te bouwen met de gegeven integer waarde : functie MakeNode ( I : integer ) : BinTree ; Varres : BinTree ; beginNew ( Res ) ; Res ^ I : . = I; Res ^ L : . = MakeTree ; Res ^ R : . = MakeTree ; MakeNode : = Res ; end ;
7

Voeg deze regels aan een boom uit de gegeven basisknooppunt bevrijden : procedure DeallocateTree ( var B : BinTree ) ; beginif niet IsEmptyTree ( B ) vervolgens beginDeallocateTree ( B ^ L . ) ; DeallocateTree ( B . ^ R ) ; Gooi ( B ) ; endend ;

Plaats 8 het volgende deel van de code in uw bestand naar de opgegeven waarde in te voegen in haar besteld locatie in de binaire boom : . procedure InsertInTree ( I : integer ; var B : BinTree ) ; beginif IsEmptyTree ( B ) thenB : . . . = MakeNode ( I ) else if I < B ^ I thenInsertInTree ( I , B ^ L ) elseInsertInTree ( I , B ^ R ) end ;
9

Voeg de volgende broncode aan een boom zoeken naar een bepaalde waarde : functie FindInTree ( S : integer ; B : BinTree ) : Boolean ; beginif IsEmptyTree ( B ) thenFindInTree : = Falseelse als S < , B ^ I thenFindInTree : . = FindInTree ( S , B ^ L . ) anders als B ^ I < S thenFindInTree : = FindInTree ( S , B ^ r . ) anders beginFindInTree : . = Trueendend ;
10

Plak de volgende procedure in uw Pascal programma om de inhoud van de boom in gesorteerde volgorde zien : procedure PrintTree ( B : BinTree ) ; beginif niet IsEmptyTree ( B ) vervolgens beginPrintTree ( . B ^ L ) ; writeln ( B ^ . I ) ; PrintTree ( B ^ R ) endend ;
11

In deze laatste regels om het bestand naar het Pascal programma af : . . beginend

Previous: Next:
  Computer Programming Languages
·Hoe te ViewState Ga naar de on…
·Hoe te VMware Run in een Linux…
·Hoe de Frequentie van Noise zo…
·Hoe maak je een programma dat …
·. VBScript of C # NET : Hoe ma…
·Hoe maak je een dblink voor Or…
·Hoe SQL en PL /SQL Leer 
·Hoe te Tekens met accenten te …
·Hoe om programma's met Virtual…
  Related Articles
Hoe maak je een Combo Box Maak in Visual…
Hoe maak je een Check Box Maak in Visual…
Hoe maak je een tekstvak maken in Visual…
Hoe maak je een optie Box in Visual Basi…
Hoe maak je een schijf keuzelijst in Vis…
Hoe kan ik een keuzelijst maken in Visua…
Hoe kan ik een Picture Box Maak in Visua…
Hoe een bestand keuzelijst Maak in Visua…
Hoe kan ik een afbeelding Box Maak in Vi…
  Programmering Articles
·Hoe om tekstberichten in MFC Selecteer 
·Hoe te Rond een Integer in Perl 
·Functies In VB.NET 
·Hoe maak je unieke eigenschappen Delete …
·Hoe het opzetten van Mongrel in Ruby 
·Hoe maak je een Java Game Maak als RuneS…
·DataColumn Types 
·Hoe maak je een Label Weergave Waarde va…
·MySQL Met phpMyAdmin Tutorial 
Copyright © Computer Kennis http://www.nldit.com