HTML

Zsebszámológép programok, forráskódok, hírek

Egy blog zsebszámológép programokról, algoritmusokról, érdekességekről.

Játék

Szabadon letölthető, megújult Gazdálkodj okosan! stratégiai társasjáték szabállyal együtt.

Friss topikok

Linkblog

Egy érdekes programozás feladat

2011.01.11. 07:11 Sany80

Egy érdekes (de azért nem túl bonyolult) programozási feladat:

Keresünk 4 db olyan 4 jegyű, egymás után következő számot, melyek oszthatóak a jegyeik összegével (a feladat a HPmuseum.org fórumán jelent meg, és a Számológép Fórumon is szóba került).

Saját, Casio Basic nyelvű megoldásom:

{1,1,1,1 -> List 1;
For 1-> A To 9
For 0-> B To 9
For 0-> C To 9
For 0-> D To 9
   List 1[2 -> List 1[1
   List 1[3 -> List 1[2
   List 1[4 -> List 1[3
   1000A + 100B + 10C + D -> N
   A+B+C+D -> S
   Frac(N / S -> List 1[4
   If 0 = Max(List 1
   Then N - 3 ki
   N - 2 ki
   N - 1 ki
   N ki
   IfEnd
Next
Next
Next
Next

Szólj hozzá!

Címkék: casio basic feladat

A bejegyzés trackback címe:

https://szamologep.blog.hu/api/trackback/id/tr92575823

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben és az adatvédelmi tájékoztatóban.

Nincsenek hozzászólások.