تبليغاتX
دانشجویان کامپیوتر دانشگاه آزاد اسلامشهر

دانشجویان کامپیوتر دانشگاه آزاد اسلامشهر
 
مذهبی - آموزش - جزوه دروس - دانلود - تازه ها - ورزشی و...

Travian

www.Travian.ir

بدون شک بازی تراوین یکی از بهترین بازی های اینترنتی به حساب می یاد که خیلی ها از کشور های مختلف به این بازی مثل وابسته شدند . تو ایران 2 سرور از این بازی وجود داره که تو سرور اول 40209 بازیکن وجود داره ولی سرور دوم این بازی تازه کاره خودشو شروع کرده پس تا دیر نشده  ثبت نام بکنید .


ثبت نام

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



ادامه مطلب


نوشته شده در تاريخ جمعه چهاردهم فروردین 1388 توسط مدیر : شاهین نعمتی
مزایا برای کاربران windows XP


 

تولید عکس های Gif با کیفیتی در حد JPG

این کار توسط فتوشاپ امکان پذیر است و برای این کار از منوی File گزینه Save As for WEB را انتخاب می کنیم سپس در زیر قسمت Settings عبارت Jpeg را به Gif تغییر می دهیم و OK را می زنیم.

بقیه در ادامه مطلب



ادامه مطلب


نوشته شده در تاريخ سه شنبه بیستم اسفند 1387 توسط حسین خمامی

این ویروس به صورت دو فایل در درایوها قرار می گیرد و TaskManager , Registry , command dos , gpedit را از کار می اندازه و نام فایل ویروس به نامهای kazme__gheyz.exe و autorun.inf است كه توسط فردي ايراني و براي معرفي وبلاگش ساخته شده است.

مراحل از بین بردن ویروس

1- یک کپی از فایل Taskmgr.exe گرفته و نام آن را تغییر دهید (مثلاً Taskmgr1.exe). آدرس این فایل در C:\Windows\System32 است.
2- Taskmgr1.exe جدید که تغییر داده اید را اجرا کرده و از قسمت Process پروسسهای Kazme_Gheyz.exe یا Kazme__Gheyz.exe را با دکمه End Task خاتمه دهید.
3- تمام فایلهای Kazme__Gheyz.exe و Kazme_Gheyz.exe و Autorun.inf را از فهرست ریشه تمام درایوها پاک کنید.
4- فایلهای Kazme__Gheyz.exe یا Kazme_Gheyz.exe را از شاخه Windows/system32 نیز پاک کنید.
5- از منوی start->Run برنامه Regedit را اجرا کنید.
6- اگر رجیستری نیز اجرا نشد از فایل آن یک کپی بگیرید و اسم آنرا عوض کنید (مثلا Regedit1.exe). آدرس این فایل در C:\Windows\System32 است.
7- اکنون داخل رجیستری وارد شوید و Find را بزنید و عبارت Kazm را در آن نوشته و Enter کنید. تمامی مواردی که یافت می شود را با دکمه Del پاک کنید. برای یافتن مورد بعدی کلید F3 را بزنید.
8- برنامه Internet Explorer را اجرا کرده از منوی Tools --> Internet Option دکمه Use blank را انتخاب کنید.

اکنون کامپیوتر شما از این ویروس پاک شده است.


ادامه مطلب


نوشته شده در تاريخ سه شنبه یکم بهمن 1387 توسط مدیر : شاهین نعمتی

اینم یه فایل PDF واسه آموزش نرم افزار رشنال رز . برای دانلود روی عکس کلیک کنید .


ادامه مطلب


نوشته شده در تاريخ جمعه بیست و هفتم دی 1387 توسط مدیر : شاهین نعمتی

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



ادامه مطلب


نوشته شده در تاريخ شنبه هفتم دی 1387 توسط مدیر : شاهین نعمتی

 

 

از کار انداختن راست کلیک در میز تحریر



ادامه مطلب


