درآمد متخصصين بدون مدرك IT بيشتر از متخصصين دارای مدرك است

فرامينگهام- طبق اعلام Foote Partners كه رشد عدم توازن را در اظهار اهداف IT و يكپارچگی توزيع می‌كند، حرفه‌ای‌های IT در مناطق تجاری گوناگون تيز هوش هستند، اما متخصصین فاقد مدرک IT دستمزدهای بیشتری از همتايان دارای مدرک دریافت می‌کنند.

اتنخابات رياست جمهوري

دانشجويان عزيز براي اينكه دوباره 4 سال ديگر دوباره

دچار محدوديتهاي ايجاد شده توسط اين دولت نباشيم

به ناچار بايد راي دهيم و مير حسين موسوي را انتخاب

كنيم

قدرت روانی خود را برای موفقیت افزایش دهید

فقط افرادی عاری از مشکلات و مسائل هستند که دیگر در کنار ما نیستند. بنابراین، مشکلات یکی از نشانه

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

مشکلات و پیشرفت ها با هم پیش می روند و نمی توان یکی را بدون دیگری در اختیار داشت.

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

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

اند ، اما از جنبه ی نگرش به زندگی ممکن است از سلامت روانی برخوردار نباشند.

راز آن، در این نیست که عاری از مشکلات باشیم، زیرا این گمان دست نیافتنی است ، بلکه داشتن یک روش

مثبت و پرانرژی برای حل مشکلات است.

اخبار

محمود احمدی نژاد، رییس جمهوری اسلامی ایران اعلام خبر پرتاب نخستین ماهواره کشور خود را که در داخل ساخته شده، به عنوان هدیه ای به ملت ایران ستوده است.احمدی نژاد امروز سه شنبه گفت ماهواره «امید» شامگاه دوشنبه در مدار زمین قرار گرفت. رسانه های ایران گزارش دادند که یک راکت ساخت ایران به نام «سفیر -۲» ماهواره را به فضا حمل کرد.در واشنگتن، رابرت وود سخنگوی وزارت امور خارجه آمریکا گزارش پرتاب ماهواره را نگران کننده نامید و یاد آور شد قطعنامه های سازمان ملل متحد ایران را از شرکت در هرگونه فعالیت های موشکی ممنوع می کند.وزارت امور خارجه فرانسه نیز از این گزارش، که در سی امین سالگرد انقلاب اسلامی ایران منتشر شد، ابزار نگرانی کرده است .یک سخنگو گفت تکنولوژی به کار رفته در ماهواره همان است که در موشکهای بالیستیک به کار می رود.ایران از دیرباز اجرای یک برنامه فضایی را دنبال کرده و نگرانی هایی در میان برخی از رهبران جهان که هم اینک نگران برنامه های اتمی و موشکی آن هستند، به وجود آورده است.غرب می ترسد تکنولوژی پرتاب یک راکت فضایی برای تولید موشک های بالیستیک دور برد که قادر به حمل کلاهک های اتمی خواهند بود به کار رود. ایران می گوید از ماهواره برای نظارت صلح جویانه بر محیط زیست استفاده خواهد شد. رهبران غرب گفته اند ایران سعی دارد اسلحه اتمی بسازد. ایران می گوید برنامه اتمی آن فقط برای مقاصد صلح جویانه اجرا می شود.

 

مجموعه دستورات لينوكس

/* /*]]>*/رای تغییر مالکیت در لینوکس به نکات زیر دقت کنید برای تغییر صاحب فایل chown mostafa filename برای فولدر chown mostafa foldername اگر بخواهیم فولدرهای بچه نیز این تغییر مالکیت اعمال گردد از گزینه R استفاده میکنیم(حتما از R بزرگ استفاده گردد) chown -R mostafa foldername نکته : فولدر بچه به فولدرهای زیرین یک فولدر گفته می شود. برای تغییر گروه هم از دستور زیر استفاده می کنیم( با گزینه R بزرگ برای فولدرهای کودک) chgrp newgroup filename مالکیت به صورت زیر تعریف میشه owner-group-others

