program v pascale-DU

amater_

ahojte,po dlhsom case som sem opet zavital, z nudze

... prosim, nevie mi niekto pomoct s tymto programom v pascale?
"Vytvorte program,ktory najde vsetky prirodzene cisla mensie ako N, ktore su delitelne kazdou svojou cifrou."

Ak by sa to niekomu podarilo, tak dopredu vdaka

budem velmi rad

gwixt · Príspevok od používateľa **gwixt** » 13 mar 2008, 8:08

neskusal som ale hadam som nikde nespravil chybu

Kód: Vybrať všetko

readln(N);
for i:=1 to N do begin
 cislo:=i; 
 pom:=true;
 while (cislo>0) and (pom=true) do begin
   cifra:= cislo mod 10;
   if (cislo mod cifra) <> 0 then pom:=false;
   cislo:= cislo div 10; 
 end;
 if (pom=true) writeln(i);
end;

máš to zle, lebo:
1) ak dám číslo 10 tak do cifra ti príde 0 a nulou deliť nemožno
2) cislo:=cislo div 10 ti upravuje pôvodoné číslo, a ak dám číslo 35 tak ho overíš či je delitelné 5 ale v druhom kroku už overuješ len či je 3 delitelné 3. Upravil by som tú podmienku takto a mohlo by to ísť: if ((cifra > 0) and ((i mod cifra) <> 0)) then pom:=false;

nehádzal som to do pascalu, tak sa možno mýlim. Toto je iba môj názor

zaggi · Príspevok od používateľa **zaggi** » 13 mar 2008, 9:11

Kód: Vybrať všetko

readln(N); 
for i:=1 to N do begin 
 cislo:=i; 
 pom:=true; 
 while (cislo>0) do begin 
   cifra:= cislo mod 10;
   if (cifra = 0) begin
     pom:=false;
     break;
   end; 
   if (i mod cifra) <> 0 then begin
     pom:=false;
     break;
   end; 
   cislo:= cislo div 10; 
 end; 
 if (pom=true) writeln(i); 
end;

gwixt · Príspevok od používateľa **gwixt** » 13 mar 2008, 9:33

dik zaggi za opravu ... takto za rana mi to nemysli

(o osmej debugovat v hlave .. nic pre mna)

ale aspon princip som trafil ...