۱۵
اردیبهشت

جلسه ۲۳ : Unit ها در زبان پاسکال (Pascal)

دسته‌بندی‌ها :

جزئیات
نوع محتواآموزشی

علاقمندان به زبان های برنامه نویسی روزتون بخیر. با آموزش زبان برنامه نویسی پاسکال (Pascal) از وب سایت آموزشی پی وی لرن همراهتون خواهیم بود. Unit ها در زبان پاسکال (Pascal) را در این بخش مورد بررسی قرار خواهیم داد.

فهرست

Unit ها در زبان پاسکال (Pascal)

یک برنامه پاسکال می تواند از ماژول هایی به نام Unit تشکیل شود. یک Unit ممکن است از برخی از بلوک های کد تشکیل شده باشد ، که به نوبه خود از متغیرها و اظهارات نوع ، بیانیه ها ، رویه ها و غیره تشکیل شده است. Unit های داخلی بسیاری در Pascal وجود دارد و همچنین Pascal به برنامه نویسان اجازه می دهد تا Unit های خودشان را تعریف کنند و بنویسند تا بعداً در برنامه های مختلف از آن ها استفاده نمایند.

استفاده از Unit های داخلی

Unit های داخلی و Unit های تعریف شده توسط کاربر توسط بند استفاده شده، در یک برنامه را مشمول می شوند. این آموزش ایجاد و شامل شدن Unit های تعریف شده توسط کاربر را توضیح می دهد. با این حال ، اجازه دهید ابتدا ببینیم که چگونه یک Unit داخلی crt را در برنامه خود بگنجانید.

مثال :

program myprog;
uses crt;

1 2	program myprog; uses crt;

مثال زیر با استفاده از واحد crt نشان داده شده است.

مثال :

Program Calculate_Area (input, output);
uses crt;
var 
   a, b, c, s, area: real;

begin
   textbackground(white); (* gives a white background *)
   clrscr; (*clears the screen *)
   
   textcolor(green); (* text color is green *)
   gotoxy(30, 4); (* takes the pointer to the 4th line and 30th column) 
   
   writeln('This program calculates area of a triangle:');
   writeln('Area = area = sqrt(s(s-a)(s-b)(s-c))');
   writeln('S stands for semi-perimeter');
   writeln('a, b, c are sides of the triangle');
   writeln('Press any key when you are ready');
   
   readkey;
   clrscr;
   gotoxy(20,3);
   
   write('Enter a: ');
   readln(a);
   gotoxy(20,5);
   
   write('Enter b:');
   readln(b);
   gotoxy(20, 7);
   
   write('Enter c: ');
   readln(c);

   s := (a + b + c)/2.0;
   area := sqrt(s * (s - a)*(s-b)*(s-c));
   gotoxy(20, 9);
   
   writeln('Area: ',area:10:3);
   readkey;
end.

Program Calculate_Area (input, output);

uses crt;

var

a, b, c, s, area: real;

begin

textbackground(white); (* gives a white background *)

clrscr; (*clears the screen *)

textcolor(green); (* text color is green *)

gotoxy(30, 4); (* takes the pointer to the 4th line and 30th column)

writeln('This program calculates area of a triangle:');

writeln('Area = area = sqrt(s(s-a)(s-b)(s-c))');

writeln('S stands for semi-perimeter');

writeln('a, b, c are sides of the triangle');

writeln('Press any key when you are ready');

readkey;

clrscr;

gotoxy(20,3);

write('Enter a: ');

readln(a);

gotoxy(20,5);

write('Enter b:');

readln(b);

gotoxy(20, 7);

write('Enter c: ');

readln(c);

s := (a + b + c)/2.0;

area := sqrt(s * (s - a)*(s-b)*(s-c));

gotoxy(20, 9);

writeln('Area: ',area:10:3);

readkey;

end.

این همان برنامه ای است که ما در ابتدای آموزش Pascal از آن استفاده کردیم ، آن را کامپایل و اجرا کنید تا اثرات تغییر را پیدا کنید.

ایجاد و استفاده از Unit ها پاسکال

برای ایجاد یک Unit ، باید ماژول ها یا زیر برنامه هایی را که می خواهید در آن ذخیره کنید بنویسید و آن را در فایلی با پسوند pas. ذخیره کنید. خط اول این فایل باید با کلمه کلیدی Unit شروع شود. به عنوان مثال:

مثال :

unit calculateArea;

1	unit calculateArea;

در زیر سه مرحله مهم در ایجاد Unit پاسکال وجود دارد.

