دنیای کامپیوتر

استعفای سردبیر انجمن علمی کامپیوتر

دانشگاه پیام نور شهرجدید هشتگرد

اطلاعیه تیم رباتیک دانشگاه

تیم رباتیک دانشگاه عضو گیری می کند!

منبع: انجمن علمی کامپیوتر

ادامه مطلب

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

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

انجمن علمی کامپیوتر: atcpnu.blogfa.com

برای مثال:

کلیه کلاسهای آقای مهندس پندی روز پنجشنبه مورخه 23/7/88 تشکیل نخواهد شد. کلاسهای جبرانی متعاقبا اعلام خواهد شد.

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

آقایان: مهندس بهزاد شهسواری، مهندس ابراهیم شادمنامن و مهندس علی برجی عزیزانی هستند که اقدام به راه اندازی این سایت نموده و آمادگی ارائه خدمات به شهروندان نظرآبادی نموده اند. و آماده دریافت درخواستها، نظرات، یشنهادات و انتقادات سازنده شما شهروندان عزیز می باشند.

از شهروندان نظرآبادی خواهشمند است جهت ارائه هرچه بهتر این خدمات دوستان را یاری بفرمایند.

آدرس سایت شهرستان نظرآباد: www.nazarabad.net

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

ارتباط مستقیم با کارشناسان دانشگاه، اردوی علمی، دریافت برنامه کلاسی نیمسال اول ۸۸ و لیست ارائه دروس، وضعیت منابع درسی، جدول تطبیق دروس، تاریخ زمانبندی ثبت نام پذیرفته شدگان ورودی جدید سال ۸۸ ، اطلاع از سرویس رفت و آمد به دانشگاه و حد مجاز انتخاب واحد فقط در وبلاگ انجمن علمی کامپیوتر به آدرس های ذیل میسر میباشد.

http://css.hoo.ir
http://www.atcpnu.blogfa.com

قابل توجه دانشجویان شهرستان نظرآباد که در

دانشگاه پیام نور شهرجدید هشتگرد

مشغول به تحصیل می باشند

ادامه مطلب

منبع : www.AsanMob.com

نرم افزار دانستنیهای رمضان : رمضانیه 2
ماه رمضان نهمین ماه از ماههای قمری و بهترین ماه سال است. واژه رمضان از ریشه «رمض» و به معنای شدت تابش خورشید بر سنگریزه است. می‌گویند چون به هنگام نامگذاری ماه های عربی، این ماه در فصل گرمای تابستان قرار داشت، ماه «رمضان» نامیده شد، ولی از سوی دیگر، «رمضان» از اسماء الهی است. این ماه ماه نزول قرآن و ماه خداوند است و شب‌های قدر در آن قرار دارد. فضیلت ماه رمضان بسیار زیاد و نامحدود است.

اين نرم افزار ارزشمند شامل:
- خطبه شعبانيه
- رمضان در مفاتيح الجنان
- احکام روزه مطابق با فتواي مرحوم امام خميني (ره )4
- روزه از نظر قرآن کريم
- چهل حديث
- توصيه هاي بهداشتي در ماه مبارک رمضان
- و...

اين نرم افزار به صورت جاوا مي باشد و بر روي اکثر گوشي هايي که جاوا پشتيباني مي کند قابل نصب مي باشد.

جهت دانلود به ادامه مطلب مراجعه فرمایید.

ادامه مطلب

بالاخره Nero یک نسخه رایگان از برنامه محبوب خود برای رایت سی دی برای ویندوز منتشر کرد، Nero 9 essential یک برنامه خیلی خیلی ساده و سبک است برای رایت سی دی است که توسط Nero برای ویندوز منتشر شده است.

این برنامه بسیار ساده، فقط به شما امکان رایت سی دی های Data می دهد، شما با این برنامه نمی توانید سی دی صوتی و یا تصویری ایجاد کنید. شما فقط به ویژگی های اضافی ماننند تنظیم سرعت و ... برای رایت سی دی های Data دسترسی دارید.
این برنامه با حجم 54.4 مگبایت بعد از نصب 150 مگابایت از فضای هارد دیسک شما را اشغال می کند، همچنین در هنگام اجرا فقط 100 مگابایت حافظه اصلی اشغال می کند.

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