نوشته شده در تاريخ جمعه ششم دی 1387 توسط 
نام مجموعه:آموزش جامع ++Cدر 7قسمت
فرمت:PDFتعداد صفحه ها70
حجم:حدود2مگابایت

~>دانلود<~

password:www.king-download.com


ادامه مطلب


نوشته شده در تاريخ چهارشنبه بیست و هفتم آذر 1387 توسط مدیر : شاهین نعمتی

به سایت www.google.com  بروید .

در قسمت جستجو کلمه ی google رو بر عکس بنویسید که میشه elgoog حالا دکمه ی I'm Feeling Kucky  رو بزنید . حالا کل نوشته ها تو سایت گوگل برعکس میشه !!! و هر چی هم بنویسید بر عکس دیده میشه !!!



ادامه مطلب


نوشته شده در تاريخ جمعه بیست و دوم آذر 1387 توسط مدیر : شاهین نعمتی

program dodoei;
uses crt;
var
a:array[1..20]of integer;
i,n:integer;
begin
clrscr;
write('lotfan yek adad vared konid >',' ');
readln(n);
i:=1;
clrscr;
Writeln('adad dar mabnaye 10 =',' ',n);
while n>0 do
begin
a[i]:=n mod 2;
i:=i+1;
n:=n div 2;
end;
Write('adad dar mabnaye 2 =',' ');
while i>0 do
begin
write(a[i]);
i:=i-1;
end;
readln
end.

عکسی از خروجی برنامه :

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

دریافت فایل اجرایی برنامه


ادامه مطلب


نوشته شده در تاريخ پنجشنبه بیست و یکم آذر 1387 توسط مدیر : شاهین نعمتی

عکسی از خروجی برنامه :


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

دانلود فایل اجرایی برنامه





ادامه مطلب


نوشته شده در تاريخ پنجشنبه بیست و یکم آذر 1387 توسط مدیر : شاهین نعمتی

program mosalas_khayam;
uses crt;
var
hawk:array[0..10,0..10] of integer;
a,b:integer;
begin
textcolor(black);
textbackground(white);
for a:=0 to 10 do hawk[a,0]:=1;
for a:=1 to 10 do
for b:=1 to a do hawk[a,b]:=hawk[a-1,b]+hawk[a-1,b-1];
clrscr;
for a:=0 to 10 do
for b:=0 to a do
begin
gotoxy(36+b*6-3*a+1,2*a+1);
write(hawk[a,b]:3,' ');
end;
readln
end.

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

دانلود فایل اجرایی برنامه


ادامه مطلب


نوشته شده در تاريخ چهارشنبه بیستم آذر 1387 توسط مدیر : شاهین نعمتی
 

و فکرکنم برای اخرین باریه مطلب دیگه میزارم

ممنون.

بای



ادامه مطلب


نوشته شده در تاريخ شنبه شانزدهم آذر 1387 توسط 
 

 

 

اینم یه مطلب کوچیک در مورد فتوشاپ

  بد نیست اگه ببینید

 ممنون



ادامه مطلب


نوشته شده در تاريخ چهارشنبه سیزدهم آذر 1387 توسط 
لطفاً به ادامه مطلب رجوع کنید



ادامه مطلب


نوشته شده در تاريخ چهارشنبه سیزدهم آذر 1387 توسط مدیر : شاهین نعمتی







رایت بیش از 700 مگابایت بر روی یک cd





















