Počet stejných číslel v čísle – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Počet stejných číslel v čísle – Pascal – Fórum – Programujte.comPočet stejných číslel v čísle – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
zemlra0
Duch
27. 11. 2008   #1
-
0
-

prosím potřebuju nutně pomoct s příkladem.... vůbec si nevím rady:
mám za úkol sepsat program který zjistí kolikrát se čísla opakují v 1 čísle.
např. zadáme číslo 155 a vypíše že v čísle 155 je 1*1 a 2*5

Nahlásit jako SPAM
IP: 78.136.182.–
Reklama
Reklama
KIIV+42
God of flame
27. 11. 2008   #2
-
0
-

videl si nekdy prevody do jinejch ciselnejch soustav?
z desitkove do libovolne?
muzes zkusit z desitkove do desitkove... vyjdou ti jednotlive cislovky

Nahlásit jako SPAM
IP: 85.70.197.–
Program vždy dělá to co naprogramujete, ne to co chcete...
Ace McIntosh0
Super člen
27. 11. 2008   #3
-
0
-

Je určitě víc způsobů, jak na to. Nejjednodušší na algoritmizaci asi bude, když si vytvoříš pro každé číslo jednu proměnnou (tj 0 až 9), číslo uložíš do řetězce a ten pak po znaku projdeš a podle toho, jaké číslo se na tom místě zrovna nachází, inkrementuješ příslušnou proměnnou. Nemělo by to být těžké, takto si vystačíš i s těmi nejzákladnějšími znalostmi.

Nahlásit jako SPAM
IP: 84.42.174.–
Krychlik
~ Anonymní uživatel
195 příspěvků
27. 11. 2008   #4
-
0
-

K velmi jednoduchemu vyreseni staci umet pouzit "case....of" a cely program pak mas napsany do 5 min na 20 radku.

Nahlásit jako SPAM
IP: 212.111.4.–
Mircosoft+1
Věrný člen
27. 11. 2008   #5
-
0
-

Mně to vyšlo na 13 :-).
Nejdůležitější z těch řádků je tohle:

var pocty:array[0..9] of word;

a tohle:
while cislo<>0 do

begin
inc(pocty[cislo mod 10]);
cislo:=cislo div 10;
end;

Čili: odebírám jednotlivé číslice zprava a zvyšuju počty na příslušných pozicích v tom poli (na začátku bylo plné nul).
Převedením na řetězec by to šlo samozřejmě taky, ale bylo by to složitější (převody znaků na číslice a tak).

Nahlásit jako SPAM
IP: 86.49.83.–
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 9 hostů

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý