بازگشت   پی سی سیتی > کامپیوتر اینترنت و شبکه Computer internet > زبان های برنامه نویسی Programming

زبان های برنامه نویسی Programming بحث در مورد زبانهای مختلف برنامه نویسی

پاسخ
 
ابزارهای موضوع نحوه نمایش
  #1  
قدیمی 07-26-2009
زکریا فتاحی آواتار ها
زکریا فتاحی زکریا فتاحی آنلاین نیست.
کاربر فعال
 
تاریخ عضویت: Nov 2008
محل سکونت: پاوه
نوشته ها: 1,479
سپاسها: : 20

120 سپاس در 80 نوشته ایشان در یکماه اخیر
زکریا فتاحی به Yahoo ارسال پیام
Lightbulb کد ++cمربوط به : digit 2 text (تبدیل عدد به نوشته)

کد:
#include <iostream.h> #include <conio.h> int enter(); int numbers(long int); void convert(int); void process(int); const d=5; int digit[d],count; char str1[10][10]={" ","Yek","Do","Se","Chahar","Panj","Shesh","Haft","Hasht","Noh"}; char str2[10][10]={"Dah","Yazdah","Davazdah","Sizdah","Chahardah","Panezdah","Shanezdah","Hefdah","Hejdah","Noozdah"}; char str3[10][10]={" ","Dah","Bist","Si","Chehel","Panjah","Shast","Haftad","Hashtad","Navad"}; char str4[10][10]={" ","Sad","Devist","Sisad","Chaharsad","Pansad","Sheshsad","Haftsad","Hashtsad","Nohsad"}; char str5[d][10]={"","Hezar","Milion","Milliard","Trilliard"}; int first[100]; int check(int i); void main() { clrscr(); int num; cout<<" Convert Digits to Text (Farsi Version) \n\n"; cout<< "enter number with less than "<< (d*3) <<" digits: "; num=enter(); process(num); cout << "\n\n there is "<<num <<" digits entered \n\n - - - - - - - - - - - - - - - - - - -\n \n"; cout << (num>d*3?"~... too big number !!":""); if(num<=d*3) for (int i=count-1;i>=0;i--) { if(digit[i]>0) { convert(digit[i]); cout <<str5[i]; cout <<(check(i)?"o ,":" ,"); } } getch(); } void convert(int n) { int a; a=n/100; if(a>0) cout<< str4[a] << (n%100>0?"o ":""); n%=100; if (n>=20) cout<< str3[n/10] << (n%10>0?"o ":" ") << str1[n%10] << ' '; else if (n<20 && n>=10) cout<< str2[n%10] << ' ' ; else if (n<10) cout << str1[n] << ' '; } int enter() { int i; i=getch(); int num=0; while (i!=13) { if (i > 47 && i<58 || i==8) { if (i==8 && num>0) { num--; first[num]=0; putch(i); putch(' '); } else { first[num]=i-'0'; num++; } putch(i); } i=getch(); } return (num); } void process(int num) { int k=1,m=0,i; for(i=num-1;i>=0;i--) { m=first[i]*k+m; k*=10; if (k>100) { digit[count]=m; m=0;k=1;; count++; } } if(m>0) { digit[count]=m; count++; } } int check(int i) { int k=0; for (int j=i-1;j>=0;j--) if (digit[j]>0) k=1; return k; }
__________________

درمان غم عشق بگویم که چه باشد
وصل است و بهار است و می بربط و چنگ است
....
زنهار مرو هیچ سوی بیشه ی عشاق
چنگال غمش تیزتر از چنگال پلنگ است

----
ئه و روژه ی "مه جنون" له زوخاو نوشی ...مه ینه ت فه وتانی، کفنیان پوشی
من بومه واریس له قه وم و خویشی . . . سپاردی به من ئازاری و ئیشی


ویرایش توسط دانه کولانه : 07-27-2009 در ساعت 12:15 AM
پاسخ با نقل قول
جای تبلیغات شما اینجا خالیست با ما تماس بگیرید




  #2  
قدیمی 07-27-2009
دانه کولانه آواتار ها
دانه کولانه دانه کولانه آنلاین نیست.
    مدیر کل سایت
        
کوروش نعلینی
 
تاریخ عضویت: Jun 2007
محل سکونت: کرمانشاه
نوشته ها: 12,700
سپاسها: : 1,382

7,486 سپاس در 1,899 نوشته ایشان در یکماه اخیر
دانه کولانه به Yahoo ارسال پیام
پیش فرض

زکریا جان کدی رو میذاری اولا سلکتش کن و
بزن تا از چپ طراز شه
بعد
بزن تا بذارش تو باکس
من تاپیکای دیگه تو هم اصلاح میکنم
__________________
مرا سر نهان گر شود زير سنگ -- از آن به كه نامم بر آيد به ننگ
به نام نكو گر بميــرم رواست -- مرا نام بايد كه تن مرگ راست



پاسخ با نقل قول
پاسخ


کاربران در حال دیدن موضوع: 1 نفر (0 عضو و 1 مهمان)
 
ابزارهای موضوع
نحوه نمایش

مجوز های ارسال و ویرایش
شما نمیتوانید موضوع جدیدی ارسال کنید
شما امکان ارسال پاسخ را ندارید
شما نمیتوانید فایل پیوست در پست خود ضمیمه کنید
شما نمیتوانید پست های خود را ویرایش کنید

BB code is فعال
شکلک ها فعال است
کد [IMG] فعال است
اچ تی ام ال غیر فعال می باشد



اکنون ساعت 10:42 AM برپایه ساعت جهانی (GMT - گرینویچ) +3.5 می باشد.



Powered by vBulletin® Version 3.8.4 Copyright , Jelsoft Enterprices مدیریت توسط کورش نعلینی
استفاده از مطالب پی سی سیتی بدون ذکر منبع هم پیگرد قانونی ندارد!! (این دیگه به انصاف خودتونه !!)
(اگر مطلبی از شما در سایت ما بدون ذکر نامتان استفاده شده مارا خبر کنید تا آنرا اصلاح کنیم)


سایت دبیرستان وابسته به دانشگاه رازی کرمانشاه: کلیک کنید




  پیدا کردن مطالب قبلی سایت توسط گوگل برای جلوگیری از ارسال تکراری آنها