شايد برايتان پيش اومده باشه که مثلا يه برنامه داريد که حجمش از 700 مگابايت بيشتر باشه . و مي خواهيد اونو رايت کنيد در اين مواقع مي بايست اون برنامه رو فشرده کنيد که البته شايد باز هم اون برنامه تو سي دي جا نشه . با اين ترفند مي تونيد بر روي سي دي هاي معمولي حتي تا 1 گيگا بايت اطلاعات ذخيره کنيد .ابتدا مي بايست ببينيد رايتر شما over burning ساپورت مي کنه يا نه . براي تست اين کار مراحل زير را دنبال کنيد :ابتدا به برنامه Nero رفته و سپس کليد هاي ترکيبي Ctrl + R را فشار دهيد . تو اين پنجره ببينيد که در قسمت Recorder information ،رو به روي عبارت Over burn عبارت supported نوشته شده است يا نه . اگر عبارت ساپورت نوشته شده باشد شما مي تو نيد از اين ترفند استفاده کنيد حال به منوي File رفته و قسمت preferences رو انتخاب کنيد سپس در قسمت Expert features دقت کنيد که عبارت enable over burn فعال باشد .در زير همين گزينه مقدار مجاز over burn رو به دقيقه مشخص کنيد حال به منوي File رفته و گزينه New را انتخاب کنيد و در قسمت Multisession گزينه No Multisession را انتخاب نماييد .سپس در قسمت Burn عبارت Write Method رو به Disc at Once تبديل کنيد .

حال مي توانيد سي دي خود را رايت کنيد مقدار رايت هم بستگي خيلي زيادي به رايتر داره .







 

 


ادامه مطلب


نوشته شده در تاريخ سه شنبه دوازدهم آذر 1387 توسط 

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

يکي از مشکلات ويندوز xp راه نفوذ به آن در صورت فراموش کردن password مي باشد .همانطور که همه شما مي دانيد xp امکان جالب switch user را دارد که مي توان محيط را براي کار user هاي مختلف فراهم کرد .حالا اگر شما اين password را فراموش کنيد چاره چيست؟ در اين حالت چند راه نفوذ هست و آن اين است که در هنگام ظاهر شدن منوي کاربران در ابتدا ، دو بار کليدهايALT+CTRL+ DELETE را فشار دهيد سپس در قسمت نام کلمه administrator را تايپ کرده و قسمت password را خالي بگذاريد و Ok را بزنيد در اين حال وارد سيستم مي شويد.  حال اگر در هنگام نصب ويندوز Xp برايAdmin پسورد گذاشته باشند چه كار كنيم؟  براي اين كار قبل يا هنگام بالا آمدن ويندوز كليد F8 را زده سپس بسته به نوع نياز خود بكي از گزينه هاي Safe Mode را انتخاب كنيد.  بعد از وارد شدن به ويندوز در منو Start كليك كنيد سپس گزينه RUN را انتخاب كرده ودر جاي خالي عبارت Control userpasswords2 را تايپ كنيد.  پنجره باز شده داراي 2 TAB به نام هايUsers & Advanced مي باشد.  TAB Users را انتخاب كرده و تيك گزينه:User must enter a username and password to use this computer را برداريد. با برداشتن تيك اين گزينه ديگر هنگام ورود به ويندوز از شما پسورد گرفته نمي شود. حالا با استفاده از گزينه Add مي توان نام كاربري را به آن اضافه و با استفاده از گزينه Remove مي توان نام كاربري را حذف كرد همچنين با استفاده از گزينه Properties مي توان ميزان دسترسي كاربران به ويندوز را تعيين كرد

 


ادامه مطلب


نوشته شده در تاريخ سه شنبه دوازدهم آذر 1387 توسط 

قطع کردن صدای مودم

 

ابتدا وارد پنجره Properties كانكشن خود شويد و در زبانه General دكمه Configure را فشار دهيد. در پنجره‌اي كه باز مي‌شود روي آخرين گزينه يعني Enable Modem Speaker كليك كنيد تا غير فعال شود.


ادامه مطلب


نوشته شده در تاريخ سه شنبه دوازدهم آذر 1387 توسط 
می خواهم در اين درس شما با استفاده از يك فيلتر فتوشاپ تصويري بسازيد، كه با حرفه اي ترين دوربينهاي عكاسي فقط ميتوان چنين عكسهايي گرفت! در ضمن علاوه بر اين شما با ايجاد، تغيير و يا حذف موارد و اشياء از درون عكس آشنا ميشويد.