بزرگترين مجموعه سايت‌‏هاي اينترنتي ايران راه‌‏اندازي شد

بزرگترين مجموعه سايت‌‏هاي اينترنتي ايران در راستاي پيشبرد اهداف فناوري اطلاعات در كشور راه‏اندازي شد. به گزارش ايلنا, مجموعه سايت‌‏هاي "ما" وابسته به پايگاه اطلاع‌‏رساني " تهران ما" بزرگترين مجموعه سايت‌‏هاي اينترنتي در ايران است كه در رشته‏هاي مختلف فعاليت مي‏كند. براساس اين گزارش، اين مجموعه شامل مسكن ما(WWW.MASKANMA.COM) ، خودرو ما (WWW.KHODROYEMA.COM)، رايانه ما (WWW.COMPUTEREMA.COM)، آموزش ما (WWW.AMOOZESHEMA.COM) و بازار ما (WWW.BAZAREMA.COM) است. بنابراين گزارش، سايت تهران ما شامل اخبار، اطلاعات شهري، اطلاعات اقتصادي وگالري عكس موضوعي در حوزه‏هاي گوناگون است.

رئيس دانشگاه پيام نور طول دوره و سنوات مجاز تحصيلي در اين دانشگاه را اعلام كرد.

محمد حسيني درباره طول دوره و سنوات مجاز تحصيلي در دانشگاه پيام نور گفت: حداكثر مدت مجاز تحصيل براي كارداني و كارشناسي ناپيوسته در دانشگاه پيام نور 5 سال است.

وي گفت: حداكثر مدت مجاز تحصيل در مقطع كارشناسي دانشگاه پيام نور 10 سال تعيين شده است و در صورتي كه دانشجو نتواند در مدت فوق واحدهاي دوره را تكميل كند از دانشگاه اخراج مي‌شود.

رئيس دانشگاه پيام نور اظهار داشت: براي دانشجوياني كه از معافيت تحصيلي استفاده مي كنند حداكثر مدت مجاز تحصيل در دوره‌هاي كارداني يا كارشناسي ناپيوسته دانشگاه پيام نور 3 سال و براي دوره كارشناسي اين دانشگاه 6 سال است، درصورت عدم تكميل سقف دوره در اين مدت، دانشجو به عنوان اخراجي به حوزه نظام وظيفه معرفي مي‌شود.

نتیجه انتخابات انجمن علمی کامپیوتر

به گزارش امورفرهنگی دانشگاه.

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

ادامه مطلب

انتخابات انجمن علمی کامپیوتر برگزار گردید.

به نام خدا

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

انتخابات انجمن های علمی دانشگاه پیام نور

بنابراین از دانشجویان رشته های کامپیوتر علاقمند به فعالیت در انجمن علمی کامپیوتر دعوت می شود جهت کاندید شدن ثبت نام نمایند تا پس از احراز صلاحیت( شرط معدل ... ) و رای گیری و کسب تعداد آراء لازم، به فعالیت در انجمن علمی کامپیوتر بپردازند.

مهلت ثبت نام:۳۱/۰۲/۸۸
زمان انتخابات:۰۱/۰۳/۸۸ روز جمعه از ساعت ۸ الی ۱۱

تمامی دانشجویانی که در کلاس های ISO 9001:2008 که بوسیله انجمن علمی کامپیوتر برگزار گردید توانستند این دوره را با موفقیت گذرانده و مدرک بین المللی ممیز داخلی این دوره را کسب نمایند

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

بزودی دوره امنیت اطلاعات با مدرک بین المللی توسط انجمن علمی کامپیوتر برگزار میشود.(جهت ثبت نام به انجمن علمی کامپیوتر مراجعه نمایید، با توجه به محدود بودن پذیرش اولویت با کسانی است که زودتر ثبت نام کرده اند).

اطلاعیه ISO 9001:2000

جهت دریافت مدراک این دوره!

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

پیام نور هشتگرد افتخار آفرید!

آموزش پاسکال درس ۳

امروز می خواهم یک دستور مهم و پر کاربرد را به شما آموزش بدهم :

# دستور if

این دستور را اگر بخواهیم با معنای فارسی آن که در ( ) نوشته ام بنویسیم اینطور می شود :

(سپس)then شرط (اگر)if
(شروع)begin
;دستورات
;(پایان)end

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

مثال :

