Delphi Вычисление цепных дробей

[toperx]

Доброго Всем времени суток.

Необходимо написать программу на Дельфи для вычисления двух цепных дробей

• 1/(1+1/(3+1/(5+1/(.... 101+1/103
  
• x/((x^2)+2/((x^2)+4/((x^2)+8/(..... (x^2)+256/(x^2)

Так как я только учусь, для меня это сложно, прошу помощи, хотябы направьте с чего начать

[IT-man]

хотябы направьте с чего начать

любая книжка по паскалю(делфи) тема "Циклы"

[toperx]

Сообщение от IT-man

любая книжка по паскалю(делфи) тема "Циклы"

А что не просто ""RTFM" ?

[Mad_Cat]

I)

k:=101;
s:=103;
while (k>=1) do begin
s:=k+1/s;
dec(k,2);
end; 
s:=1/s;

II)

s:=x*x;
k:=2;
while k<=256 do
begin
s:=s+k/(x*x);
inc(k,2);
end;
s:=x/s;

[toperx]

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

I)

k:=101;
s:=103;
while (k>=1) do begin
s:=k+1/s;
dec(k,2);
end; 
s:=1/s;

II)

s:=x*x;
k:=2;
while k<=256 do
begin
s:=s+k/(x*x);
inc(k,2);
end;
s:=x/s;

procedure TForm1.CalcClick(Sender: TObject);

var
  k,s :Extended;
begin
 k:=101;
 s:=103;
  while (s>=1) do
  begin
    s:=k+1/s;
    dec(k,2); 
  end;
s:=1/s;

  Result.Text:=FloatToStr(s);
end;

dec(k,2); - [Error] Drobi.pas(38): Left side cannot be assigned to
[Fatal Error] Drobi_prj.dpr(5): Could not compile used unit 'Drobi.pas'

[Mad_Cat]

может все таки RTFM ?
k должно быть Integer;

[toperx]

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

может все таки RTFM ?
k должно быть Integer;

извините

я читаю, 30 метров книг по дельфи, главное то всё равно практика, а её нету совершенно

[Mad_Cat]

можно и 600 прочитать( если не доходит что есть F1 и половина вопросов отпадает