DO
PRINT "-------------------------------------------------"
PRINT "kodam barname ejra shavad ?"
PRINT ""
PRINT "1-hale moadele daraje 2 ................. (1)"
PRINT "2-barrasi tam bodan yek adad ............ (2)"
PRINT "3-barrasi minimom beyn 3 adad ........... (3)"
PRINT "4-barrasi Min va Max beyn (n) adad ...... (4)"
PRINT "5-mohasebe n! ........................... (5)"
PRINT "6-mohasebe majmo va miangin (n) adad .... (6)"
PRINT "7-barrasi tam bodan adad ta m ........... (7)"
PRINT "8-mashin hesab .......................... (8)"
PRINT ""
INPUT "adad gozine morede nazare khod ra vared konid: ", a
PRINT "-------------------------------------------------"
IF a = 1 THEN
PRINT "***** shoma hale moadele daraje 2 ra entekhab karde id *****"
PRINT ""
INPUT "a= ", a
INPUT "b= ", b
INPUT "c= ", c
d = (b ^ 2) - (4 * a * c)
IF d > 0 THEN
x = (-b + SQR(d)) / (2 * a)
y = (-b - SQR(d)) / (2 * a)
PRINT "Delta= "; d
PRINT "x= "; x
PRINT "y= "; y
ELSEIF d = 0 THEN
x = (-b) / (2 * a)
PRINT "Delta= "; d
PRINT "x= "; x
ELSE
PRINT "Delta= "; d
PRINT "***** moadele rishe haghighi nadarad *****"
END IF
ELSEIF a = 2 THEN
PRINT "***** shoma gozine ye tam bodane yek adad ra entekhab karde id *****"
PRINT ""
INPUT "adade morede nazar: ", n
sum = 0
k = 1
DO WHILE k <= n - 1
IF n / k = INT(n / k) THEN
sum = sum + k
END IF
k = k + 1
LOOP
IF sum = n THEN
PRINT ""
PRINT "***** adade"; n; "tam ast *****"
ELSE
PRINT ""
PRINT "***** adade"; n; "tam nist *****"
END IF
ELSEIF a = 3 THEN
PRINT "** shoma gozine ye barrasi minomom beyne 3 adad ra entekhab karde id **"
PRINT ""
INPUT "x=", x
INPUT "y=", y
INPUT "z=", z
IF x < y AND x < z THEN
PRINT "Min= "; x
ELSEIF x < y AND z < x THEN
PRINT "Min= "; z
ELSEIF y < x AND y < z THEN
PRINT "Min= "; y
ELSEIF y < x AND z < x THEN
PRINT "Min= "; z
END IF
ELSEIF a = 4 THEN
PRINT "*** shoma gozine ye Min va Max (n) adad ra entekhab karde id ***"
PRINT ""
INPUT "n=", n!
INPUT "a=", a!
min = a!
max = a!
c = 1
DO
INPUT "b=", b!
IF b! <= min THEN
min = b!
ELSEIF b! >= max THEN
max = b!
END IF
c = c + 1
LOOP WHILE c <= n - 1
PRINT "Min="; min
PRINT "Max="; max
ELSEIF a = 5 THEN
PRINT "*** shoma gozine ye n! ra entekhab karde id ***"
PRINT ""
DO
INPUT "n= ", n
IF n = 0 THEN
PRINT "n nemitavanad 0 bashad lotfan adade digari vared konid"
END IF
LOOP WHILE n = 0
k = 1
m = 1
DO
k = k * m
m = m + 1
LOOP WHILE m <= n
PRINT "n!="; k
ELSEIF a = 6 THEN
PRINT "*** shoma gozine ye majmo va miyangin (n) adad ra entekhab karde id ***"
PRINT ""
INPUT "chand adad ", n
INPUT "adade aval ", a
sum = a
i = 1
DO
INPUT "adade baadi ", b
sum = sum + b
i = i + 1
LOOP WHILE i <= n - 1
PRINT "sum is:"; sum
PRINT "ave is:"; sum / n
ELSEIF a = 7 THEN
PRINT "*** shoma gozine barrasi tam bodan ta (m) ra entekhab karde id ***"
PRINT ""
INPUT "barrasi ta che adadi bashad?", m
LET n = 1
DO
sum = 0
LET k = 1
DO WHILE k <= n - 1
IF n = k * INT(n / k) THEN
sum = sum + k
END IF
LET k = k + 1
LOOP
IF sum = k THEN
PRINT "tam="; n
END IF
LET n = n + 1
LOOP WHILE n <= m
ELSEIF a = 8 THEN
PRINT "*** shoma gozine mashin hesab ra entekhab karde id ***"
PRINT ""
INPUT "enter first nomber: ", a
INPUT "enter math sign: ", b$
INPUT "enter second nomber: ", b
IF b$ = "*" THEN
x = a * b
ELSEIF b$ = "/" THEN
x = a / b
ELSEIF b$ = "+" THEN
x = a + b
ELSE
x = a - b
END IF
PRINT "answer is= ", x
ELSE
PRINT "***** Gozine entekhabi yaft nashod *****"
PRINT ""
END IF
PRINT "-------------------------------------------------"
INPUT "aya mayel be edame hastid y/n"; g$
LOOP WHILE g$ = "y"
END