یک برنامه ساده ریاضی

[rahpoyan.ir]

سلام
من می خوام یه برنامه بنویسم که بتونه یکان عددی ورودی رو بدست بیاره!!
البته با Qbasic و بدون استفاده از هیچ تابعی مثل LEN Or Right$ Or Mid$
من خودم این برنامه رو دیدم که نوشته شده
ولی می خوام شما برام بنویسید
یعنی می خوام ببینم چه طور میشه نوشتش
ممنون از همگی!!!

 

[the_king]

سلام
من می خوام یه برنامه بنویسم که بتونه یکان عددی ورودی رو بدست بیاره!!
البته با Qbasic و بدون استفاده از هیچ تابعی مثل LEN Or Right$ Or Mid$
من خودم این برنامه رو دیدم که نوشته شده
ولی می خوام شما برام بنویسید
یعنی می خوام ببینم چه طور میشه نوشتش
ممنون از همگی!!!

هنوز مراسم خاکسپاری Qbasic برگزار نشده؟
برای دریافت مقدار عددی یک رشته از تابع ()VAL و برای بدست آوردن اولین رقم سمت راست آن از عملگر MOD (باقیمانده)
استفاده کردم :

COLOR 7
CLS
DO
    INPUT "Input Your Number To See Right Number, This may less than 9#  ", A$
    N& = VAL(A$)
    IF (N& > 0) OR (A$ = "0") THEN
        EXIT DO
    END IF
    PRINT "Redo from start"
LOOP
PRINT
PRINT
PRINT
COLOR 10
PRINT "                    Your Right Number Is"; N& MOD 10
PRINT
COLOR 15
PRINT "                      Your Number Is "; A$
PRINT
COLOR 14
PRINT "                 --- Press Any Key To Exit ---"
DO WHILE LEN(INKEY$) = 0
LOOP
COLOR 7
CLS

 

[rahpoyan.ir]

مرحبا به شما
ولی من می خواستم از راه ریاضی برید
خودم بلد بودم از مود استفاده کنم
ضمن اینکه فکر می کنم این برنامه 2 رقم بیشتر رو هم جواب نده
من سورس اون برنامه رو میگذارم براتون
توی پست بعدی

 

[rahpoyan.ir]

CLS
INPUT "Input Your Number To See Right Number, This may less than 9# ", A
B = A
1
B = B / 10
C = C + 1
IF B > 1.2 THEN GOTO 1
D = C
E = A
F = A
2
N = 0
IF D > 1 THEN
R = 10 ^ (D - 1)
E = E - R
F = E
'IF E < 10 THEN PRINT E: END ELSE GOTO 3
3
3
F = F / 10
N = N + 1
IF F > 1.2 THEN GOTO 3
D = N
GOTO 2
END IF
IF D = 1 AND E > 9 THEN E = E - 10
COLOR 15
LOCATE 11, 31
PRINT "Your Number Is:"
LOCATE 11, 45
PRINT A
COLOR 10
LOCATE 9, 29
PRINT "Your Right Number Is"
LOCATE 9, 49
PRINT E
COLOR 14
LOCATE 13, 25
PRINT " --- Press Any Key To Exit --- "
DO
LOOP WHILE INKEY$ = ""

این برنامه تعداد ارقام رو در میاره که فکر می کنم توی سورس خیلی از برنامه هایی که دوستان می خوان بدون استفاده از فرمان بنویسند بخوره

ضمنا این برنامه رو اگر با دست طبق فرمانهاش پیش برید می تونید به جواب برسید
به این میگند برنامه ریاضی

ضمنا Qbasic یک زبان ریاضی است و هیچ وقت به قبرستون نمیره