Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
#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