home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / pascal / t_bubsrt / bsort.pas
Encoding:
Pascal/Delphi Source File  |  1987-03-01  |  1.0 KB  |  55 lines
  1. PROGRAM BUBBLE_SORT;
  2.  
  3. CONST MAX=10;
  4.  
  5. TYPE
  6.  STR  = STRING[12];
  7.  ARRY = ARRAY [1..MAX] OF STR;
  8.  
  9. VAR
  10.  ARR :ARRY;
  11.  NAME:STR;
  12.  
  13. PROCEDURE GETNAM(VAR ARR:ARRY);
  14.  VAR X:INTEGER;
  15.  BEGIN
  16.   WRITELN ('PLEASE ENTER ',MAX,' NAMES FOR SORTING');
  17.   FOR X:=1 TO MAX DO
  18.    READLN (ARR[X]);
  19.  END;
  20.  
  21. PROCEDURE SORTNAM(VAR ARR:ARRY);
  22.  VAR TEMP:STR;
  23.      CHECK:BOOLEAN;
  24.      COUNT:INTEGER;
  25.  BEGIN
  26.   WRITELN;WRITELN;WRITE('SORTING');
  27.   REPEAT
  28.    WRITE('.');
  29.    CHECK:=FALSE;
  30.    FOR COUNT:=1 TO MAX-1 DO
  31.     IF ARR[COUNT] > ARR[COUNT+1] THEN
  32.      BEGIN
  33.       TEMP := ARR[COUNT+1];
  34.       ARR[COUNT+1] := ARR[COUNT];
  35.       ARR[COUNT] := TEMP;
  36.       CHECK:=TRUE;
  37.      END;
  38.   UNTIL CHECK = FALSE;
  39.  END;
  40.  
  41. PROCEDURE PRINT(ARR:ARRY);
  42.  VAR X:INTEGER;
  43.  BEGIN
  44.   WRITELN;WRITELN;
  45.   FOR X:=1 TO MAX DO
  46.    WRITELN(ARR[X]);
  47.  END;
  48.  
  49. BEGIN
  50.  CLRSCR;
  51.  GETNAM(ARR);
  52.  SORTNAM(ARR);
  53.  PRINT(ARR);
  54. END.
  55. ə