Új hozzászólás Aktív témák

• #2363 Marked tag Gyuri16 #2362

  Új Válasz 2010-04-20 17:07:01 #2363

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Marked

  tag

  válasz Gyuri16 #2362 üzenetére

  Kössz. Sokat segítettél, sikerült megcsinálnom, viszont a program, amit leírtál, nemigen működött. Ha az első elemet kérem le, kiadja, hogy 200, ha a másikat, akkor 300. Minden más elem az előző két elem négyzetösszegének a gyöke. Teszteltem, működik. Íme a programkód lényeges része:

  FUNCTION Sorozat(X: Longint): Real;
  Begin
  If X>2 then Sorozat:= SQRT(( sorozat(X-1) * sorozat(X-1) ) + ( sorozat(X-2) * sorozat(X-2) ))
  else begin
  if X=2 then Sorozat:=300
  else Sorozat:=200
  end;
  End;

  BEGIN
  ClrScr;
  WriteLn(Sorozat(3));
  ReadKey;
  END.

Új hozzászólás Aktív témák