پاسکال

[amirqom]

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

[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]

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