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

• #2649 vz12 tag kemkriszt98 #2647

  Új Válasz 2013-11-13 21:48:40 #2649

  Ú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

  

  vz12

  tag

  válasz kemkriszt98 #2647 üzenetére

  Az eredeti feltétel így szólt:
  > ha van két szám pl egy és kettő

  Kissé pongyola (hiányos) a feltétel amit közöltél, de próbáltam irányt mutatni.
  Csak pozitív egyjegyű egész számod lehet?
  Mi van, ha negatív számod is van?
  Mi van, ha többjegyű számod is van?
  Mi van, ha NEM egész számod van?
  A komplex számokat hagyjuk is ...

  Mert akkor értelmetlen a feladat.

  Módszer javaslat (az előző módszer kiterjesztése), feltételezve hogy minden számod pozitív egyjegyű egész szám: (bocsi, a "sallangokat" elhagytam)

  eredmeny:=0;
  repeat
  readln(x);
  if (x>=1) and (x<=9) then eredmeny:=eredmeny*10 + x;
  until (x<1) or (x>9);
  if eredmeny>0 then writeln(eredmeny);

  Az eredmeny legyen longint típusú, de annak is van felső határa ...

• #2648 bucsupeti senior tag kemkriszt98 #2647

  Új Válasz 2013-11-12 19:09:44 #2648

  Ú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

  

  bucsupeti

  senior tag

  válasz kemkriszt98 #2647 üzenetére

  A számokat összerakod egy sztringbe aztán végigiterálsz rajta és a megfelelő 10 hatványával megszorzod a számot. Nyilván a dolog a real értékhatárok között tud működni.

  Pl:
  szam='54321'
  length(szam) -> 5 tehát a 5-1 =4 azaz 10^4lesz a legmagasabb helyi értéked.
  végigjárod a sztringet és szorzod az aktuális karakter számértékét 10^valahányadikonnal amit összegzel egy változóban.
  Miután végigjártad az összegzett érték a szám értéke lesz.

• #2646 vz12 tag kemkriszt98 #2645

  Új Válasz 2013-11-12 12:42:40 #2646

  Ú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

  

  vz12

  tag

  válasz kemkriszt98 #2645 üzenetére

  Pl.: A*10 + B

• #2643 vz12 tag kemkriszt98 #2640

  Új Válasz 2013-11-02 23:14:18 #2643

  Ú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

  

  vz12

  tag

  válasz kemkriszt98 #2640 üzenetére

  Ha a begin ... end blokkban csupán 1 db utasítás van, akkor a pontosvessző elhagyható (de ki is lehet tenni), ez a helyzet a "másik if"-nél. Ha 2 vagy több utasítás van a blokkban, akkor azokat pontosvesszővel kell elválasztani, esetleg az utolsó utasítás után (az "end" előtt) szintén elhagyható.

  Nálad ez most nincs, de megemlítem, hogy "else"-ek előtt tilos a pontosvessző, mert ugye azzal vége is lenne az "if"-nek, és az "else"-et új utasításnak tekintené, de olyan nincs.

• #2641 Mr. Erikszon senior tag kemkriszt98 #2640

  Új Válasz 2013-11-02 21:12:09 #2641

  Ú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

  

  Mr. Erikszon

  senior tag

  válasz kemkriszt98 #2640 üzenetére

  Kell egy ilyesmi
  randomize;
  b:=random(10)+1;

• #2639 bucsupeti senior tag kemkriszt98 #2637

  Új Válasz 2013-11-02 20:37:35 #2639

  Ú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

  

  bucsupeti

  senior tag

  válasz kemkriszt98 #2637 üzenetére

  azért mert a c:=true végéről.hiányzik a ;

• #2638 Mr. Erikszon senior tag kemkriszt98 #2637

  Új Válasz 2013-11-02 19:06:55 #2638

  Ú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

  

  Mr. Erikszon

  senior tag

  válasz kemkriszt98 #2637 üzenetére

  Hú én is ennél a feladatnál akadtam el.

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