Система задач и упражнений по языку программирования Pascal. Часть 2 - 32 стр.

UptoLike

Составители:

Рубрика:

else

if A[i]>x.^f then search1 (A[i], x.^right);

i:=i+1 end end.

(6) вычисление среднего арифметического

function sr (x: p): real;

var n: integer; S: real;

begin if x=nil then sr:=0 else

S:=0; n:=1;

while x<>nil do begin

S:=S*(n-1)/n+x.^f/n; n:=n+1;

sr (x.^left); sr (x.^right) end end.

(7) нахождение наибольшего элемента

procedure max (x: p; var M: integer);

begin if x=nil then write (“наибольшего нет”) else

M:=x.^f; while x<>nil do max (x.^left, M);

if x.^f>M then M:=x.^f; max (x.^right, M) end end.