شرح مختصر : این فایل شامل سورس بیش از 30 پروژه برنامه نویسی به زبان پاسکال میباشد که امیدواریم مورد توجه کاربران پروژه دات کام قرار گیرد.
فهرست :
انتقال عدد از مبنای 2 به 10
انتقال عدد از مبنای 10 به مبنای 2
بانکداری
ضرب دو ماتریس در هم
ترانهاده یک ماتریس
تعویض قطر اصلی و فرعی ماتریس 5 در 5
تعیین بشترین تکرار 0 تا 9 در یک آرایه 20 عضوی
تعیین تعداد اعداد اول و فیبوناچی
تعیین مینیموم هر سطر و ستون ماتریس 5 در
مثل خیام پاسکال
دریافت n عدد و مشخص نمودن تعداد اعداد عضو سری فیبوناچی
دریافت اطلاعات 100 دانشجو – لیست مشروطین – منظم نمودن اطلاعات قبول شد آن بر اساس فامیلی
دریافت اطلاعات حداثر 100 کارمند و کسر بیمه و مالیات ونمایش اطلاعات آنها
دریافت اطلاعات حداکثر 100 کالا و نمایش آن با کد کالا
دریافت اطلاعات حداکثر 100 دانشجو و نمایش آن با شماره دانشجویی
دریافت تاریخ به عدد و نمایش آن با حروف
دریافت معدل 10 دانشجو و جوستجو دودویی در آنها
رسم جدول ضرب
رسم مثلث عددی
ساعت آنالوگ
سیستم کتابخانه
سیستم بانکداری با استفاده از رکورد ها
ضرب و جمع دو عدد 20 رقمی
ماتریس ترانهاده
مبدل تاریخ
مبنای دو
مثلث خیام
محاسبه ب.م.م
محاسبه تعداد اعداد اول
مغلوب اعداد
مینیموم سطر و ستون ماتریس
این فایل شامل سورس بیش از 30 پروژه برنامه نویسی به زبان پاسکال میباشد که امیدواریم مورد توجه شما قرار گیرد.
فهرست :
انتقال عدد از مبنای 2 به 10
انتقال عدد از مبنای 10 به مبنای 2
بانکداری
ضرب دو ماتریس در هم
ترانهاده یک ماتریس
تعویض قطر اصلی و فرعی ماتریس 5 در 5
تعیین بشترین تکرار 0 تا 9 در یک آرایه 20 عضوی
تعیین تعداد اعداد اول و فیبوناچی
تعیین مینیموم هر سطر و ستون ماتریس 5 در
مثل خیام پاسکال
دریافت n عدد و مشخص نمودن تعداد اعداد عضو سری فیبوناچی
دریافت اطلاعات 100 دانشجو – لیست مشروطین – منظم نمودن اطلاعات قبول شد آن بر اساس فامیلی
دریافت اطلاعات حداثر 100 کارمند و کسر بیمه و مالیات ونمایش اطلاعات آنها
دریافت اطلاعات حداکثر 100 کالا و نمایش آن با کد کالا
دریافت اطلاعات حداکثر 100 دانشجو و نمایش آن با شماره دانشجویی
دریافت تاریخ به عدد و نمایش آن با حروف
دریافت معدل 10 دانشجو و جوستجو دودویی در آنها
رسم جدول ضرب
رسم مثلث عددی
ساعت آنالوگ
سیستم کتابخانه
سیستم بانکداری با استفاده از رکورد ها
ضرب و جمع دو عدد 20 رقمی
ماتریس ترانهاده
مبدل تاریخ
مبنای دو
مثلث خیام
محاسبه ب.م.م
محاسبه تعداد اعداد اول
مغلوب اعداد
مینیموم سطر و ستون ماتریس
این فایل شامل سورس بیش از 30 پروژه برنامه نویسی به زبان پاسکال میباشد که امیدواریم مورد توجه کاربران پروژه دات کام قرار گیرد.
فهرست :
انتقال عدد از مبنای 2 به 10
انتقال عدد از مبنای 10 به مبنای 2
بانکداری
ضرب دو ماتریس در هم
ترانهاده یک ماتریس
تعویض قطر اصلی و فرعی ماتریس 5 در 5
تعیین بشترین تکرار 0 تا 9 در یک آرایه 20 عضوی
تعیین تعداد اعداد اول و فیبوناچی
تعیین مینیموم هر سطر و ستون ماتریس 5 در
مثل خیام پاسکال
دریافت n عدد و مشخص نمودن تعداد اعداد عضو سری فیبوناچی
دریافت اطلاعات 100 دانشجو – لیست مشروطین – منظم نمودن اطلاعات قبول شد آن بر اساس فامیلی
دریافت اطلاعات حداثر 100 کارمند و کسر بیمه و مالیات ونمایش اطلاعات آنها
دریافت اطلاعات حداکثر 100 کالا و نمایش آن با کد کالا
دریافت اطلاعات حداکثر 100 دانشجو و نمایش آن با شماره دانشجویی
دریافت تاریخ به عدد و نمایش آن با حروف
دریافت معدل 10 دانشجو و جوستجو دودویی در آنها
رسم جدول ضرب
رسم مثلث عددی
ساعت آنالوگ
سیستم کتابخانه
سیستم بانکداری با استفاده از رکورد ها
ضرب و جمع دو عدد 20 رقمی
ماتریس ترانهاده
مبدل تاریخ
مبنای دو
مثلث خیام
محاسبه ب.م.م
محاسبه تعداد اعداد اول
مغلوب اعداد
مینیموم سطر و ستون ماتریس
سورس کد پروژه ماشین حساب با پاسکال
فرمت فایل : word(قابل ویرایش)
تعداد صفحات:10
چکیده:
آموزش محیط گرافیکی در توربو پاسکال 7)
استفاده از Mouse در محیط گرافیک :
برای استفاده از Mouse در محیط گرافیکی باید وقفه مربوط به فعالسازی Mouse را فراخوانی کنیم . این وقفه 33Hex (هگزادسیمال) نام دارد و شامل یکسری توابع است که هر تابع با یک شماره مشخص شده و کاربرد خاصی دارد . هرکدام از توابع مذکور دارای ثباتهای ورودی و خروجی هستند . ثباتهای ورودی باید قبل از فراخوانی وقفه مقدار دهی شوند تا وقفه عمل مورد نظر ما را انجام دهد و ثباتهای خروجی نتایج اجرای وقفه را برمی گردانند .
تابع 00Hex از وقفه 33Hex :
این تابع اعمال زیر را انجام می دهد :
1- پارامترهای Mouse را با مقادیر پیش فرض Set می کند .
2- اشاره گر Mouse را به مرکز صفحه منتقل می کند .
ثبات ورودی :
Ax := 0 ;
ثبات خروجی :
درایور Mouse نصب شده است . Ax = ffff Hex
درایور Mouse نصب نشده است . Ax = 0000 Hex
تعداد کلید های Mouse را مشخص می کند . Bx = 3
function mreset:integer;
var i:integer;
begin
asm;{ این دستور برای نوشتن دستورات اسمبلی بکار می رود . }
mov ax,0;
int 33h; {فراخوانی وقفه }
mov i,ax;
end;
end;
نکته : این تابع فقط Mouse را فعای می کند ولی اشاره گر Mouse را آشکار نمی کند . برای نمایان شدن اشاره گر Mouse باید از تابع بعدی استفاده کنیم .
تابع 01Hex از وقفه 33Hex :
این تابع اشاره گر Mouse را در صفحه نشان می دهد . قبل از اجرای این تابع باید تابع Mreset اجرا شده باشد .
ثبات ورودی :
Ax := 01 ;
ثبات خروجی : ندارد .
procedure mshow;
begin
asm;
mov ax,01h;
int 33h;
end;
end;
تابع 02Hex از وقفه 33Hex :
این تابع اشاره گر Mouse را پنهان می کند .
ثبات ورودی :
Ax := 02 ;
ثبات خروجی : ندارد .
procedure mhide;
begin
asm;
mov ax,02h;
int 33h;
end;
end;
تابع 03Hex از وقفه 33Hex :
این تابع برای تشخیص مکان اشاره گر Mouse در هر لحظه و تعیین کلید فشره شده بکار می رود .
ثبات ورودی :
Ax := 03 ;
ثبات خروجی :
مختصات اشاره گر Mouse روی محور Xها :Cx
مختصات اشاره گر Mouse روی محور Yها :Dx
تعیین کلید فشرده شده : Bx
کلید چپ : 0 کلید راست : 1 کلید وسط : 2
ساختار ثبات Bx بصورت شکل بالا است پس به ازای فشرده شدن هر کلید مقادیر زیر را خواهیم داشت .
کلید چپ Bx = 1 :
کلید راست Bx = 2 :
کلید وسط Bx = 4 :
procedure mbutton(var x1:integer;var y1:integer;var k1:integer);
var x,y,k:integer;
begin
asm
mov ax,03;
int 33h;
mov x,cx;
mov y,dx;
mov k,bx;
end;
x1:=x;
y1:=y;
k1:=k;
end;
تابع 04Hex از وقفه 33Hex :
با استفاده از این تابع می توانید اشاره گر Mouse را بصورت نرم افزاری در مکان دلخواه قرار دهید .
ثبات ورودی :
Ax := 04 ;
مختصات اشاره گر Mouse روی محور Xها : Cx
مختصات اشاره گر Mouse روی محور Yها : Dx
ثبات خروجی : ندارد .
procedure move(x,y:integer);
begin
asm
mov ax,04;
mov cx,x;
mov dx,y;
int 33h;
end;
end;
تابع 10Hex از وقفه 33Hex :
این تابع ناحیه حرکت Mouse را مشخص می کند . هنگام استفاده از این تابع Mouse در
محدوده ای که این تابع تعیین می کند ، غیر فعال است و فقط در بقیه مناطق حرکت می کند .
Ax := 10 ;
Cx := x1;
Dx := y1;
Si := x2;
Di := y2;
ثبات خروجی : ندارد .
procedure mexclusion(x1,y1,x2,y2:integer);
begin
asm
mov ax,10h;
mov cx,x1;
mov dx,y1;
mov si,x2;
mov di,y2;
int 33h;
end;
end;
تابع 0f Hex از وقفه 33Hex :
این تابع برای تغییر سرعت حرکت Mouse استفاده می شود . هرچه مقدار وردی این تابع بزرگتر باشد سرعن Mouse کمتر می شود . در یک برنامه معمولی با مقادیر (10,10) سرعتی مناسب برای Mouse تعیین می شود .