цикл while (delphi)

[mxra1n]

что значит вот это:

while b(a) do
...blabla

никакого условия для b же нет?как это понимать?

[VIK_aka_TOR]

Сообщение от mxra1n

что значит вот это:

while b(a) do
...blabla

никакого условия для b же нет?как это понимать?

вероятно b - функция... логического типа... просмотри весь код программы...

[mxra1n]

полностью

const a:integer=21; k:integer=0;
function B(t:integer):boolean;
begin
b:=t>=2;
end;
begin
while b(a) do
begin
a:=a div 4+1+a mod 3;
k:=k+1;
end;
writeln(k)
end.

[veniside]

видимо, преподаватель употреблял исключительно так:

if (b = true) or (b <> false) then
  blah-blah;

так что теперь при виде записи

if (b) then
  blah-blah;

наступает Срыв Устоев )

function B(t:integer):boolean;

что и требовалось доказать.

[mxra1n]

b:=t>=2;

что это означает?

[veniside]

это означает, что результат функции b() будет True, если значение параметра t больше единицы. В противном случае, результат функции b() будет False.

[mxra1n]

Сообщение от veniside

это означает, что результат функции b() будет True, если значение параметра t больше единицы. В противном случае, результат функции b() будет False.

а с чем вообще связан параметр t
ничего не понимаю(

[veniside]

t - это формальное имя параметра, типа имени переменной в уравнении x + y = z
вместо него при вызове функции будет передано фактическое значение (в данном случае значение переменной а)

Вот посмотрите, что получается, если печатать промежуточные значения а:

http://ideone.com/TGhFQ

цикл while крутится, пока переменная а не станет меньше 2, после чего печатается накопленный счетчик k и прога завершается.

[mxra1n]

все понятно,спасибо)