ادامه مطلب


نوشته شده در تاريخ سه شنبه دوازدهم آذر 1387 توسط 

می خواهم در اين درس شما رو با ساخت يک جعبه آشنا کنم. با اينکه ساخت اين جعبه خيلی ساده هست، اما بسيار جالب و جذابه! شما می تونين هر عکسی رو روی جعبه خودتون بذارين.

 

گام نخست شما از راه File>New يک صفحه جديد  ميسازيد (کليدهای ميانبر Ctrl+N). ابعاد آنرا 400*400 پيکسل انتخاب نماييد. Resolution کار خود را بسته به کيفيت انتخاب نماييد مثلا برای ساخت عکسهای اينترنتی از دقت 72Pixels/inch استفاده می کنند. Mode کار خود را هم روی RGB Color بگذاريد. و Contents کار خود را بر روی White انتخاب نماييد. دکمه OK را در پايان انتخابها فشار دهيد.

 

  خوب حالا به دو عکس برای ساخت جعبه نياز داريم، از قسمت File>Open و يا کليدهای ميانبر Ctrl+O از دستگاه خود آدرس دو تصوير را بدهيد و آنها را باز نماييد. اکنون نياز است اين دو تصوير بر روی صفحه جديد شما قرار بگيرن، برای اين کار ابتدا جداگانه هر عکس را Select يا انتخاب بايد کرد. اين دستور در برنامه بدين شکل است: از قسمت Select>All را انتخاب کنين و يا کليدهای ميانبر Ctrl+A را بزنين. دور تا دور تصويری که می خواهيد به صفحه جديد انتقال دهيد و با آن جعبه بسازين، به شکل نقطه چين در حال حرکتن! خوب اکنون بايد از اين تصوير کپی برداری نماييد، از بخش Edit>copy و يا کليدهای ميانبر Ctrl+C را فشار دهيد. و سپس بروی صفحه جديد خود اين نسخه را بچسبانيد. (Edit>Paste و يا کليدهای ميانبر Ctrl+V را همزمان بزنين).

 

در مورد تصوير دوم هم همين اعمال را تکرار نماييد، اکنون دو تصوير روی صفحه جديد شما آمده است.

 

احتمال دارد عکسهای کپی شده بر روی صفحه نياز به تغيير در سايز آنها باشد، برای اين کا شما پس از Paste کردن تصوير بروی صفحه جديد يک لايه در بخش Layers به نام Layer1 اضافه شده است، که الان انتخاب شماست يعنی به رنگ آبی است. (اگر اين پنجره باز نيست از Window>Layers را انتخاب و تيک کنار آنرا بزنيد). برای تغيير در سايز از قسمت Edit>Transform>Scale را انتخاب کرده و به اندازه دلخواه، مانند تصوير در بياوريد.

 

لازم به ذکر است که شما در بخش لايه ها (Layers) بايد چنين وضعيتی داشته باشيد: پايين ترين لايه Background سپس Layer1 و بعد هم Layer2 مانند شکل.

 

 

 

حال نوبت به سه بعدی کردن جعبه رسيد، اکنون لايه اول را انتخاب و در حالت فعال قرار دهيد، از قسمت Edit>Transform>Perspective را انتخاب کنيد، هشت نقطه دور تا دور تصوير نمايان می شويد که با انتخاب نقطه پايينی راستی و حرکت کم به سمت بالا می توان شکل مورد نظر برای جعبه را بدست آورد. سپس از Edit>Free Transform را انتخاب و اگر سايز نياز به تغيير است انجام دهيد. (کليدهای ميانبر Ctrl+T ). در مورد شکل دوم هم همين کارها را تکرار کنيد. فقط با اين تفاوت که اين بار نقطه پايينی گوشه چپ را بالا ببريد تا شکل پرسپکتيو بگيرد.

 

 

خوب، اکنون دو لايه را به هم بچسبانيد تا مماس هم شوند...

 