اريخ 23/10/87
اطلاعيه

موضوع : جذب خبرنگار آزاد

خبرگزاري جمهوري اسلامي كاشان در نظر دارد ، از بين جوانان علاقمندان واجد شرايط يك نفر نيرو به عنوان خبرنگار آزاد شهرستان نطنز جذب نمايد.
علاقمندان مي توانند تا پنجم بهمن ماه سالجاري با شماره تلفن همراه [phone] تماس حاصل فرمايند.
شرايط جذب نيرو :
1-علاقه مند به حرفه خبرنگاري و تا حدودي با خبر و گزارش نويسي آشنا باشد.
2-داشتن مدرك كارشناسي، ترجيحا در رشته هاي علوم ارتباطات – سياسي – اجتماعي – ادبيات فارسي.
3-ترجيحا بومي شهرستان و يا به عنوان دانشجو در نطنز مشغول به تحصيل باشد.
4-نسبت به اوضاع سياسي ، فرهنگي، اجتماعي و اقتصادي شهرستان نطنز اطلاع و آگاهي داشته باشد.
5-تا حدودي با كامپيوتر و عكاسي آشنا باشد.
6-در برقراري ارتباط ، تعامل و همكاري با مسوولان ادارات و نهادهاي شهرستان توانايي داشته باشد.
7-براي همكاري، محذوريتهاي حرفه خبرنگاري را نداشته باشد.
توضيح اينكه از بين علاقمندان، فرد واجد شرايط از طريق مصاحبه حضوري، گزينش و پس از مدتي فعاليت آزمايشي، طي مراحل اداري به عنوان خبرنگار آزاد شهرستان نطنز ، معرفي و مشغول به كار خواهد شد.
ضمنا نحوه همكاري ، قراردادي و حق الزحمه اي خواهد بود.

خبرگزاري جمهوري اسلامي كاشان
( حوزه شمال استان اصفهان)

تبریک شب یلدا

فرا رسیدن شب یلدا بر تمام ایرانیان مبارک باد

عید سعید قربان  را تبریک عرض  می نماییم

 

تسلیت به مناسبت شهادت حضرت علی

 

شهادت حضرت علی را به تمام مسلمانان 

تسلیت عرض مینماییم

ا

 

عکس 42 روزگی پسرم آرشا

 از تمام عزيزاني كه تولد پسرعزيزم آرشا را

 

تبريك گفتند كمال تشكر را دارم. اميدوارم

 

كه در تمامي مراحل زندگي موفق و كامياب

 

باشيد.

انجام عملیات ریاضی در Microsoft Word به شکلی سریع

بدین منظور:
نرم افزار Word را اجرا کنید.
از منوی Tools بر روی Customize کلیک کنید.
در پنجره جدید به تب Commands بروید.
اکنون یک پنجره دارای 2 ستون خواهید داشت. از ستون Tools ، Category را پیدا کرده و آن را انتخاب کنید. از ستون دیگر ، Tools Calculate را پیدا کنید (جزء موارد آخر). اکنون Tools Calculate را گرفته و آن را در جای مناسبی از نوار ابزار بالای صفحه رها کنید. ( Drog & Drop ) .
پس از اینکه دکمه Tools Calculate در جای مناسبی از نوار ابزار جای گرفت ، پنجره Customize را ببندید.
حال در یک صفحه خالی Word ، به عنوان مثال دو عدد را این گونه بنویسید:

253
+
789

هر عدد با یک Enter از خطی بعدی جدا گردد. عملگر ریاضی هم مابین دو خط عدد جای گیرد.

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

253 + 789

