Aktív témák

• #26 KovacsUr addikt Szalma #25

  2003-04-18 19:20:09 #26

  Ö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

  

  KovacsUr

  addikt

  válasz Szalma #25 üzenetére

  Te is ismered az Oberont? Végre valaki :)

• #24 KovacsUr addikt Szalma #23

  2003-04-18 19:07:58 #24

  Ö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

  

  KovacsUr

  addikt

  válasz Szalma #23 üzenetére

  De nem, ő sem! ... Vagy én is. :) Én látom benne a logikát :DDD

• #22 KovacsUr addikt KovacsUr #20

  2003-04-18 19:05:41 #22

  Ö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

  

  KovacsUr

  addikt

  válasz KovacsUr #20 üzenetére

  Sőt, megnéztem: az eredeti Pascal szabvány szerint kifejezetten helytelen az utolsó utasítás után kitenni a pontosvesszőt. Mik nem vannak :))

• #20 KovacsUr addikt Parci #19

  2003-04-18 18:58:43 #20

  Ö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

  

  KovacsUr

  addikt

  válasz Parci #19 üzenetére

  Nem: a logika az, hogy az utasításokat pontosvessző választja el. Mivel az end előtt már nincs több utasítás, az utolsó ; felesleges. :))
  

• #17 KovacsUr addikt Panther #15

  2003-04-18 18:02:28 #17

  Ö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

  

  KovacsUr

  addikt

  válasz Panther #15 üzenetére

  Mert utolsó utasítás a blokkban, nem kell neki. Ami meg nem kell, azt minek erőltessük :DDD

• #8 KovacsUr addikt ftc #7

  2003-04-18 17:32:40 #8

  Ö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

  

  KovacsUr

  addikt

  válasz ftc #7 üzenetére

  increment, azaz növelés.
  mintha azt írnád, hogy
    pozitiv := pozitiv+1
  a párja a dec, ami ugyanígy csökkent.
  Adhatsz nekik még egy paramétert, pld.
    inc(valami, 3) hárommal növeli meg valami értékét.
  Ha nem haragszol meg, egy Pascal-könyv nem ártana :P

• #6 KovacsUr addikt ftc #5

  2003-04-18 17:25:38 #6

  Ö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

  

  KovacsUr

  addikt

  válasz ftc #5 üzenetére

  Most ki is javítgattam, elvileg lefordítható :)

• #4 KovacsUr addikt KovacsUr #2

  2003-04-18 17:22:07 #4

  Ö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

  

  KovacsUr

  addikt

  válasz KovacsUr #2 üzenetére

  pld.
  
  const
    MAX_SZAM = 5;
  
  var
    i: integer;
    szam: array[1..MAX_SZAM] of integer;
    pozitiv, negativ: integer;
  
  begin
  
    pozitiv := 0;
    negativ := 0;
  
    for i := 1 to MAX_SZAM do begin
      write(i,'. szam: ');
      readln(szam[i])
    end;
  
    for i:= 1 to MAX_SZAM do begin
      if szam[i] > 0 then inc(pozitiv)
      else if szam[i] < 0 then inc(negativ);
    end;
  
    writeln('Pozitiv: ', pozitiv, ' Negativ: ', negativ, 'Nulla: ', MAX_SZAM-(pozitiv+negativ));
  end.

• #2 KovacsUr addikt ftc #1

  2003-04-18 17:17:31 #2

  Ö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

  

  KovacsUr

  addikt

  válasz ftc #1 üzenetére

  Aha. Úgy gondolja, első ciklusban beolvasod a számokat, a másodikban megszámolod, miből mennyi.

Aktív témák