ااما هنوز کار تمام نشده. و کمی می خواهيم واقعی ترش کنيم.

 

 

 

می خواهيم سايه را به کار بيافزاييم، روی بالاترين لايه (Layer1) کليک و انتخابش کنين، اکنون از قسمت Layer>Merge Down را انتخاب کنيد يا کليدهای ميانبر Ctrl+E را بزنيد، اين کار باعث ميشود دو لايه در هم تلفيق شوند. بعد به Layer>Layer Styles>Drop shadow رفته و تنظيمات آنرا بدين شکل انجام دهيد. (تنظيمات)

حالا می خواهيم سايه زيرين را بزنيم، به لايه Background برويد و آنرا انتخاب کنيد، و از Layer>New Layer را بزنيد ( کليدهای ميانبر Shift+Ctrl+N ) و نام آنرا Shadow بگذاريد. از جعبه ابزار خود که منوی دست چپ باشد ابزار  Polygon Lasso را انتخاب نماييد. و مانند شکل روبرو سايه ای طراحی کنيد و آنرا با ابزار سطل رنگ  Paint bucket tool  انتخاب و رنگ مشکی کنيد.

 

برای خروج از انتخاب (Deselect) بايد از Select>Deselect را انتخاب کنين يا کليدهای ميانبر Ctrl+D را بزنين. يه ذره ديگه می خوايم واقعيش کنيم، از بخش Filter>Blur>Guassian Blur را انتخاب نماييد و عدد Radius 5 را برای آن انتخاب نماييد.

 

 

خوب برای اتمام کار هم کمی روی Back ground آن افکت می دهيم. 

ابتدا لايه Back ground را انتخاب نماييد. يک لايه جديد به همان روش قبل به نام BG بسازين، رنگ اين لايه را کامل سفيد کنيد البته بوسيله ابزار Paint bucket tool، خوب حال از Filter>Render>Lighting effects را انتخاب کنين و سپس در پنجره باز شده گزينه "five lights up" انتخاب شود. و اونجوری که باعث خوشحالی شما ميشه اونها رو چينش کنين.

 

 

خسته نباشيد، کار نهايی هم اين شد، ضمنا چون درس اول بود اينقدر توضيح داشت، چون بايد جزئيات رو دقيق می گفتم، از درس بعد توضيحات کم ميشوند!

Copyright © 2003 Meysam Jafarynezhad. All rights reserved

.

 

ادامه مطلب


نوشته شده در تاريخ یکشنبه دهم آذر 1387 توسط 
منو ها در فتوشاپ



ادامه مطلب


نوشته شده در تاريخ جمعه هشتم آذر 1387 توسط مریم سبحانی
ابزار type


ادامه مطلب


نوشته شده در تاريخ جمعه هشتم آذر 1387 توسط مریم سبحانی
ابزارهاي ترسيمي


ادامه مطلب


نوشته شده در تاريخ جمعه هشتم آذر 1387 توسط مریم سبحانی

زندگی به چشم بی نیازان زیباست

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

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

که باشی غاز عشق می خوانم

جان٫روح٫وجسمم خواهان وجود توست

وتنم تشنه ی محبت تو!!!!

 



ادامه مطلب


نوشته شده در تاريخ جمعه هشتم آذر 1387 توسط مریم سبحانی
بنا به درخواست یکی از دوستان این آموزش که در یک فایل PDF ذخیره شده رو واستون گذاشتم تا دانلود کنید


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


ادامه مطلب


نوشته شده در تاريخ پنجشنبه سی ام آبان 1387 توسط 

پس از روشن کردن کامپیوتر به طور پیاپی دکمه Degete را فشار دهید تا وارد محیط setup و تنظیمات BIosشوید حال به قسمت Pawer management setup شوید و گزینه modem ring on (و یا شبیه به ان )را پیدا کنید و ان را فعال کنید.سپس با save کردن اطلاعات از setup خارج شوید. از این زمان به بعد با هر بار تماس به خط تلفن شما کامپیوتر نیز روشن می شود.

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

را غیر فعال کنید.


ادامه مطلب


نوشته شده در تاريخ پنجشنبه سی ام آبان 1387 توسط 
program sp;
uses crt;
var
n,d : integer ;
begin
clrscr;
Write('Enter a Integer Number >');
ReadLn(n);
WriteLn('N =',' ',n);
Write('Spilt ( <>0 ) =');
While n>0 do
begin
d:=n mod 10;
if d>0 then write(d:2);
n:=n div 10
end;
Readln
end.

این هم عکسی از خروجی برنامه




ادامه مطلب


نوشته شده در تاريخ یکشنبه بیست و ششم آبان 1387 توسط 
program zarb;
uses crt;
var i,j :integer;
begin
clrscr;
writeLn('  ','=======================================');
writeLn('  ','=================10*10==================');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
Write(j*i:4);
end;
writeln;
end;
writeLn('  ','=======================================');
writeLn('  ','=======================================');
Readln;
end.

اینم یه عکس از خروجی برنامه



ادامه مطلب


نوشته شده در تاريخ یکشنبه بیست و ششم آبان 1387 توسط 

پاک کردن ويروس New Folder.exe

 

 



ادامه مطلب


نوشته شده در تاريخ شنبه بیست و پنجم آبان 1387 توسط حسین خمامی

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

 

 



ادامه مطلب


نوشته شده در تاريخ شنبه بیست و پنجم آبان 1387 توسط حسین خمامی

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

 

 



ادامه مطلب


نوشته شده در تاريخ شنبه بیست و پنجم آبان 1387 توسط حسین خمامی

از بين بردن ویروس  Show Hidden Files

 

 



ادامه مطلب


نوشته شده در تاريخ شنبه بیست و پنجم آبان 1387 توسط حسین خمامی

نحوه از ببن بردن ویروس autorun.inf

 

 



ادامه مطلب


نوشته شده در تاريخ شنبه بیست و پنجم آبان 1387 توسط حسین خمامی
While  شرط do
begin
دستورات
End;
در این دستور حلقه تا زمانی کار میکند که شرط حلقه True  باشد .
 

ادامه مطلب


نوشته شده در تاريخ شنبه بیست و پنجم آبان 1387 توسط 
Repeat
دستور یا دستورات
until شرط  ;
در این دستور در صورتی برنامه از حلقه خارج می شود که مقدار شرط True باشد .
نکته : دستورات داخل حلقه دسته کم یک بار اجرا می شوند .  
 
 

ادامه مطلب


نوشته شده در تاريخ شنبه بیست و پنجم آبان 1387 توسط 
program demo_matrix;
uses crt;
begin
clrscr;
repeat
gotoxy(random(80),Random(80));
textColor(random(15));
Write('0');
write('1');
until keypressed=true
end.
اینم یه عکس از برنامه

 

ادامه مطلب


نوشته شده در تاريخ شنبه بیست و پنجم آبان 1387 توسط 
program screen;
uses crt;
begin
clrscr;
repeat
randomize;
delay(1000);
clrscr;
gotoxy(random(20),Random(30));
textColor(random(15));
Write('sh.nemati68@yahoo.com');
until keypressed=true
end.
من قبلاً درباره ی تمامی دستورات این برنامه توضیحاتی داده بودم ولی دو تا دستور جدیده :
Random : که داخل پرانتز هر عددی که وارد کنیم یک عدد رو به صورت اتفاقی به ما میده .
Randomize : این دستور اول هر برنامه که داخل اون از دستور Random استفاده کردیم قرار می گیره تا مقدار دستور Random تکراری نباشه .
من عکسی از این برنامه نمیذارم تا برید و تستش کنید . یادتون باشه نظر بذارید !!!

ادامه مطلب


نوشته شده در تاريخ شنبه بیست و پنجم آبان 1387 توسط 
Program dayere;
uses Crt;
const
mypi=3.14159;
var
 R,A,C : Real ;
