پنجشنبه شانزدهم تیر 1384

اطلاعیه

به زودی دوباره این وبلاگ فعال خواهد شد

نوشته شده توسط پژمان رودخانه ای در 17:43 | | لینک به این مطلب

دوشنبه سی ام آذر 1383

:: برنامه ی محاسبه ماکسیمم در پاسکال

:: برنامه یی که ابتدا از شما تعداد عددی را که میخواهید ماکسیممشان را محاسبه کنید از ورودی می گیرد و بعد یکی یکی اعداد را از شما می پرسد و بعد ماکسیمم را از بین این اعداد پیدا کرده و در خروجی چاپ میکند

 

Program Maximum;

      uses crt; {Call CRT Unit }

      label 1;

      var n,n1,i,m,j,x,y,max : longint; {Define Variable }

begin { Start Program}

  clrscr; {For Clear Screen}

  j := 1;

  textcolor(9); {For Change Text color , 9 is Equal Dark Blue }

  Write(' : چه تعداد عدد را میخواهید محاسبه کنید Maximum');

  gotoxy(10,1);

  read(n);

  writeln('');

  textcolor(green);

  write(' Number 1 : ');

  read(n1);

  max := n1;

  for i := 2 to n do

   begin

      textcolor(3);

      writeln('');

      textcolor(green);

      write(' Number ',i,' : ');

      readln(m);

1:    if m > max then max := m;

      j := j+1;

      if j < n then

      goto 1;

  end;

  textcolor(yellow);

  writeln('');

  write(' (MAX) ماکسیمم : ', max,' ');

  readln;

end. {End of Program}

نوشته شده توسط پژمان رودخانه ای در 15:54 | | لینک به این مطلب

دوشنبه سی ام آذر 1383

:: نوشتن برنامه های فارسی در Pascal

شاید برای خیلی از شما دوستان پیش آمده باشد که بخواهید در برنامه هایی که با زبانهایی مثل Q-Basic یا ++C / C و یا Pascal می نویسید پیام ها و یا منوها فارسی باشند خوب این کار , کار مشکلی نیست فقط کافیست مراحل زیر را به درستی انجام دهید . خوب ابتدا چند برنامه ی فارسی ساز DOS را به شما معرفی میکنم 1. Vegaf.com : که این برنامه فقط محیط داس را اماده نمایش برنامه هایی میکند که زبان فارسی نوشته شده اند  2. ُSepand : توسط این برنامه می توانید مستقیماً در محیط پاسکال فارسی تایپ کنید (مثلا هر وقت می خواهید که فارسی بنویسید کافیست که کلید Scroll Lock از کیبرد را فعال کنید) 3. برنامه F.com : این برنامه هم تمام کارهای Sepand  را انجام می ده ( خوب جالب بدانید که نویسنده دو برنامه اخیر یعنی Sepand و F.com یک نفر است یعنی وحید علیمردانی ) خوب لینک دانلود این برنامه ها رو هم براتون گذاشتم برای در یافت اینجا کلیک کنید.

در ضمن در اینجا هم یه روشی رو بهتون مگم تا هر وقتی که ویندوز بالا میاد محیط داس فارسی باشه یعنی قابلیت نمایش متن های فارسی رو داشته باشه و به اصطلاح فونتها خرچنگ قورباغه نباشه برای این کار از منوی Start روی Run کلیک کنید و در کادر ورودی cmd را تایپ کرده و Ok کنید ( منظورم این است که وارد Dos Prompt شوید ) حالا فرمان های زیر را در خط فرمان بنویسید :

Drive:\ ......\ .....>cd\

drive:\>c:

c:\>edit c:\Autoexec.bat

در این حالت محیط ویرایش DOS ظاهر شود خوب در بروید به آخرین خط و در یک خط خالی مسیر ی را که فایل Vegaf.com در آن قرار دارد را در آن بنویسید بهتر است که آن فایل را در درایو C کپی کنید, پس در اینجا خط زیر را تایپ کنید و بعد تغییرات را ذخیره و خارج شوید :

c:\vegaf.com

خوب در اینجا یک بار سیستم را Restart کنید . بعد از بالا آمدن سیستم Dos فارسی شده است ( همانطور که میدانیم محتویات فایل Autoexec.bat در هر بار بالا آمدن سیستم اجرا می شود )

خوب حالا می رسیم که چطور تو پاسکال فارسی بنویسیم : باید قبل از اینکه پاسکال را اجرا کنید باید یکی از فارسی نویسهای Sepand و F.com را اجرا کنید و بدون اینکه از Dos خارج شوید پاسکال را اجرا کنید ( برای اینکه در Dos راحتر کار کنید از برنامه معروف NC استفاده کنید )

 

نوشته شده توسط پژمان رودخانه ای در 15:52 | | لینک به این مطلب

چهارشنبه بیست و پنجم آذر 1383

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

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

اگر سوالی داشتید به من میل بزنید اگر بتوانم پاسخ می دهم . در صورتی که خواستید برام میل بزنید موضوع آنرا Pascal قرار دهید

موفق و پیروز باشید

نوشته شده توسط پژمان رودخانه ای در 23:46 | | لینک به این مطلب