اکنون این 3سه خط را با موس بگیرید و به حالت انتخاب درآورید ( Highlight کنید ) ، بر روی دکمه Tools Calculate که ایجاد کردید ، کلیک کنید.
سپس در خط بعدی ، دکمه Ctrl+V را همزمان فشار دهید تا پاسخ که در اینجا به فرض 1042 است نمایان شود.

 

آیا مخترع Ctrl+Alt+Del را می شناسید؟

 یاسر سوری دیوید برادلی کد یکی از مشهور ترین کلید های ترکیبی جهان را نوشته است. ترکیب سه

کلید Ctrl+Alt+Del که از قدیم به سلام سه انگشتی معروف است. در پارک تحقیقی مثلث در کالوریای

شمالی امریکا به ملاقات مردی می رویم به نام دیوید برادلی که تنها 5 دقیقه وقت خود را صرف نوشتن

برنامه ی کرد که سال های سال است که تمام کاربران کامپیوتر را در سراسر جهان به خود مشغول کرده

است. ما حصل کار یکی از مشهور ترین کلید های ترکیبی شناخته شده است. یعنی ترکیب سه کلید

 Ctrl+Alt+Del . فشار دادن توام این یه کلید. کامپیوتر ها را مجبور می سازد بر خلاف میل خود خاموش و

روشن شده و به اصطلاح دوباره بوت شوند و به این ترتیب مزد تمرد و سرکشی خود را بچشند. خود

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

زیادتری نسبت به Ctrl+Alt+Del انجام داده ام ولی متآشفانه و از بخت بد برای این یکی معروف شده ام!

http://www.mcs-8051.com/archives/000036.php

قابل توجه دانشجویان

 

لینک زیر شامل حل تمرینات برنامه سازي پيشرفته مي باشد

http://rapidshare.de/files/38650397/hal_tamarin_c__.ppt.html

قابل توجه دانشجویانی که در این وب لاگ حد و حریم و احترام به یکدیگر را

رعایت نمی کنند  در صورت تکرار و دستیابی به اسامی واقعی انان در وب لاگ

اعلام خواهدشد .این وب لاگ عین محیط کلاس می باشد.همانطور که به شما اجازه

شوخی داده می شود در صورت نوشتن مطالب توهین آمیز متقابلا برخورد خواهد

شد.همچنین در صورت تکرار قسمت نظزات هر تایپیک غیر فعال خواهد شد تا

دانشجویان با نام و رمز خودشان اظهار نظر کنند

 

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

 همگی ایمیلهای خود را در قسمت نظرات ارسال کره تا در ياهو مسنجر به گفتگو

بنشينيم.

منتظر ايميلهاي شما هستم

 

قابل توجه دانشجويان گرامي

 

نمره نهايي به شرح ذيل اعلام ميگردد قبل از اعلام به نكات زير توجه گردد

 

نمره تكاليف  50 نمره

نمره ميان ترم 100 نمره

جمع هردو به عنوان ميان ترم در نظر گرفته شده است

دانشجوياني كه در ميان ترم شركت نداشته و همچنين دانشجوياني كه نمره پايان ترم انها كمتر از 7 بوده نمره ميان ترم لحاظ نشده و نمره پايان ترم آنها در 7/10 ضرب گرديده و به  عنوان نمره  نهايي مد نظر قرار گرفته است.

  دانشجوياني كه به نمره خود اعتراض دارند تا پايان تاريخ 13/11/1386 فقط از طريق ايميل يا smsيا در قسمت نظرات وبلاگ ميتوانند اعتراض خود را بيان نمايند.

 

به اميد موفقيت تمام شما عزيزان

 

جابر خطيري

خانمها ميرعبدالله ونخعي واميني،قاسمي،غريبي بهبهاني،طاهري و آقايان عظيما،نوراني،مومني سربند،جلالي  ايميلهاي شما دريافت گرديد.

با تشكر

ده نکته از ابداع کننده واژه وبلاگ

ده سال پیش (۱۷ دسامبر ۱۹۹۷) برای نخستین بار جورن بارگر (Jorn Barger) واژه وبلاگ (Weblog) را برای لیستی از لینک هایی که در حین وبگردی ها توجهش را جلب کرده بودند، بکار برد.

توجه توجه توجه

 

دانشجویان عزیز قبل از ارسال مطالب  لطفا موضوع خود را مشخص کنید 

برای این کار در پایین در کادر مر تبط با موضوع آن را انتخاب کرده و سپس

ارسال کنیدتا در جستجو  مطالب سریعتر پیدا شود.

از همکاری همه شما سپاسگزارم

قابل توجه تمام دانشجويان رشته رياضي و مهندسي كامپيوتر

 

با توجه به اينكه  دانشگاه از پذيرفتن  تكاليف دانشجويان خودداري كرده است   خواهشمندم به اطلاع ورودي هاي 86  برسانيد كه مهلت ارسال تكاليف تا پنج شنبه اين هفته يا به آدرس ميل يا وب لاگ تمديد شده است.بعد از اين تاريخ  قابل قبول نخواهد بود

من اناری را می کنم دانه

:به خود می گویم

 کاشکی این مردم -

-دانه های دلشان پیدا بود

 

سهراب سپهری

 

 

 

یلدایتان مبارک

و

شادمانیهایتان به بلندای یلدا باد

 

قابل توجه دانشجویان عزیز

در صورت تمایل به همکاری در زمینه جمع آوری اطلاعات در هر

 زمینه ای که مربوط به کامپیوتر سخت افزارنرم افزار و هر موضوعی

 که مربوط  به فن آوری اطلاعات می باشد و حتی آموزش الکترونیکی

 ،خواهشمند است در قسمت نظرات زمینه فعالیت خود را مشخص کرده

 تا در قسمت موضوع آن را ایجاد کرده،تا بتوانیم در کنار یکدیگر سطح

 علمی واطلاعات فنی خود را ارتقا دهیم.منتظر نظرات شما عزیزان می

 باشم

            قابل توجه تمام دانشجویان

با توجه به اعتراض بعضی دانشجویان به قسمت نظرات 

اگر مطلب نامناسبی نوشته شود برای همگان قسمت

نظرات غیر فعال میگردد

 

دانشجویان گرامی لطفا صورت هر مسئله را بالای هر برنامه ذکر کنید تا

دانشجویان استفاده کنند

چرا در نظر سنجی شرکت نمیکنید اینقدر باهم کل

 

کل میکنید ولی در نظرسنجی شرکت نمیکنید

در صورت عدم ارسال تمرین توسط بعضی دانشجویان تا آخر این هفته

 

اسامی آنان از وب لاگ حذف خواهد شد

برای مشاهده نمرات روی قسمت

 

 نویسندگان جابر خطیری کلیک کنید

 

با شرکت در نظرسنجی درارائه بهتر درس ویادگیری بهتر مشارکت کنید

 

فرصت تحويل برنامه ها تا اخر اين ماه مي باشد

لیست نمرات درس مبا ني كامپيوتر

