Ú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.

• #2361 Marked tag

  Új Válasz 2010-04-19 20:56:41 #2361

  Ú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

  Én még új vagyok a "szakmában", most tanuljuk suliban a pascalt. Egyenlőre csak egy valamit nem értek, mégpedig a rekurzív programokat. Pl. a feladat a következő: egy sorozat, melynek első tagja 200, második 300, fixen. Minden más tag az előző két tag négyzetösszege. Hálás lennék, ha valaki el tudná magyarázni köznyelven és/vagy leírni pascalban is.
  Ennyit tudok: bármely tagot is akarjuk kiszámítani, mindig vissza kell vezetnie az első 2re, ami megvan adva. Nem tömb, mert végtelen elemű sorozat. A főprogramban kell meghívi, pl:

  FUNCTION Sorozat(X: Integer):Integer;
  IF ????????????????

  BEGIN
  Sorozat(5); <- a sorozat 5-ödik elemét szeretném megtudni
  END.

  Előre is kössz.

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