FANDOM


Img006
Img007
Write the text of your article here! begin

assign ( infile, 'h:members.txt');

reset infile;
Pic 1

count:=0

while not eof(infile) do

begin

count:=count+1;

readln(infile, members[count].lname, members[count].fname ETC );

end;

close (infile)

total2bSorted := count; Pic2

BUBBLE SORT

for count := (total2bSorted-1) downto 1 do

for index := 1 to count do

if numbs[index] > numbers[index+1] then swap(procedure);


SWAP

var tempnumb : integer;

begin

tempnumber:= numbers[index+1];

numbs[index+1] := nums[index];

numbs[index] := tempnumb;

end;

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.