Results 1 to 4 of 4

Thread: dev pascal

  1. #1

    dev pascal

    beste mensen,
    ik ben nieuw op dit forum en ik heb een brandende vraag.
    ik weet niet of ik het op de goede plek neer zet, als dat zo is verwijder het dan alstublieft.

    de vraag:
    in dev pascal moet ik getallen van groot naar klein laten lopen
    hoe doe ik dit in pascal en kan dit met een array?

    bedankt

  2. #2
    mov rax,marcov; push rax marcov's Avatar
    Join Date
    Apr 2004
    Location
    Ehv, Nl
    Posts
    10,357
    Ja, zet ze in een array, en sorteer de array.

    Eventueel kan je ook een tlist gebruiken (classes unit), en van de customsort optie gebruik maken. Vereist wat meer Pascal kennis maar dan hoef je het algorithme niet te schrijven.

    Welke devpascal heb je overigens? Er is zowel een FPC als een GPC gebaseerde. Indien een FPC gebaseerde, die versie is een tikje oud.

  3. #3
    • Verplaatst van Open source naar Koffiehoek.

  4. #4
    John Kuiper
    Join Date
    Apr 2007
    Location
    Almere
    Posts
    8,747
    Als je wilt weten hoe de vork in de steel zit, zou ik een array gebruiken met b.v. een bubblesort. Dan zie je wat er gebeurt,
    Code:
    {
    Bubble Sort is very! inefficient but a good way to understand 
    more difficult sorting algorithms such as insertion sort. 
    Bubble Sort works by repeatedly scanning the array, 
    checking adjacent pairs of values to see if they 
    are in the proper order. 
    Whenever a pair of values is found to be out of order, 
    they are interchanged and done is set to false, 
    to indicate the array must be scanned again. 
    This procedure will end when the array 
    scanned and all adjacent values are in their proper sorted 
    order. } 
    procedure BubbleSort(Items: TStrings); 
    var 
      done: boolean; 
      i, n: integer; 
      Dummy: string; 
    begin 
       n := Items.Count; 
       repeat 
          done := true; 
          for i := 0 to n - 2 do 
          begin
            if Items[i] > Items[i + 1] then 
            begin 
              Dummy := Items[i]; 
              Items[i] := Items[i + 1]; 
              Items[i + 1] := Dummy; 
              done := false; 
            end;
         end; 
       until done; 
    end;
    Delphi is great. Lazarus is more powerfull

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •