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

• #2297 cucka addikt uffff #2294

  Új Válasz 2008-12-08 12:25:53 #2297

  Ú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

  

  cucka

  addikt

  válasz uffff #2294 üzenetére

  A ciklusod 0-tól n-ig megy, a ciklusmagban pedig 2*i+1-es értékekkel dolgozol. Gyorsabb és kulturáltabb megoldás, mint a ciklusmagban növelni a ciklusváltozót..

  for i := 0 to n do
  begin
  write(2*i+1);
  end;

• #2296 Lortech addikt uffff #2294

  Új Válasz 2008-12-06 14:19:27 #2296

  Ú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

  

  Lortech

  addikt

  válasz uffff #2294 üzenetére

  Explicit inkrementálod a for ciklusváltozóját, így minden második iteráció kimarad.
  szerk: laaaasssssúúúú.

• #2295 Benmartin senior tag uffff #2294

  Új Válasz 2008-12-06 14:17:58 #2295

  Ú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

  

  Benmartin

  senior tag

  válasz uffff #2294 üzenetére

  uses Crt;
  var i, n: integer;
  begin
  ClrScr;
  ReadLn(n);
  for i := 1 to n do
  begin
  write(i);
  i := i + 1;
  end;
  ReadLn
  end.

  nem vagyok pascalos lehet van szebb megoldás is.

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