خواهش می کنم کمک کنید

[Ali_Ham]

با تشکر
در مثال زیر من می خواهم سه عدد را وارد کنم که اعداد مختلف خواهد بود می خواهم توسط Do case و یا If شرطی بگذارم که اگر عدد سمت راست یک عدد از صفر تا نه باشد چه چیز چاپ کند عدد وسط یک عدد از صفر تا نه باشد چه چیز چاپ کند و همینطور عدد سمت چپ البته اعدادسمت چپ از یک تا نه
clear
set talk off
set escape off
number=space(3)
@10,12 say "Number=" get number
read
do case
case ?

[binyaz2003]

با سلام
اول لطف کنید از این به بعد عنوان سوالاتتون رو درست و با مفهوم انتخاب کنید اینطوری خودتون زودتر به جواب میرسید
دوم اینکه یک موضوع رو دو جا مطرح نکنید
سوم شما برای حل مسله بالا چند راه دارید یکی اینکه عدد رو به رشته تبدیل کنید با Str و توسط تابع Substr عددها رو چک کنید که در اینصورت دستور Case کنار میره چون شما باید چند مورد متفاوت رو چک کنید

[Master_mobtaker]

با تشکر
در مثال زیر من می خواهم سه عدد را وارد کنم که اعداد مختلف خواهد بود می خواهم توسط Do case و یا If شرطی بگذارم که اگر عدد سمت راست یک عدد از صفر تا نه باشد چه چیز چاپ کند عدد وسط یک عدد از صفر تا نه باشد چه چیز چاپ کند و همینطور عدد سمت چپ البته اعدادسمت چپ از یک تا نه
clear
set talk off
set escape off
number=space(3)
@10,12 say "Number=" get number
read
do case
case ?


************************************************** ***
Number=padl(allt(number),3,"0")
Do case
Case left(number,1)="1"
? "??"
Case ….
Endcase

Do case
Case subs(number,2,1)="1"
? "??"
Case …
Endcase

Do case
Case right(number,1)="1"
? "??"
Case ...
Endcase
************************************************** *******************

[rezaTavak]

:موفق: