پاسکال

[amirqom]

سلام دوستان عزیز
من یک برنامه به زبان پاسکال میخواهم که عدد را بگیر و آن را تبدیل به حروف کند.
البته خیلی زور :11:
با تشکر

[bad_boy_2007]

منظورت اینه که مثلا 11 عددی رو به 11 کاراکتری تبدیل کنه یا به یازده ؟

[amirqom]

مثلا با وارد کردن عدد 125 به حروف آن را بده یعنی به صورت
صد و بیست و پنج

[amironline]

من ميتونم برنامه رو بنويسم
ميتونين از طريق ياهو باهام تماس بگيرين

[bad_boy_2007]

نمونه کد vb به راحتی میتونی به پاسکال تغییرش بدی :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[meysam-OK]

به نظر من شما اين الگوريتم ميتونين اين مساله رو حل كنين
اول عدد دريافتي را به رشته تبديل كرده - طول رشته را بدست آوريد
شما بايد به ازاي يكان - دهگان - صد گان و ... يه آرايه داشته باشيد
اندكس هر آرايه ميتواند بيان گر آن حرف باشد
يك
دو
سه
.
.
.
نه
اگر فرض كنيم اين يه آرايه باشد
كارير وقتي عدد 1 را وارد كرد
شما سريعا به خانه شماره 1 آرايه خود ميكنيد و آن را چاپ ميكنيد

[amirqom]

با تشکر از نظرات محترم شما عزیزان
اگر هم خود برنامه را به زبان پاسکال داشتید ممنون میشم اگر در اختیار این بنده حقیر نیز قرار بدهید.

[bad_boy_2007]

به نظر من شما اين الگوريتم ميتونين اين مساله رو حل كنين
اول عدد دريافتي را به رشته تبديل كرده - طول رشته را بدست آوريد
شما بايد به ازاي يكان - دهگان - صد گان و ... يه آرايه داشته باشيد
اندكس هر آرايه ميتواند بيان گر آن حرف باشد
يك
دو
سه
.
.
.
نه
اگر فرض كنيم اين يه آرايه باشد
كارير وقتي عدد 1 را وارد كرد
شما سريعا به خانه شماره 1 آرايه خود ميكنيد و آن را چاپ ميكنيد

فکر کنم الگوی خوبی باشه میتونی یه الگوریتم قشنگ از روش در بیاری . مزییتش اینه که میتونی با تغییر کوچیک تو آرایه عددت رو به زبونهای مختلف هم بنویسی

[8407533]

فکر کنم الگوی خوبی باشه میتونی یه الگوریتم قشنگ از روش در بیاری . مزییتش اینه که میتونی با تغییر کوچیک تو آرایه عددت رو به زبونهای مختلف هم بنویسی

سلام
من برنامه ی کامل رو برات میذارم
اگه خواستی تو وبلاگم هم گذاشتم.


PROGRAM HOROOFI;
uses crt,dos;
var num:1..999;
const a: array [1..27] of string=('ONE','TWO','THREE','FOUR','FIVE',
'SIX','SEVEN','EIGHT','NINE','TEN','ELEVEN',
'TWELVE','THIRTEEN','FOURTEEN','FIFTEEN',
'SIXTEEN','SEVENTE','EIGHTEEN','NINTEEN',
'TWENTY','THIRTY','FOURTY','FIFTY','SIXTY',
'SEVENTY','EIGHTY','NINTY');
{ *** WRITER *** }
procedure writer(nu:integer);
begin
if num>99 then
write(a[num div 100],' HUNDRED');
if num mod 100=0 then
exit;
if num mod 100<20 then
write('':2,a[num mod 100])
else
begin
write('':1,a[((num mod 100) div 10)+18],'');
write('':1,a[((num mod 100) mod 10)],'');
end; { for else }
end;
{ --- MAIN BODY --- }
begin
clrscr;
textbackground(0);
textcolor(10);
writeln;
write( ' ENTER AN INTEGER NUMBER <1000 : ');
readln(num);
textcolor(11);
if (num<=999) and (num>0) then
writer(num);
readln;
end.

[amirqom]

با تشکر از تمامی عزیزانی که به بنده لطف داشتند.
از آنجا که تازه در دانشگاه درس پاسکال شروع شده است و هنوز به توابع نرسیده ام خواهشمندم برنامه ای که در این مورد مینویسید بدون توابع باشد.
البته جسارت من را ببخشید(به بزرگواری خودتان) و اگر کمی زودتر برنامه به دستم برسد نمره استاد را هم خواهم گرفت.
با تشکر

[Mehran NZ]

از تمام دوستان می خوام که یه سری به وبلاگ جناب 8407533 بزنید من قبلا از طریق وب گردی دیده بودمش
واقعا باید گفت وبلاگ عالیی هستش ایکاش حداقل یک چهارم وبلاگهای ما اینطور پر بار بودن ولی حیف....

8407533 عزیز می تونی در این ادرس به من کمک کنی خیلی توش گیر کردم کسی هم کمک نکرده [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[Mehran NZ]

سلام می شه این قسمتی که رنگی کردم رو برام توضیح بدی؟خیلی ممنون
می شم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید