Matematické Fórum

myrek · 01. 11. 2010 13:13 — Editoval myrek (01. 11. 2010 13:14)

dobrý den
zadání: Určete počet cifer zadaného kladného celého čísla. Vstupní hodnotu načtěte ze standardního vstupu do proměnné celočíselného typu. Výsledek bude rovněž celé číslo, které zapište na standardní výstup. Např. pro zadané vstupní číslo 5814 se na výstupu musí objevit číslo 4.

Zkoušel jsem tohle, ale to asi není to pravé, protože potřebuji výsledek aby byl celé číslo nikoliv racionální

program pocetcifer;
var a,c:integer;b:real;
begin
read(a);
if a >=1 then
b:=(ln(a))/(ln(10))+1
else writeln('nelze');
writeln(b);
end.

děkuji za nápady.

a vzhledem k tomu že začínám v programování tak raději více vysvětlit.

septolet · 01. 11. 2010 13:30

↑ myrek:

Využil bych spíše dělení 10 (div) a zbytku po dělení 10 (mod).

hradecek · 01. 11. 2010 13:32

Možno by bolo dobré previesť to na reťazec, a zistiť dĺžku(počet znakov) reťazca...
V tvojom prípade môžeš desatinnú časť jednoducho odrezať, alebo výraz pretypovať.

myrek · 01. 11. 2010 19:14

myslis nejka pomoci lengthu?

hradecek · 01. 11. 2010 19:23

↑ myrek:
jj presne a zkonvertuješ to pomocou STR(odkiaľ-číslo, kam-reťazec) aspoň myslím...

myrek · 02. 11. 2010 11:16

Pak me jeste napada tohle

program pocetcifer;
var a,c:integer;b:real;
begin
read(a);
if a >=1 then
b:=(ln(a))/(ln(10))+1
b:=trunc b
else writeln('nelze');
writeln(b);
end.

a vypsalo by me to zrejme u cisla napr 542 > 3.000000000......
ale nevim jestli by se to dalo uznat jestli nema byt resenim spise 3

diky

Honzc · 02. 11. 2010 14:32

↑ myrek:
Nejlépe asi takto:

var c,pc: Integer;
begin
Write('Zadej cislo ');
Readln(c);
pc := 1;
while c div 10 <> 0 do
begin
c := c div 10;
pc := pc+1;
end;
WriteLn('Pocet cislic je ', pc);
ReadLn;
end;

Jan Jícha

↑ myrek:, kolega ↑ Honzc: použil cykly. Pokud jsi se cykly ještě neučil pak by to šlo i takto.

Code:

program pocetcifer;
uses wincrt;
var a,b:real;
begin
Writeln('Program vypocita pocet cifer zadaneho realneho cisla');
readln;
Write('Zadej cislo ');
readln(a);
if a >=1 then
begin
b:=(ln(a))/(ln(10))+1;
b:=trunc b;
end
else writeln('Cislo je mensi nez jedna');
writeln('Pocet cifer je ',b:2:0);
readln;
end.

myrek · 02. 11. 2010 19:59

všem kolegům díky
téma považuji za vyřešené

Matematické Fórum

#1 01. 11. 2010 13:13 — Editoval myrek (01. 11. 2010 13:14)

pascal počet cifer

#2 01. 11. 2010 13:30

Re: pascal počet cifer

#3 01. 11. 2010 13:32

Re: pascal počet cifer

#4 01. 11. 2010 19:14

Re: pascal počet cifer

#5 01. 11. 2010 19:23

Re: pascal počet cifer

#6 02. 11. 2010 11:16

Re: pascal počet cifer

#7 02. 11. 2010 14:32

Re: pascal počet cifer

#8 02. 11. 2010 15:17 — Editoval Honza Matika (02. 11. 2010 15:17)

Re: pascal počet cifer

Code:

#9 02. 11. 2010 19:59

Re: pascal počet cifer

Zápatí