zadatak-qbasic (zadatak)

[kanndy07]

Simetrican kvadrat je prirodan broj koji je kvadrat drugogo prirodnog broja i cije znamenke su simetricne. 121 je takav broj, jer je 121=11*11. Trebam napisati program (u qbasic_u) koji ce naci sve simetricne kvadrate od 10 do 10000.

HVALA!

[vsego]

10000 = 100^2

Dakle, trcis sa i od 4 (jer je 3^2=9<10) do 100, te za i^2 provjeravas je li simetrican.

Provjera simetricnosti (opisno; program pisi sam, jer ovdje ne rjesavamo tudje zadace i slicno):

[kanndy07]

HVALA!!

[kanndy07]

[vsego]

Onda u profilu stavis .

_________________
U pravilu ignoriram pitanja u krivim topicima i kodove koji nisu u [code]...[/code] blokovima.
Takodjer, OBJASNITE sto vas muci! "Sto mi je krivo?", bez opisa u cemu je problem, rijetko ce zadobiti moju paznju.

[kanndy07]

negdje sam napravila gresku ali ne mogu naci gdje:

for i=4 to 100
x=i^2
y=0
do while x>0
y=10*y+(x mod 10)
x=x/10
if i^2=y then
print y
end if
loop
next i

(ispise mi jedino 121 koji je simetrican)

unaprijed hvala!

[vsego]

Petlju treba zatvoriti izmedju dijeljenja x-a i if.

Takodjer, nisam siguran da je u BASICu / cjelobrojno dijeljenje. Mislim da treba ici x = int(x/10), jer ti ovako zapne u predugoj (ili cak beskonacnoj) petlji.

_________________
U pravilu ignoriram pitanja u krivim topicima i kodove koji nisu u [code]...[/code] blokovima.
Takodjer, OBJASNITE sto vas muci! "Sto mi je krivo?", bez opisa u cemu je problem, rijetko ce zadobiti moju paznju.

[mdoko]