#1 23. 03. 2010 15:52
algoritmy delphi 7
Zdravím, potřeboval bych poradit s ulohou algoritmu se zněním: Program načte přirozené číslo N a určí, kolik nul obsahuje.
potřeboval bych k tomu vicemene všechno, sem v tom naprosty laik. nejlepe v delphi
Diky
Offline
- (téma jako vyřešené označil(a) byk7)
#2 23. 03. 2010 18:54
- RePRO
- Místo: Jihlava
- Příspěvky: 363
- Škola: AI VŠPJ (09-12, Bc.)
- Pozice: programátor
- Reputace: 11
- Web
Re: algoritmy delphi 7
Zkus to třeba postupným dělením 10 a přitom zjišťuj zbytek po dělení 10. Když bude zbytek po dělení 0, tak tam byla nula, když ne, tak tam bylo jiný číslo...
Srdcem trochu-programátor, duší rádoby-matematik a povoláním analytik-vývojář.
Offline
#3 23. 03. 2010 19:35
Re: algoritmy delphi 7
Skús tak ako vraví kolega ↑ RePRO: + nejaký cyklus a počítadlo...
Netrápte sa nad svojimi problémami s matematikou, môžem vás uistiť, že tie moje sú ešte väčšie. ~~Albert Einstein~~
Jak spozná člověk, že není pitomec ? - Moudrý člověk to nepozná nikdy a blbci je to jedno. ~~Jak přicházejí básnici o iluze~~
Někteří lidi se nikdy nezmění. Anebo se rychle změní a pak se zase rychle změní nazpátek. ~~Homer Simpson~~
Offline
#4 16. 04. 2010 13:55
Re: algoritmy delphi 7
To má jednoduché, stačí to číslo projít jen nějakým cyklem. Celý funkční program je zde:
program Pocet_nul;
{$APPTYPE CONSOLE}
uses
SysUtils;
var pom,zbytek,N,pocet_nul: integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('Zadej cislo N: ');
readln(N);
pom := N;
pocet_nul := 0;
zbytek := 0;
while pom > 0 do
begin
zbytek := (pom mod 10);
if (zbytek = 0) then
begin
pocet_nul := pocet_nul+1;
end;
pom := (pom div 10);
end;
writeln('Pocet nul v cisle ',N,' je: ',pocet_nul);
readln;
end.
Offline