Земычу а то форч падёт!
у ювелира есть 13 прекрасных драгоценных камней и одночашечные весы со стрелкой.весы старые и капризные,работают только,если на них положить ровно два камня (один камень или больше двух камней весы почему-то взвешивать не хотят). ювелир хочет узнать суммарный вес своих камней,пользуясь только старыми весами.какое наименьшее количество взвешиваний ему потребуется?
Префиксная форма записи заключается в том, что сначала записывается операция, потом префиксная запись её первого аргумента, потом второго аргумента. Это соответствует обходу дерева сверху вниз и слева направо, записываем, что сверху, потом идем вниз. Вот что получится в итоге:
а) * + a b + c * 2 d
б) + * - * 2 a * 3 d c * 2 b
в) - * 3 a * + * 2 b c d
В постфиксной записи, наоборот, записываются сначала аргументы, потом операция. Это соответствует обходу дерева снизу-вверх.
а) a b + c 2 d * + *
б) 2 a * 3 d * - c * 2 b * +
в) 3 a * 2 b * c + d * -
Var a:array [0..2,0..2] of integer;
Position:array[0..1,0..1] of byte;
i,j,max,min:integer;
Procedure print(a:array of array of integer);
Begin
For i:integer:=low(a) to high(a) do begin
For j:integer:=low(a[i]) to high (a[i]) do
Write(a[i,j],' ');
Writeln;
End;
End;
Begin
Max:=integer.minvalue;
min:=integer.maxvalue;
for i:=low(a) to high(a) do
For j:=low(a[i]) to high(a[i]) do
A[i,j]:=random(10);
Print(a);
for i:=low(a) to high(a) do
For j:=low(a[i]) to high(a[i]) do
Begin
If (a[i,j]<min) then begin
Min:=a[i,j]; position [0,0]:=i; position [0,1]:=j;
End;
If (a[i,j]>max) then begin
Max:=a[i,j]; position [1,0]:=i; position [1,1]:=j;
End;
End;
Swap(a[position[0,0], position [0,1]],a[position [1,0]],a[position [1,1]]);
Print(a);
End.