Pascal

Sveiki visiems.Reikalinga pagalba su Pascal. Užduotis: Duotas intervalas [a;b]. Šiame intervale reikia rasti skaičius, kurie dalijasi į visus savo skaičius. Reikia padaryti su funkcija. Iš anksto ačiū už pagalbą. Tikiuosiu, kad jūs suprantate užduotį.

dalijasi į visus savo skaičius

Kaip suprasti šią dalį?

Kaip suprasti šią dalį?

tai reiškia, kad reikia parodyti skaicius kurie dalijasi į visus savo skaitmenius.

Kodas nėra gražus, bet rašiau paskubomis. Kad veiktų.:)

program Noname1;



var m, n : integer;

function is_divisible(a : integer) : boolean;
   var temp, n : integer;
       b : boolean;
   begin
     temp := a;
     b := True;
     while a > 9 do begin
       n := a mod 10;
       if (n <> 0) and (temp mod n <> 0) then begin is_divisible := False; b := False;  end;
       a := a div 10;
     end;
     if b then begin
       if (temp mod a <> 0) then is_divisible := False else is_divisible := True;
     end;
   end;

begin
 write('m='); readln(m);
 write('n='); readln(n);
 while m <= n do begin
   if is_divisible(m) then writeln(m);
   m += 1;
 end;
end.

aemdy, o įmanoma šią programą padaryti truputi paprasčiau?

aemdy, o įmanoma šią programą padaryti truputi paprasčiau?

Ką tu vadini paprastesne programa? Pagrindinėje programoje gaunamos m ir n reikšmės iš vartotojo, paskui vykdomas ciklas nuo m iki n. Tada m paduodamas į funkciją is_divisible, kuri išveda True, jei m dalijasi iš visų savo skaitmenų be liekanos, arba False, jeigu nesidalina. Jeigu dalinasi, tada skaičius išspausdinamas.

Kaip veikia funkcija? Skaičius su mod skaidomas skaitmenimis ir tikrinama ar dalinasi be liekanos. Viskas.:)

Sveiki,

gal šiek tiek offtopic, bet turiu klausimėlį:

6 mod 4 div 2;

Šiais atvejais kaip yra skaičiuojama? iš kairės į dešinę?:)

Ačiū jums, šią temą galite trinti

Sveiki,

 

gal šiek tiek offtopic, bet turiu klausimėlį:

 

6 mod 4 div 2;

 

Šiais atvejais kaip yra skaičiuojama? iš kairės į dešinę?:)

6 mod 4 div 2

2 div 2

1

Iš operand – konstant ir kintamj – sudaromi aritmetiniai reiškiniai. Operacij atlikimo
tvarka nurodoma skliaustais. Kai nra skliaust, operacijos atliekamos pagal prioritetus:
- (unarin atimtis)
* / div mod
+ -

Tai reiškias nelabai teisingai...

Turėtų tada pirma 4 div 2 = 2

6 mod 2 = 3

ats 3

Ar vis dėl to aš klystu ir knygoje klysta?:)

Iš operand – konstant ir kintamj – sudaromi aritmetiniai reiškiniai. Operacij atlikimo
tvarka nurodoma skliaustais. Kai nra skliaust, operacijos atliekamos pagal prioritetus:
- (unarin atimtis)
* / div mod
+ -

 

Tai reiškias nelabai teisingai...

Turėtų tada pirma 4 div 2 = 2

 

6 mod 2 = 3

 

ats 3

 

Ar vis dėl to aš klystu ir knygoje klysta?:)

Manau knygoje norėjo pasakyti, kad vienoje eilutėje esantys veiksmai turi tą patį prioritetą (pvz. daugyba ir dalyba tarpusavy eina iš eilės)

16 mod 2 +1+49 mod (5+7) div 3

1. Skliaustai 5+7

2. 16 mod 2 = 8

3. 49 mod 12 = 1 (liekana 1)

4. 1 div 3 = 0 (0.33)

5. 8+1+0 = 9

Ats: 9

ar ne taip?:D (ka reiškia kaip prieš 10m baigi mokyklą ir nebesidomi programavimu :) )