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

• #2418 heihachi addikt Ultimate #2410

  Új Válasz 2011-02-12 10:48:01 #2418

  Ú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

  

  heihachi

  addikt

  válasz Ultimate #2410 üzenetére

  program otvenparos;
  uses crt;
  var
  i : integer;
  o : integer;
  begin
  clrscr;
  o := 0;
  for i := 1 to 50 do o:= o+2*i;
  writeln('Az elso otven paros szam osszege: ', o);
  end.

• #2414 Gyuri16 senior tag Ultimate #2412

  Új Válasz 2011-02-12 10:15:05 #2414

  Ú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

  

  Gyuri16

  senior tag

  válasz Ultimate #2412 üzenetére

  ha gondolod bemasolhatod a veglegest es megnezem, mert RedSign megoldasa nem tul jo.. (egyreszt le se fordulna, ha lefordulna vegtelen ciklus lenne. azon kivul nem az elso otven szamot nezi, hanem csak otvenig a parosakat)

  en inkabb ilyen ciklust hasznalnek:

  for i:=1 to 50 do
  begin
  szam:=2*i;
  // itt szamolod az osszeget
  end;

  igy nem kell szurni a feleslegeseket, raadasul egyertelmubb, hogy pont 50 szamot general. mas megoldas egy while ciklus, ahol a ciklusvaltozot mindig kettovel noveled, igy is megsporolod az ifet.

  masik dolog, hogy illik inicializalni a valtozoidat, konkretan az osszeg valtozoban nem tudod mi van az elejen, jo lenne nullazni az elejen

• #2413 RedSign tag Ultimate #2412

  Új Válasz 2011-02-12 08:31:46 #2413

  Ú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

  

  RedSign

  tag

  válasz Ultimate #2412 üzenetére

  Nincs mit, szuper... ;-)

• #2411 RedSign tag Ultimate #2410

  Új Válasz 2011-02-12 07:09:01 #2411

  Ú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

  

  RedSign

  tag

  válasz Ultimate #2410 üzenetére

  Régen volt már a TP, de szerintem valami hasonló (tesztelve nincsen, ha hibás valaki javítsa, köszönöm!):

  program paros;
  uses crt;
  var i,j,osszeg: integer;
  begin
  clrscr;
  writeln('Az első 50 páros szám:');
  i=1;
  j=1;
  while i<50 do
  begin
  if j mos 2=0 then osszeg:=osszeg+j;
  j:=j+1;
  end;
  gotoxy(1,7);
  writeln('Összegük:');
  writeln(osszeg);
  readln;
  end;
  end.

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