7
Largest Two Elements
max<<A
finds the largest … find the largest two
•
type bestn =
array[1..2] of double;
procedure max2(var big2 : bestn);
var i : integer;
begin for i := 1 to 2 do
big2[i] :=
MINDOUBLE;
end;
end;
procedure max2(nextval : double; var big2 : bestn);
var i : integer, temp :
double;
begin for i := 1 to 2 do
if nextval >
big2[i]then
temp
:= big2[i];
big2[i] := nextval;
nextval := temp;
end;
end;
end;
procedure max2(var big2l, big2r : bestn);
var i : integer, temp :
double;
begin for i := 1 to 2 do
max2(big2l[i],big2r);
end;
end;
Initialization
Local Combining
Global Combining
… max2<< A ...