File SORTAU.PS

Directory of image this file is from
This file as a plain text file

PROGRAM AUFSTEIGEND(INPUT,OUTPUT);
CONST N=100;
TYPE STRING = ARRAY[1..N] OF INTEGER;
VAR FELD:STRING;
    ANZ:INTEGER;
PROCEDURE EINLESEN( VAR FELD:STRING);
VAR I:INTEGER;
BEGIN
READLN;
FOR I:=1 TO ANZ
DO READ(FELD[I])
END;
PROCEDURE SORTIEREN( VAR FELD:STRING);
VAR K,L:INTEGER;
 PROCEDURE VERTAUSCHEN(VAR I,J:INTEGER);
 VAR HILF:INTEGER;
 BEGIN
HILF:=I; I:=J; J:=HILF
END;
BEGIN
FOR L:= ANZ DOWNTO 2 DO
BEGIN 
K:=0;
REPEAT
 K:=K+1;
 IF(FELD[K]>FELD[K+1])
 THEN VERTAUSCHE(FELD[K],FELD[K+1])
UNTIL K=L-1
END END;

PROCEDURE AUSGEBEN(FELD:STRING);
VAR I:INTEGER;
BEGIN
FOR I:=1 TO ANZ DO
WRITE (FELD[I])
END;

BEGIN(*HAUPTPROGRAMM*)
WRITELN("WIEVIELE ZAHLEN SOLLEN SORTIERT WERDEN?");
READLN; READ(ANZ);
WRITELN("WIE HEISSEN DIE ZAHLEN?");
EINLESEN(FELD);
SORTIEREN(FELD);
AUSGEBEN(FELD)
END.



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search