متن برنامه:

CLS
100
PRINT "rec,circle,ave
INPUT "yek kalame vared konid=", a
IF a$ = "rec" THEN
INPUT "length=", g
INPUT "width=", h
PRINT "mohit="; (g + h) * 2
PRINT "masahat="; g * h
END IF
PRINT "aya edame midhid
PRINT "1.yes
PRINT "2.no
INPUT "add ra bnvisid=", ali
IF ali = 1 THEN
GOTO 100
ELSE
PRINT "ba tshkr
END IF
IF a$ = "circle" THEN
INPUT "lotfan shoaa ra vard konid=", k
PRINT "mohit="; k * 2 * 3.14
PRINT "masahat="; k ^ 2 * 3.14
END IF
PRINT "aya edame midhid
PRINT "1.yes
PRINT "2.no
INPUT "add ra bnvisid=", ali
IF ali = 1 THEN
GOTO 100
ELSE
PRINT "ba tshkr
END IF
IF a$ = "ave" THEN
INPUT "a=", a
INPUT "b=", b
INPUT "c=", c
PRINT "average="; (a + b + c) / 3
END IF
PRINT "aya edame midhid
PRINT "1.yes
PRINT "2.no
INPUT "add ra bnvisid=", ali
IF ali = 1 THEN
GOTO 100
ELSE
PRINT "ba tshkr
END IF

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: