Jednostavno pitanje u tp????

[es] :: Pascal / Delphi / Kylix :: Jednostavno pitanje u tp????	[ Pregleda: 1440 \| Odgovora: 3 ]	Postavi temu Odgovori

Autor

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

^{26.06.2005. u 19:06}

Kako napisat (sto jednostavnije) kod koji ce za unijet broj reci od koliko se taj broj (integer) sastoji znamenaka?
Znaci:

broj:309
znamenke:3

^{26.06.2005. u 19:06}

Danica Porobic
Novi Sad

Član broj: 13847
Poruke: 28
212.200.5.*

Profil

^{26.06.2005. u 19:22}

var
n,cif:integer;
begin
readln(n);
cif:=0;
while n>0 do
begin
n:=n div 10;
cif:=cif+1
end;
writeln(cif)
end.

^{26.06.2005. u 19:22}

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

Profil

^{26.06.2005. u 19:30}

He he jos se mucis sa onim programom...

Code:

var s: string;
  broj, znakova: integer;
begin
   str(broj, S);
   znakova := length(s);
end.

^{26.06.2005. u 19:30}

stameni

Član broj: 6739
Poruke: 201
*.bg.wifi.vline.verat.net.

Profil

^{27.06.2005. u 12:38}

Dužina *prirodnog* broja n može se naći iz formule:

len(n) = trunc(log10(n)) + 1

log10 može se izračunati preko prirodnog logaritma.

^{27.06.2005. u 12:38}

[ Pregleda: 1440 | Odgovora: 3 ]

Srodne teme

Navigacija

Brisanje liste

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