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
#2 06. 02. 2011 19:42
Re: Delphi
Delfína neumím, ale v C/C++ bych vám to napsal.
Předpokládám, že myslíte dělitelů beze zbytku ale i těch je nekonečně mnoho takže to chce nějaký ten strop.
Zadané číslo, se bude v cyklu dělit číslem, které se postupně bude zvyšovat a při každém dělení zároveň kontrolovat zda vyšel, či nevyšel zbytek.
Offline
#3 07. 02. 2011 07:00
Re: Delphi
↑ Joker478:
Zkus to třeba takto:
function VypisDelitelu(n: Integer): String;
var i: Integer;
begin
Result := ' 1'; //vypiseme jako delitele i cislo 1
i := 2;
while i<n div 2+1 do
begin
if n mod i = 0 then
Result := Result+','+IntToStr(i);
i := i+1;
end;
Result := Result+','+IntToStr(n); //vypiseme jako delitele i cislo n
end;
Offline