تبليغاتX
مكانيك پايان تمام مهندسي هاست

مكانيك پايان تمام مهندسي هاست

امام علی(ع):از خدا چنان که شایسته ی اوست شرم کنید .

از  کار انداختن رمز عبور BIOS

  بسياري از شماها هنگام روشن کردن کامپيوتر قبل از آنکه سيستم عامل خاصي بالا بيايد به سد محکمي با نام رمز عبور BIOS برخورد کرده ايد. رمز عبوري که بر خلاف ساير رمز عبورها به هيچ وجه در هارد ديسک کامپيوتر ذخيره نميشود. يا همين مشکل موقعي که مي خواهيد مشخصات Setup نامپيوتر را عوض کنيد پيش ميآيد. اين مقاله به معرفي چند روش براي حل اين مشکل ميپردازد. فرض ما بر اين است که شما رمز عبور کامپيوتر خود را فراموش کرده ايد و دنبال راه حل هستيد و قصد اذيت کردن و دست بردن در کامپيوتر کسي را نداريد.

ادامه مطلب...


ادامه مطلب

+نوشته شده در سه شنبه چهارم تیر 1387ساعت16:28توسط رضا مسعودی نژاد | |

توابع چند جمله ای :

 

در نسخه های قدیمی تر فرترن یم تابع در یک خط تعریف می شد: مثل

F(x) = x **3 + x  - 3     

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

زیر دستورالعمل های درونی

زیر دستورالعمل ها بسیار شبیه توابع هستند .تفاوت های آنها به صورت زیر است :

·        هیچ مقداری به نام زیر دستور العمل ربط داده نمی شود

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

·        کلمه کلیدی SUB ROUTINE در تعریف و همچنین در جمله ENDاستفاده می شود .

·        زیر دستور العمل به هیچ توضیحی احتیاج ندارد در اینصورت نام آن بدون پرانتز نوشته می شود برای مثال:

Call plonk

یک تابع بدون توضیح باید پرانتزهای خالی داشته باشد برای مثال

 fung(   )

برنامه زیر با زیر دستورالعمل pretty line که دو توضیح غیر واقعی دارد یک خط را چاپ می کند.

Num تعداد کاراکترهایی که باید چاپ شود را مشخص می کند و SYMBOL کد ASCALL کاراکترهایی است که باید چاپ شود.

IMPLICIT  NONE

 

CALL  PrettyLine (5  2)

 

CONTAINS

   SUBROUTINE  PrettyLine (Num   Symbol)

  INTERGER   I  Num  Symbol

  Character*80 Line

  DO I =1 Num

    Line (I:I) =ACHAR (Symbol)

END  DO

PRINT*  Line

END  SUBROUTINE


ادامه مطلب

+نوشته شده در دوشنبه سیزدهم خرداد 1387ساعت12:5توسط رضا مسعودی نژاد | |

                                                                روش مکرّری نیوتن                                              

 

PROGRAM Newton

!sollves f(x)=0  by Newtons method

Implicit non

INTEGER   : :Its                  =0                  !iteration counter

INTEGER   : :max Its          =20                !maximum iterations  

LOGICAL   : :Converged    = . false         !convergence  flag

REAL           : :Eps                =le-6            ! maximum error

REAL           : :X                    =2               !starting  guess

 

Do while  (.not.  converged .and. its 

X=x-f(x)/df(x)

Print* x  F(x)

Its=Its+1

Converged = ABS ( F(x))<=Eps

END  Do

IF (Converged) THEN

PRINT*  Newton   Converged

ELSE

PRINT*  Newton  diverged

END     IF

CONTAINS

      FUNCTION   F(X)

      !  Problem is to solve f(x) = 0

REAL F   X

END FUNCTION F

 

FUNCTION  DF(X)

!FIREST DERIVATIVE  OF  F(X)

REAL  DF   X

DF = 3 * X ** 2+1

END  FUNCTION  DF

END  PROGRAM Newton


ادامه مطلب

+نوشته شده در یکشنبه دوازدهم خرداد 1387ساعت17:41توسط رضا مسعودی نژاد | |

۱۰ لپ تاب برتر این ماه

این جدیدترین رده بندی این مجله در این ماه (MAY 2008)  است. این لپ تاپ‌ها برای همه نوع سلیقه و نیاز مناسب هستند. از استفاده ساده تا کارهای گرافیکی و غیره با قیمت‌های مناسب هر سلیقه و بودجه....

البته  با ورود تکنولوِژی‌های جدید، قیمت‌های مل‌های قبل کاهش پدا می‌کند. به این لپ تاپ‌ها اصطلاحا ALL PURPOSE   گفته می‌شود؛  یعنی همه کاره و چند منظوره ..

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


ادامه مطلب

+نوشته شده در شنبه یازدهم خرداد 1387ساعت9:23توسط رضا مسعودی نژاد | |