Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako dobiti prvi i poslednji broj nekog integera

[es] :: Pascal / Delphi / Kylix :: Kako dobiti prvi i poslednji broj nekog integera

[ Pregleda: 1427 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Sky Walker

Član broj: 102549
Poruke: 55



+62 Profil

icon Kako dobiti prvi i poslednji broj nekog integera02.06.2011. u 16:41 - pre 156 meseci
ako je npr X := 37

kako da A dobije vrednost 3 a B vrednost 7

 
Odgovor na temu

pajaja
Beograd

Administrator
Član broj: 41598
Poruke: 3430
*.dynamic.sbb.rs.

Jabber: pajaja@elitesecurity.org
ICQ: 253317269


+144 Profil

icon Re: Kako dobiti prvi i poslednji broj nekog integera02.06.2011. u 16:51 - pre 156 meseci
B := X mod 10;
A := X div 10;
xxx
mali mali mali kamičak...nebo plave boje.
In Memoriam: Madzone Zeka(15.09.2005-16.09.2005)
 
Odgovor na temu

Sky Walker

Član broj: 102549
Poruke: 55



+62 Profil

icon Re: Kako dobiti prvi i poslednji broj nekog integera02.06.2011. u 16:55 - pre 156 meseci
Hvala puno na brzom odgovoru!
 
Odgovor na temu

Nikolavlasotince
Nikola Stojiljkovic
Vlasotince/Beograd

Član broj: 139391
Poruke: 109
*.neobee.net.



+1 Profil

icon Re: Kako dobiti prvi i poslednji broj nekog integera05.06.2011. u 14:38 - pre 156 meseci
To ce raditi samo u slucaju kada je broj N dvocifren, a koliko sam razumeo iz naslova teme broj N moze imati i vise cifara? U tom slucaju bi resenje izgledalo ovako:
Code:

B := N mod 10;
while (N div 10 > 0) do begin
  N := N div 10;
end;
A := N;
 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
195.46.55.*



+62 Profil

icon Re: Kako dobiti prvi i poslednji broj nekog integera07.06.2011. u 10:10 - pre 156 meseci
Mene nesto ta petlja gore nervira. Moze i ovako:

Code:

  A := N div trunc(Power(10, Int(log10(N))));


Istina, ovo ne radi ako je N nula (division by zero), al opet, krace je od petlje...

Pozz
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako dobiti prvi i poslednji broj nekog integera

[ Pregleda: 1427 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.