Q Basic Alıştırma fibonacci terim hesaplama

[Kaf Dağı]

CLSDIM a, b, k, m, n AS INTEGER
a = 1
b = 1
INPUT "kac terim gireceksin", k
PRINT a
PRINT b
basla:
m = m + 1
n = a + b
a = b
b = n
PRINT n
IF m >= k THEN GOTO bitis ELSE GOTO basla


bitis:
END

[Turan]

CLSDIM a, b, k, m, n AS INTEGER
a = 1
b = 1
INPUT "kac terim gireceksin", k
PRINT a
PRINT b
basla:
m = m + 1
n = a + b
a = b
b = n
PRINT n
IF m >= k THEN GOTO bitis ELSE GOTO basla


bitis:
END

Eyv....