نمره کل	نمره تستی	نمره کتبی	شماره دانشجویی
7.50	7.50	0	8512698166
8.00	8.00	0	ح-با
77.00	12.00	65	ن-با
45.50	12.50	33	ط-پ
37.00	12.00	25	ش-پ
34.00	19.00	15	8512696991
78.50	8.50	70	8611160090
44.00	14.00	30	ز-ج
71.50	16.50	55	8512698158
12.50	12.50	0	8611110297
63.00	8.00	55	8512697431
52.50	18.50	34	ن-ح
35.00	14.00	21	8611171494
92.50	22.50	70	8512698940
51.00	16.00	35	ه-ر
41.50	11.50	20	8411051671
40.50	13.50	27	8512697552
55.50	9.50	46	8611131938
52.00	12.00	40	مر-س
11.50	6.50	5	ع-س
74.00	14.00	60	مه-س
24.00	14.00	10	م-ش
70.00	15.00	55	8512697560
10.50	10.50	0	س-ط
73.00	18.00	55	8512698238
37.50	8.50	29	8611182468
35.00	20.00	15	8411096819
45.50	17.50	28	8611114426
38.00	8.00	30	8512699183
22.50	12.50	10	ا-ك
33.50	13.50	20	مر-م
36.50	11.50	25	8611132197
13.50	13.50	0	سم-س
71.00	16.00	55	8512698529
51.00	21.00	30	سم-م
69.00	16.00	53	8512698801
66.50	14.50	52	8512697544
57.50	17.50	40	8512697499
28.50	13.50	15	مس-م
71.50	14.50	57	8512699167
62.00	9.00	53	8611110932
24.00	9.00	15	8611147199
54.50	20.50	34	8611114856
13.50	8.50	5	ح-و
34.00	20.00	14	س-ي

در صورت داشتن اعتراض با نام و ذكر شماره دانشجويي در قسمت نظرات مورد بررسي قرار مي گيرد

 

فرصت تحويل برنامه ها تا آخر اين ماه مي باشد

لیست نمرات درس برنامه سازی پیشرفته

نمره	شماره دانشجویی
65	مح-ا
52	مر-ا
75	ز-پ
50	8512697640
90	8512698811
60	م-ر
90	ح-ش
70	8512697843
65	8512697001
67	8512698078
61	8512697413
50	8512697771
40	8512697747
90	8512699204
55	8512697781
53	م-ي

قابل توجه دانشجویان مبانی کامپیوتر و برنامه سازی پیشرفته

 

حداکثر تا پایان این ماه30/9/1386 باید تمرینهای برنامه

 نویسی تا پايان فصلهاي تدريس شده را یا در وبلاگ قرار داده یا به

email :[e-mail]ارسال كنند

در غير اينصورت از نمره پرو‍‍‍زه كاسته خواهد  شد

جواب سوالات امتحان برنامه سازی پیشرفته

جواب سوال ۱۰                  15             20
200                 300            20
10                 300             20
400               6000             20
10               6000             20
جواب سوال 3
for(i=1  ;i<=4;i++)
}
for(j=1  ;j<=i;j++)
cout<<"c";
}

