Var
p:integer;
a,b,c:integer;
function min(a:integer;b:integer;c:integer):integer;
begin
if((a<b)AND(a<c)) then min:=a;
if((b<a)AND(b<c)) then min:=b;
if((c<a)AND(c<b)) then min:=c;
end;
writeln('Минимальный элемент p = ',p);
readln;
end.
Добрый день. Меня заинтересовал ваш ответ "Var
p:integer;
a,b,c:integer;
function min(a:integer;b:integer;c:integer):integer;
begin
if((..." на вопрос http://www.liveexpert.org/topic/view/161545-pomogite-sostavit-programmu-na-yazike-turbo-paskale. Можно с вами обсудить этот ответ?
function min(a:integer;b:integer;c:integer):integer;
begin
if(a<b) then
begin
if (a<c) then min:=a
else min:=c;
end
else
if (b<c) then min:=b
else min:=c;
end;
в три раза меньше вычислений.
Добрый день. Меня заинтересовал ваш ответ "function min(a:integer;b:integer;c:integer):integer;
begin
if(a<b) thenbeginif (a<c) then ..." на вопрос http://www.liveexpert.org/topic/view/161545-pomogite-sostavit-programmu-na-yazike-turbo-paskale. Можно с вами обсудить этот ответ?