نام فایل و نام Unit باید دقیقاً یکسان باشد. بنابراین ، یونیت calculateArea فایلی به نام calculateArea.pas ذخیره می شود.
خط بعدی باید از یک رابط کلمه کلیدی واحد تشکیل شده باشد. پس از این خط ، اعلان های مربوط به کلیه توابع و رویه هایی را که در این واحد به وجود می آید ، می نویسید.
بلافاصله پس از اعلان تابع، کلمه implementation را بنویسید که دوباره یک کلمه کلیدی است. پس از خط حاوی کلمه کلیدی implementation، تعریف همه زیر برنامه ها را ارائه دهید.

برنامه زیر پونیتی به نام calculateArea را ایجاد می کند.

مثال :

unit CalculateArea;
interface

function RectangleArea( length, width: real): real;
function CircleArea(radius: real) : real;
function TriangleArea( side1, side2, side3: real): real;

implementation

function RectangleArea( length, width: real): real;
begin
   RectangleArea := length * width;
end;

function CircleArea(radius: real) : real;
const
   PI = 3.14159;
begin
   CircleArea := PI * radius * radius;
end;

function TriangleArea( side1, side2, side3: real): real;
var
   s, area: real;

begin
   s := (side1 + side2 + side3)/2.0;
   area := sqrt(s * (s - side1)*(s-side2)*(s-side3));
   TriangleArea := area;
end;

end.

unit CalculateArea;

interface

function RectangleArea( length, width: real): real;

function CircleArea(radius: real) : real;

function TriangleArea( side1, side2, side3: real): real;

implementation

function RectangleArea( length, width: real): real;

begin

RectangleArea := length * width;

end;

function CircleArea(radius: real) : real;

const

PI = 3.14159;

begin

CircleArea := PI * radius * radius;

end;

function TriangleArea( side1, side2, side3: real): real;

var

s, area: real;

begin

s := (side1 + side2 + side3)/2.0;

area := sqrt(s * (s - side1)*(s-side2)*(s-side3));

TriangleArea := area;

end;

end.

سپس، بگذارید یک برنامه ساده بنویسیم که از یونیتی که در بالا تعریف کردیم استفاده کند.

مثال :

program AreaCalculation;
uses CalculateArea,crt;

var
   l, w, r, a, b, c, area: real;

begin
   clrscr;
   l := 5.4;
   w := 4.7;
   area := RectangleArea(l, w);
   writeln('Area of Rectangle 5.4 x 4.7 is: ', area:7:3);

   r:= 7.0;
   area:= CircleArea(r);
   writeln('Area of Circle with radius 7.0 is: ', area:7:3);

   a := 3.0;
   b:= 4.0;
   c:= 5.0;
  
   area:= TriangleArea(a, b, c);
   writeln('Area of Triangle 3.0 by 4.0 by 5.0 is: ', area:7:3);
end.

program AreaCalculation;

uses CalculateArea,crt;

var

l, w, r, a, b, c, area: real;

begin

clrscr;

l := 5.4;

w := 4.7;

area := RectangleArea(l, w);

writeln('Area of Rectangle 5.4 x 4.7 is: ', area:7:3);

r:= 7.0;

area:= CircleArea(r);

writeln('Area of Circle with radius 7.0 is: ', area:7:3);

a := 3.0;

b:= 4.0;

c:= 5.0;

area:= TriangleArea(a, b, c);

writeln('Area of Triangle 3.0 by 4.0 by 5.0 is: ', area:7:3);

end.

هنگامی که کد فوق کامپایل و اجرا شد ، نتیجه زیر را ایجاد می کند.

مثال :

Area of Rectangle 5.4 x 4.7 is: 25.380
Area of Circle with radius 7.0 is: 153.938
Area of Triangle 3.0 by 4.0 by 5.0 is: 6.000

Area of Rectangle 5.4 x 4.7 is: 25.380

Area of Circle with radius 7.0 is: 153.938

Area of Triangle 3.0 by 4.0 by 5.0 is: 6.000

کلام پایانی

در این بخش از آموزش زبان برنامه نویسی پاسکال (Pascal) با مبحث Unit ها در زبان پاسکال (Pascal) همراه بودیم. در بخش بعد به بررسی توابع تاریخ و زمان می پردازیم. با وب سایت پی وی لرن همراه باشید.

QR: جلسه ۲۳ : Unit ها در زبان پاسکال (Pascal)

به اشتراک بگذارید

دیدگاه کاربران

تعداد دیدگاه : 0

پی وی لرن – آموزش برنامه نویسی و طراحی وب سایت

دوره های آموزشی آکادمی پی وی لرن (پروژه محور و ویژه بازار کار)

جلسه ۲۳ : Unit ها در زبان پاسکال (Pascal)

Unit ها در زبان پاسکال (Pascal)

استفاده از Unit های داخلی

ایجاد و استفاده از Unit ها پاسکال

کلام پایانی

لیست مطالب دوره

مطالب ویژه

دسته های اصلی

برگه ها

بلاگ