Листинг 5.6

var

n,i:Integer;

S:Extended;

begin

n:=StrToInt(Edit1.Text);

S:=0;

for i:=n downto 1 do S:=Sqrt(2+S);

Edit2.Text:=FloatToStr(S);

end;

Пример 5.7. Вычислить значение функции:

Приложение во время выполнения

Листинг 5.7

var

x:Integer;

f:Extended;

i,k:Integer;

begin

x:=StrToInt(Edit1.Text);

f:=(x*x)+256/(x*x);

k:=256 div 2;

for i:=k downto 2 do

begin

f:=Sqr(x)+1/f;

k:=k div 2;

end;

f:=x/f;

Edit2.Text:=FloatToStr(f);

end;

Пример 5.8. Вычислить функции и , используя следующие алгоритмы:

Приложение во время выполнения

Листинг 5.8

var

x:Real;

Sum,delta:Extended;

i:Integer;

begin

x:=StrToFloat(Edit1.Text);

Sum:=1;

delta:=1;

i:=1;

repeat

delta:=delta*(x/i);

Sum:=Sum+delta;

i:=i+1;

until (Sum+delta)<=Sum;

Edit2.Text:=FloatToStr(Sum);

Edit3.Text:=FloatToStr(1/Sum);

end;

Оператор безусловного перехода

Формат записи инструкции Goto:

Дата добавления: 2015-07-10