در مثال زیر یک عدد از کاربر می گیریم و اگر آن عدد از 100 بزرگتر بود yes و اگر مساوی 100 بود yesno و اگر کوچکتر از 100 بود no را در جواب نمایش میدهد .

;Program sardar8
;Uses WinCRT
var
a:integer;
Begin
clr scr;
;('write('enter greade of our weblog more than 100 or 100 or less than 100
;(readln(a
if a>100 then
begin
;('writeln ('yes
end;
if a=100 then
begin
;(writeln ('yesno
end;
if a<100 then
begin
;(writeln ('no
;end
End.

همانطور که در مثال بالا دیدید در بیان شرط از علامت های <>= استفاده کرده ایم . در زیر اینگونه علامت ها را به طور کامل توضیح می دهیم .

تساوی =

نامساوی<>

کوچکتر>

بزرگتر<

کوچکتر یا مساوی >=

بزرگتر یا مساوی <=

نکته !

اگر ما از دستور if در یک خط استفاده کنیم نیاز به brgin و end نیست مانند این مثال :

;('if a=100 then writeln('yesno

توجه !

از {} برای نوشتن توضیحات در وسط کد استفاده می شود . از این پس هر متنی را که در میان {} در کدها نوشتیم فقط برای توضیح بیشتر است .

# دستور if به همراه else

این دستور دقیقا" مثل if است ولی فقط قسمتی به نام else دارد که توضیح می دهم :

(سپس)then شرط (اگر)if
(شروع)begin
;دستورات
(پایان)end
(در غیر اینصورت)else
(شروع)begin
;دستورات
;(پایان)end
.End

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

نکته !

قبل از else , در خط بالایش نباید ; قرار بگیرد

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

يا مقلب القلوب والابصار

يا مدبر الليل و النهار

يا محول الحول والاحوال

حول حالنا الي احسن الحال

سال و فال و مال و حال و اصل و نسل و تخت و بخت
بادت اندر شهرياري برقرار و بر دوام
سال خرم ، فال نيكو ، مال وافر ، حال خوش
اصل ثابت ، نسل باقي ، تخت عالي ، بخت دوام

*سال نو مبارک*

اجرای ۲ روزه دوره آموزشی - علمی

تشریح الزامات سیستم مدیریت کیفیت

ISO 9001:2000

دوره آموزشی - علمی

ISO 9001:2000

اطلاعيه در خصوص نمرات اعلام شده

آزمون نيمسال اول سال تحصيلي 88-87

ادامه مطلب

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

لینک زیر مراجعه نمائید.

انجمن علمی کامپیوتر

سلام دوستان

دانشجویان دانشگاه های پیام نور در حین و پس از برگزاری امتحانات این دانشگاه ها به نحوه امتحانات و سطح سوالات و غیر استاندارد بودن سوالات اعتراض کردند، که با توجه به این اعتراضات امتحان بعضی از دروس لغو و دوباره برگزار گردید و همچنین بعد از آن دانشجویان در اعتراض کلی به امتحانات نیمسال اول ۸۷ - ۸۸ دانشگاه پیام نور اقدام به امضای اینترنتی نمودند.

آموزش پاسکال درس ۲

# دستور: writeln

همان دستور write می باشد با این تفاوت که بعد از عمل نوشتن نوشته به خط بعد می رود .

;Program sardar5
;Uses WinCRT
Begin
;('writeln('sardar hopes to teach you pascal
.End

استفاده از متغیر :

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

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

من در اینجا یک متغیر از نوع string (متنی) تعریف کرده ام .

پس از تعریف متغیر باید داده را در آن قرار داد که برای این کار از علامت انتصاب یعنی := مانند قسمت قهوه ای استفاده می کنیم .

;Program sardar6
;Uses WinCRT
var
;a:string
;b:string
Begin
;'a:='hello
;'b:='a
;(write (a
;(write (b
.End

متغیر متغیر ها انواع مختلفی دارند که هر نوع آن ها استفاده مخصوص به خود را دارند . مثلا متغیر strin برای متن و integer برای اعداد می باشد .

در درس های بعد به طور مفصل متغیر ها را مورد بررسی قرار می دهیم .

# دستورread

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

مثال :

این برنامه یرای مثال ابتدا 2 عدد از کاربر می گیرد و آن ها را جمع می کند ، سپس نتیجه را نمایش می دهد .

همچنین دستور readln داده ها را از کاربر در خط بعد می گیرد .

;Program sardar7
;Uses WinCRT
var
;a:integer
;b:integer
Begin
;('write('enter two numbers to add
;(readln(a,b
;a:=a+b
;(write ('a=',a
.End

سلام دوستان

با عرض تسليت به مناسبت فرارسيدن ايام شهادت

سرور و سالار شهيدان حضرت ابا عبدالله الحسين

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

# انواع زبان های برنامه نویسی:

زبان های نسل اول : زبان ماشین 010110

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

زبان های نسل سوم : پاسکال ،3GL , Basic , Ada , PL1 , C T ...

زبان های نسل چهام : دلفی ، ویژوال بیسیک ، جاوا ، asp.net

زبان های نسل پنجم : زبان های هوشمند

برای برنامه نویسی به سه چیز نیاز داریم : 1.الگوریتم 2.کامپیوتر 3.برنامه

برای دانلود زبان برنامه نويسی پاسکال به

اين لينک برويد.

# ساختار کلی برنامه نویسی به زبان پاسکال :

; نام برنامه Program
برای پاسکال تحت داس یا Uses WinCRT; برای پاسکال تحت ویندوز ;Uses CRT
Begin
;دستورات
.End

:# دستور write

جهت نوشتن هر متنی روی صفحه ی مونیتور مورد استفاده قرار می گیرد .

;Program sardar 1
;Uses WinCRT
Begin
;('نوشته ی مورد نظر مثل=>Write(' This is made by sardar-rayaneh.blogfa.com
.End

:# دستور gotoxy

جهت دادن مختصات چاپ بکار می رود .

;Program sardar 2
;Uses WinCRT
Begin
;(Gotoxy(10,18
;('.Write('This is made by S.B
;(Gotoxy(5,10
;('Write(' sardar-rayaneh.blogfa.com is the weblog of computer programming group
.End

:# دستور CLRscr

Begin جهت پاک کردن صفحه ی نمایش معمولا" بعد از قرار می گیرد .

:# دستور Textbackground

با استفاده از این دستور می توانیم رنگ زمینه را با استفاده از نام خود رنگ ها تغییر دهیم .(توجه : این دستور در توربو پاسکال تحت ویندوز کار نمی کند )

;Program sardar 3
;Uses WinCRT
Begin
CLR Scr
);Textbackground(green
);Gotoxy(10,18
;('Write('Our e-mail address is sardar.sb63@gmail.com
.End

:# دستور Textcolor

جهت تغییر رنگ نوشته به کار می رود .(توجه : این دستور در توربو پاسکال تحت ویندوز کار نمی کند )

از blink همچنین جهت چشمک زدن متن استفاده می شود که در این مثال هم ما رنگ آبی را چشمک زن قرار دادیم .

;Program sardar 4
;Uses WinCRT
Begin
;(Textbackground(green
CLR Scr
;(textcolor(red
;('write('sardar hopes to learn you pascal
;(textcolor(blue + blink
;('Write('you can ask your questions by sardar.sb63@gmail.com
.End

درس ۲ در مورد # دستور: writeln ، استفاده از متغیر و # دستور:read خواهد بود......

سلام دوستان

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

uses crt;
var
m1,m2,m3:array[1..100,1..100] of integer;
i,j,k,m,n,g,f,o:integer;
begin
clrscr;
writeln ('insert degrees of m1 and m2');
readln (m,n);
gotoxy (35,2);
readln (f);
gotoxy (35,3);
readln (o);
if f<>n then
    writeln('multiplication can not be done ');
if f=n then
    begin
      clrscr;
      for i:=1 to m do
        for j:=1 to n do
          begin
            gotoxy (5*j,i);
            readln (m1[i,j]);
          end;
      clrscr;
      for i:=1 to f do
        for j:=1 to o do
          begin
            gotoxy (5*j,i);
            readln (m2[i,j]);
          end;
      for i:= 1 to m do
        for j:=1 to n do
          for k:=1 to o do
            m3[i,k]:=m1[i,j]*m2[j,k]+m3[i,k];
      clrscr;
      for i:=1 to m do
        for j:=1 to o do
          begin
            gotoxy (5*j,i);
            write (m3[i,j]);
          end;
    end;
readln;
end.

سلام دوستان...............

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

uses crt;
var
m1,m2,m3:array[1..100,1..100] of integer;
i,j,k,m,n,g,f,o:integer;
begin
clrscr;
writeln ('insert degrees of m1 and m2');
readln (m,n);
gotoxy (35,2);
readln (f);
gotoxy (35,3);
readln (o);
if f<>n then
    writeln('multiplication can not be done ');
if f=n then
    begin
      for i:=1 to m do
        for j:=1 to n do
          begin
            gotoxy (5*j,i*2+5);
            readln (m1[i,j]);
          end;
      for i:=1 to f do
        for j:=1 to o do
          begin
            gotoxy (5*j+25,2*i+5);
            readln (m2[i,j]);
          end;
      for i:= 1 to m do
        for j:=1 to n do
          for k:=1 to o do
            m3[i,k]:=m1[i,j]*m2[j,k]+m3[i,k];
      for i:=1 to m do
        for j:=1 to o do
          begin
            gotoxy (5*j+50,2*i+5);
            write (m3[i,j]);
          end;
    end;
readln;
end.

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

تبديل تاريخ ميلادی و شمسی به هم

اگه احتمالا تاحالا سعی کرده باشيد که يه برنامه ديتابيس بنويسيد به مشکل تاريخ شمسی بر خورديد!!!

ديتابيسها از تاريخ ميلادی پشتيبانی ميکنن و از تاريخ شمسی ما بدشون مياد !!!

توابع تبديلی رو نت ميشه پيدا کرد مثلا يکی تو سايت www.iranasp.net معرفی شده که شديدا تو سالهای کبيسه باگ و قاط داره.

تقريبا تمام کسانی که از روشهايی مبتنی بر يکسری آرايه برای محاسبه استفاده کردند دچار مشکل هستن و اصلا قابل اعتماد نيستن. اما روشی که من ميخوام معرفی کنم کاملا علمی و بر پايه محاسبات علم نجوم و تقويم شناسی پياده سازی شده و اصلا مو لا درزش نميره!!(ميگی نه تستش کن)

اما يه نکته که هست اينه که چون من کارهای ديتابيس رو با Delphi { پاسکال )انجام ميدم اينو بصورت ۲ تا تابع دلفی نوشتم و چون تا حالا ویژوال سی پلاس پلاس را عملی کار نکرده ام به این زبان ننوشتم و اگه فرصت شد و خواستيد مينويسم و تو وب لاگ ميگذارم.

۲ تا تابع يکی برای تبديل ميلادی به شمسی و ديگری برای تبديل شمسی به ميلادی هستش و خروجی اينها رو من يه رشته در نظر گرفتم ::

function Miladi2Shamsi(iyear,imonth,iday:integer):string;
var
aa:string ;
jdn,jdn2,depoch,cycle,cyear,ycycle,aux1, aux2,yday:integer;
epbase,epyear,mdays:integer;
Const PERSIAN_EPOCH = 1948321 ;
begin
    If ((iYear > 1582) Or ((iYear = 1582) And (iMonth > 10)) Or ((iYear = 1582) And (iMonth = 10) And (iDay > 14))) Then
        jdn:=((1461*(iYear+4800+((iMonth-14) div 12))) div 4)+((367*(iMonth-2-12*(((iMonth-14) div 12)))) div 12)-((3*(((iYear+4900+((iMonth-14) div 12)) div 100))) div 4)+iDay-32075
    Else
    jdn := 367 * iYear - ((7 * (iYear + 5001 + ((iMonth - 9) div 7))) div 4) + ((275 * iMonth) div 9) + iDay + 1729777;
    epbase:=475-474;
    epyear:= 474 + (epbase Mod 2820) ;
    mdays:= (1 - 1) * 31 ;
    jdn2:=1+mdays+ Trunc(((epyear*682)-110)/ 2816)+(epyear-1)*365+Trunc(epbase / 2820)*1029983+(PERSIAN_EPOCH-1);
    depoch:=jdn-jdn2;
    cycle:= Trunc(depoch / 1029983);
    cyear:= depoch Mod 1029983 ;
    If cyear = 1029982 Then
        ycycle:=2820
    Else
    begin
        aux1:=Trunc(cyear / 366);
        aux2:=cyear Mod 366;
        ycycle:=round(((2134*aux1)+(2816*aux2)+2815) / 1028522)+aux1+1;
    End;
    iYear:=ycycle+(2820*cycle)+474;
    If iYear <= 0 Then
        iYear:=iYear-1;
    If iYear>=0 Then
        epbase:=iYear-474
    Else
        epbase:=iYear-473;
    epyear:=474+(epbase Mod 2820);
    mdays:=(1-1)*31;
    jdn2:=1+mdays+Trunc(((epyear*682)-110)/ 2816)+(epyear-1)*365 +Trunc(epbase / 2820)*1029983+(PERSIAN_EPOCH-1);
    yday:=(jdn-jdn2)+1;
    If yday <= 186 Then
        iMonth:= -Sign(yday / 31) * round(-Abs(yday / 31))
    Else
        iMonth:= -Sign(((yday - 6) / 30)) * round(-Abs((yday - 6) / 30));
    If iYear >= 0 Then
        epbase:=iYear-474
    Else
        epbase:=iYear-473;
    epyear:=474+(epbase Mod 2820);
    If iMonth <= 7 Then
        mdays:=(iMonth-1)*31
    Else
        mdays:=(iMonth-1)*30+6;
    jdn2:=1+mdays+Trunc(((epyear*682)-110)/ 2816)+(epyear-1)*365+ Trunc(epbase / 2820)*1029983+(PERSIAN_EPOCH-1);
    iDay:=(jdn-jdn2)+1;
     aa:=inttostr(iYear)+'/'+inttostr(iMonth)+'/'+inttostr(iDay);
Miladi2Shamsi:=aa;
end;

-------------------------------------------------------------------------------

//////////////////////////Shamsi2Miadi
function Shamsi2Miladi(iyear,imonth,iday:integer):string;
var
    aa:string;
    epbase,epyear,mdays,jdn,l,n,i,j,k:integer;
    Const PERSIAN_EPOCH = 1948321;
begin
    If iYear >= 0 Then
        epbase:=iYear-474
    Else
        epbase:=iYear-473;
    epyear:=474+(epbase Mod 2820);
    If iMonth <= 7 Then
        mdays:=((iMonth)-1)*31
    Else
        mdays:=((iMonth)-1)*30+6;
   jdn:=iDay+mdays+Trunc(((epyear*682)-110) div 2816)+(epyear-1)*365+trunc(epbase div 2820)*1029983+(PERSIAN_EPOCH-1);
   If (jdn > 2299160) Then
   begin
        l := jdn + 68569;
        n := ((4 * l) div 146097);
        l := l - ((146097 * n + 3) div 4);
        i := ((4000 * (l + 1)) div 1461001);
        l := l - ((1461 * i) div 4) + 31 ;
        j := ((80 * l) div 2447);
        iDay := l - ((2447 * j) div 80);
        l := (j div 11) ;
        iMonth := j + 2 - 12 * l ;
        iYear := 100 * (n - 49) + i + l;
    end
   Else
    begin
    j := jdn + 1402;
    k := ((j - 1) div 1461);
    l := j - 1461 * k   ;
    n := ((l - 1) div 365) - (l div 1461) ;
    i := l - 365 * n + 30 ;
    j := ((80 * i) div 2447)   ;
    iDay := i - ((2447 * j) div 80)   ;
    i := (j div 11)   ;
    iMonth := j + 2 - 12 * i   ;
    iYear := 4 * k + n + i - 4716 ;
   end;
     aa:=inttostr(iYear)+'/'+inttostr(iMonth)+'/'+inttostr(iDay);
     Shamsi2Miladi:=aa;
end;

اميدوارم مفيد باشه براتون (که حتما خواهد بود)

موفق باشيد.

سلام دوستان

نتیجه نظرسنجی آبان ماه در مورد تاسیس انجمن علمی در دانشگاه

با تاسیس انجمن علمی تخصصی کامپیوتر در دانشگاه موافق هستید؟

1- موافق هستم

2۵رای - ۹۶.۱۵%

2- موافق نیستم

۰رای - ۰%
3- بی تفاوت هستم

۱رای - ۳.۸۵%
4- نیازی به انجمن نیست
0رای - 0%

سلام دوستان

شروع کلاس های برنامه نویسی انجمن علمی کامپیوتر

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