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

Stránky: 1

 

#1 31. 03. 2015 09:44 — Editoval EXEZZ (31. 03. 2015 09:51)

EXEZZ
Zelenáč
Příspěvky: 9
Reputace:   0 
 

Algoritmus

Zdravím, potřeboval bych pomoc s jedním algoritmem.

Kolikrát je zastoupena konstanta X v přirozeném čísle? (chápu to tak, že třeba číslo 1114 - má 3x č. 1)..Děláme v programu Delphi. Potřebuju pomoc i s vývojovým diagramem.

Děkuji

Offline

 

#2 01. 04. 2015 14:47

Eratosthenes
Příspěvky: 3111
Reputace:   140 
 

Re: Algoritmus

ahoj ↑ EXEZZ:,

část kódu v Pascalu, deklarace a vývoják snad už zvládneš:

Cifra:='1';
PocetCifer:=0;
for i:=1 to Length(ZapisCisla) do
   if ZapisCisla[i]=Cifra then PocetCifer:=PocetCifer+1;

Budoucnost patří aluminiu.

Offline

 

 

Stránky: 1

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson