Funkce - dělitelnost čísla – Pascal – Fórum – Programujte.com

Dobrý den, mám za úkol napsat funkci která má zjistit jestli dané číslo N je dělitelné všemi jeho ciframi.

Paté za pomoci této funkce zjistit která čísla v intervalu od čísla A do čísla B(čísla jsou zadaná na vstupu) jsou právě takové, že jdou vydělit všemi svými ciframi.

program delitelnostcisla;
var  A, B: integer;

function Spravne (N: integer): boolean;
var cislo, cifra,delit: integer;
begin
cislo := N;
while cislo > 0 do
      begin cifra := cislo mod 10;
            cislo := cislo div 10;
            delit := cislo div cifra;
if delit*cifra=cislo then spravne:=true
                     else spravne:=false;
end;

begin



end.

S funkcemi jsem setkal poprvé, takže tady je něco co jsem zkusil ale nevím zda to bude fungovat přesně tak jak má. Potřeboval bych poradit, jak dále pokračovat. 

Jo a ještě mi furt kompilátor cpe že na konci programu mám mít za end středník a nikoliv tečku, to dělá proč? :D

Děkuji za jakýkoliv nápad a pomoc.

Už teď vidím že vlastně jakékoliv číslo by bylo správné protože by se to vždycky rovnalo. Úplně jsem se do toho zamotal a nic mě nenapadá.

si muzes vypocitat kolik mas beginu a endu... pak ti bude hned jasne, proc ti to cpe ;

+ na zjisteni delitelnosti by se hodilo spis modulo (alias operator mod) - coz je zbytek po celociselnem deleni....

#3 KIIV 

function Spravne (N: integer): boolean;
var cislo, cifra,delit: integer;
begin
cislo := N;
while cislo > 0 do
      begin cifra := cislo mod 10;
            cislo := cislo div 10;
            delit := cislo mod cifra;
            end;
if delit*cifra=cislo then spravne:=true
                     else spravne:=false;
end;

Takze nejak takhle? a jak pokracovat dal?

no mod se hodi, abys to pak nemusel takhle slozite zase nasobit ... ta podminka musi byt nutne uvnitr while... a "delit" promennou vubec nebudes potrebovat... zbytek po deleni je nenulovy, pokud nejde delit bezezbytku celocislne...

#5 KIIV
Takže smazat proměnnou dělit a pak

if cislo mod cifra = (nevim co dat sem) then ...

                                                            else...

coz je zbytek po celociselnem deleni....

jakej je asi zbytek, kdyz jde cislo vydelit bezezbytku?

#7 KIIV
jooo, už chápu ten příkaz modulo, nejdřív jsem ho nějak nepochopil. 

a ted uz jen doresit, aby se ta navratova hodnota pred cyklem nastavila na true a v cyklu se uz mohla zmenit jen na false, kdyz to nebude nejakou z cifer delitelne

(to co vratis ted je, jestli je delitelne cislo cifrou s nejvyssi vahou)

#9 KIIV
takže před cyklus while nastavit

spravne:= true?

Nebo ted nejak nechapu..

jo a v cyklu to prepises na false jen v pripade, ze si nasel cifru, ktera neni delitelem bezezbytku...

+ co budes delat s 0?

+ taky si to "cislo" menis pod rukama  mozna by bylo lepsi ziskavat zbytek po deleni z N a ne z cislo

program delitelnostcisla;
var  A, B, i: integer;

function Spravne (N: integer): boolean;
var cislo, cifra: integer;
begin
cislo := N;
spravne :=true;
while cislo > 0 do
      begin cifra := cislo mod 10;
            cislo := cislo div 10;

if cifra=0 then spravne:=false
else if N mod cifra <>0  then spravne:=false;

end;
end;

begin
 writeln ('Zadej dve cisla v jehoz rozmezi se dozvis spravna cisla:');
 readln (a);
 readln (b);
 for I:= a to b do
                if spravne(i) then
                write(i);


end.

Ted jsem na tom nejak takhle..

Myslim, ze to je dokonce i konecne reseni. 

Akorát ještě dořešit možná to, když člověk zadá to první číslo větší než to druhý. To by potom neudělalo vůbec nic.