for(i=4  ;i>=1;i--)
}
for(j=1  ;j<=i;j++)
cout<<"c";
}
جواب سوال 4
*******
******
*****
جواب  سوال 5
#include
int main()
{
  int i2, i5, i10, i20, i50, count = 0;
   int sum;
 
  for(i2 = 0; i2 <= 50; i2 ++)
    for(i5 = 0; i5 <= 20; i5 ++)
      for(i10 = 0; i10 <= 10; i10 ++)
       for(i20 = 0; i20 <= 5; i20 ++)
         for(i50 = 0; i50 <= 2; i50 ++){
         sum=i2*2 + i5*5 + i10 *10 +i20*20 + i50*50;
          if(sum==100){
            cout<< "\n 2Rials = " << i2 << " 5Rials = " << i5;
            cout << " 10Rials = " << i10 << " ,20Rials = " << i20;
            cout << " 50Rials = " << i50;
            count ++;
      }// end of if
      else
        sum = 0;
    }//end of for
  cout << "\n number of correct times : " << count;
  getch();
  return 0;
{
جواب سوال 7
#include
int main()
{
  int i2, i5, i10, i20, i50, count = 0;
  unsigned long int sum;
 
  for(i2 = 0; i2 <= 50; i2 ++)
    for(i5 = 0; i5 <= 20; i5 ++)
      for(i10 = 0; i10 <= 10; i10 ++)
       for(i20 = 0; i20 <= 5; i20 ++)
         for(i50 = 0; i50 <= 2; i50 ++){
         sum=i2*2 + i5*5 + i10 *10 +i20*20 + i50*50;
          if(sum==100){
            cout<< "\n 2Rials = " << i2 << " 5Rials = " << i5;
            cout << " 10Rials = " << i10 << " ,20Rials = " << i20;
            cout << " 50Rials = " << i50;
            count ++;
      }// end of if
      else
        sum = 0;
    }//end of for
  cout << "\n number of correct times : " << count;
  getch();
  return 0;
جواب 8-
#include
#include
void findIterate(float arr[], int k);
int main()
{
   const int k = 10;
   float arr[k] ;
   int i;
 
   cout << "\n Enter " << k << " average and press Enter:\n";
   for (i = 0; i < k; i++)
     cin >> arr[i] ;
   findIterate(arr, k);
   return 0;
}
//*************************
void findIterate(float arr[], int k)
{
   int max_count = -1 ;
   float max_value;
   int  i, j , current_count;
   float current_value ;
   for (i = 0; i < k; i ++){
       current_value = arr[i] ;
       current_count = 0 ;
       for(j = 0; j < k; j++)
   if (arr[j] == current_value)
      current_count++ ;
       if (current_count > max_count) {
     max_count = current_count ;
     max_value = current_value ;
       }//end of if
   }//end of for (i= 0; i < k ...)
   cout << "\n Maximum iteration of ave :" << max_value  << " is " << max_count;
   getch();
}

 

-برنامه اي بنويسيد كه يك ماتريس5*5  را از ورودي دريافت و سپس مجموع هر سطر را انتهاي همان سطر  همراه ماتريس چاپ كند
Var
               a: array [ 1.. 5 , 1.. 5 ]  of  Real  ; sum: Real  ;  i , j: byte  ;
Begin 
              Writeln ( ' Enter  Array ' )  ;                                                                                                 for    i: = 1    to    3        do                   
                    for    j: = 1    to    5        do                                           
                          Read ( a [ i , j ] )  ;                                                                                          Writeln   ;   Writeln  ( ' The  result  matrix ' )   ;                          
              For    i: = 1    to    5    do       Begin
                     For    j: = 1    to    5    do        Begin
                              Write  ( a [ i , j ]: 8: 2 )   ;                                                        
                              Sum: = sum + a [ i , j ];{ calculate sum  of  any row }
                     End  ;
                    Writeln (  sum: 8: 2  )  ;   Sum : = 0  ;
            End  ;
End. { End  of  program
برنامه ای بنويسيد که يک جمله حداکثر 90 کاراکتري را از ورودي دريافت کرده وسپس کاراکترهاي فضاي خالي را با کاراکترستاره جايگزين کند
Var               state: array [ 1.. 90 ]  of  char  ;
                     i , N : integer  ;
Begin 
                    Writeln ( ' Enter  Number  of  sentence: ' )  ;            
                    Readln ( N )  ;                                                                                         
                    Writeln (' Enter  sentence ' )   ;
                    for    i: = 1    to    N        do                 
                          Read ( state [ i ] )  ;                       
                    for    i: = 1    to    N        do                 
                           if  state [ i ] = ‘  '  Then
                               state [ i ]: = ' * '  ; 
                    Writeln   ;
                    Writeln ( ' The  output  sentence ' )   ;     
                    for    i: = 1    to    N        do                
                            Write ( state [ i ] )  ;
 End. { End  of  program }

برنامه اي بنويسيد كه اسامي 100 نفر را از ورودي خوانده و انها را به روش حبابي مرتب و در خروچي آن را چاپ كند

Var

            Name    :    Array   [ 1 .. 100 ]    of    string [ 100 ]  ;        

            string [ 100 ]  ;   temp :    i , j : Byte;

Begin

            writeln ( ' Enter  Ten  Names ' )  ;               

            for    i : = 1     to    100     do     

                     Readln ( Name [ i ] )  ;                        

            for    j : = 1     to    9     do    

                for    j : = i +1     to    100     do                          

                     if   Name  [ i ]  >  Name  [ j ]  Then  Begin                        

                                            Temp : = name [ i ]  ;

                                             Name [ i ] : = Name [ j ]  ;

                                             Name [ j ] : = temp  ;

                     End  ; { sort  Algrithm }

           writeln ( ' The  sorted  list ' )  ;                 

           for    i : = 1     to    100     do                 

                    writeln ( Name [ i ] )  ;                           

end . { End  of  program }

 

 

برنامه ای که مقلوب یک عدد را چاپ کند (پاسکال)

program  pr49;
          uses  wincrt

           var
          p,r, m,n:longint;
          
       begin
           write ('enter a num');  readln(n);
           m:=n;
           while n>0 do begin
           r:=n mod 10;n:=n div 10;
           p:=p*10+r;
           end;
           writeln(' num=', 'reverse=',p);

              end.

قابل توجه دانشجویان ، کلاسهای درس مبانی کامپیوتر و برنامه سازی پیشرفته در تاریخ ۸و ۹ آذرماه برگزار نخواهد شد. کلاس جبرانی هفته آینده ۱۵ و ۱۶ آذر تشکیل خواهد شد.

امتحان ميان ترم  برنامه سازی پیشرفته در ۷/۹/۱۳۸۶  چهارشنبه ساعت ۹ صبح برگزار  ميگردد .

امتحان ميانترم مباني كامپيوتر رشته رياضي و مهندسي كامپيوتر در ۷/۹/۱۳۸۶ در چهارشنبه ساعت ۹ صبح برگزار  ميگردد .

قابل توجه دانشجويان برنامه سازي پيشرفته

تمرين برنامه نويسي تا فصل ۶ به عنوان تكاليف توسط دانشجويان بايد ارائه شود

برنامه یک عدد در مبنای ۲

Var
      a: array [ 1.. 10] of  integer  ;j , number , i: integer  ;
Begin
                               Writeln ( ' please  enter    Numbers ' )  ;
                               
                                 i:=1;
                                 while number >=0 do
                                     begin
                                       a[i]:=number mod 2 ;
                                       number:=number div 2;
                                       i:=i+1;
                                                End  ;
                  for j:=i-1 down to 1 do
                  wite (a[j]);
 end

بر نامه یک عدد در مبنای شانزدprogram p83;
uses wincrt;
Var
      hex: array [ 1.. 10] of char  ;j , number , i,r: integer  ;
Begin
                               Writeln ( ' please  enter    Numbers ' )  ;
                                 readln(number);
                                 i:=1;
                                 while number >=0 do
                                     begin
                                       r:=number mod 16 ;
                                              case r of
                                              0:hex[i]:='0';
                                              1:hex[i]:='1';
                                               2:hex[i]:='2';
                                              3:hex[i]:='3';
                                                4:hex[i]:='4';
                                              5:hex[i]:='5';
                                               6:hex[i]:='6';
                                               7:hex[i]:='7';
                                               8:hex[i]:='8';
                                              9:hex[i]:='9';
                                               10:hex[i]:='A';
                                              11:hex[i]:='B';
                                                12:hex[i]:='C';
                                             13:hex[i]:='D';
                                               14:hex[i]:='E';
                                               15:hex[i]:='F';

                                                End  ;
                                                I:=I+1;
                                                NUMBER:=number div 16;
                                                end;
                  for j:=i-1  downto 1 do
                  write (hex[j]);
 end.
ه

برنامه ای که مقلوب یک عدد را#include
#include
int main()
{
    int num, digit ;
   // clrscr();
    while(2){
       cout << "\nEnter a number:";
       cin >> num;
       cout << "Inverse = ";
       do{
         digit = num % 10;
         cout << digit;
         num /= 10;
       } while(num != 0);
    }//end of while(1)
    return 0;
}
چاپ می کند