begin
clrScr;
textbackground(red);
textColor(yellow);
Write('Enter Radius >');
ReadLn(R);
A:=mypi*R*R;
C:=2.0*mypi*R;
WriteLn('The Area is >',A:4:2);
WriteLn('The Circum ference is >',C:4:2);
ReadLn;
end.
عکسی از خروجی برنامه



ادامه مطلب


نوشته شده در تاريخ جمعه بیست و چهارم آبان 1387 توسط 
برای استفاده از یونیت در برنامه باید پس از خط Program یونیت را اینگونه تعریف نمائیم :
; نام یونیت Uses
در زیر به معرفی چند دستور از یونیت Crt می پردازیم :
ClrScr : این دستور همانند دستور Cls در dos کار میکند با این دستور صفحه نمایش پاک می شود .

Gotoxy: از این دستور برای جا به جا کردن مکان نما به محل مشخصی در صفحه به صورت زیر استفاده می شود :
Gotoxy(intx,inty);
intx شماره ی ستون است که باید عددی صحیح بین 1 تا 80 باشد و inty شماره سطر است که باید عددی صحیح بین 1 تا 25 باشد .
مثلاً برای انتقال مکان نما به وسط سطر اول از دستور زیر استفاده می کنیم :
Gotoxy(40,1);
TextColor : با این دستور می توانیم رنگ نوشته ها را تغییر دهیم . شکل کلی دستور :
TextColor(IntC);
intC شماره رنگ قلم است که از 0 تا 15 است .
مثلاً : سیاه = 0  ، آبی = 1 ، سبز = 2 ، قرمز = 4 و....

TextBackGround : برای تعیین رنگ زمینه کرارکتری که می خواهیم چاپ کنیم . شکل کلی دستور مانند دستور TextColor است .

Window : یک پنجره متنی در بالا و گوشه چپ در نقطه ( x1,y1 ) , و در پایین و گوشه راست در نقطه (x2,y2) تعریف می کند و یک کادر رسم می کند . شکل کلی دستور :
window(x1,y1,x2,y2);

Deley : اجرای برنامه را تقریباً به اندازه ای که کاربر بر حسب میلی ثانیه تعریف می کند را به تعویق می اندازد .
شکل کلی دستور :  
Deley(Deley Time);

KeyPressed : اگر کلیدی فشار داده شود true را بر میگرداند در غیر اینصورت False را بر می گرداند .

ادامه مطلب


نوشته شده در تاريخ جمعه بیست و چهارم آبان 1387 توسط 
program tavan;
uses crt;
var
i,x,n:integer;
j:real;
begin
clrscr;
writeLn('-------------------------------');
writeln ('n^x');
writeLn('-------------------------------');
readln (n,x);
j:=1;
for i:=1 to x do
j:=j*n;
writeln (n,'^',x,'=',j:0:0);
readln;
end.
عکسی از خروجی برنامه



ادامه مطلب


نوشته شده در تاريخ پنجشنبه بیست و سوم آبان 1387 توسط 
program calc;
uses crt;
var a,b:integer ;
ch:char;
begin
clrscr;
WriteLn('Enter a,b ');
ReadLn(a,b);
clrscr;
WriteLn('Please select ( - , + , * , / )');
ReadLn(ch);
case ch of
'-':WriteLn('a-b=',a-b);
'+':WriteLn('a+b=',a+b);
'*':WriteLn('a*b=',a*b);
'/':WriteLn('a/b=',a/b);
else
WriteLn('ERROR');
end;
readLn;
end.
عکسی از خروجی برنامه




ادامه مطلب


نوشته شده در تاريخ پنجشنبه بیست و سوم آبان 1387 توسط 
درباره وبلاگ

این وبلاگ به عنوان یک وبلاگ گروهی توسط چند تن از دانشجویان رشته کامپیوتر دانشگاه آزاد واحد اسلامشهر تاسیس شده است
sh.nemati68@yahoo.com