۱۵
اردیبهشت

جلسه ۲۶-۰۲ : کلاس ها در زبان پاسکال (Pascal)

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

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

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

فهرست

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

سازندگان و تخریب کننده های (Constructors و Destructors) کلاس پاسکال

سازنده ها روش های خاصی هستند که هر زمان که یک شی ایجاد شود به طور خودکار خوانده می شوند. بنابراین ما با آغاز کردن بسیاری از موارد از طریق توابع سازنده ، از این رفتار کاملاً استفاده می کنیم.

پاسکال برای تعریف سازنده یک تابع ویژه به نام ()create ایجاد می کند. می توانید به همان اندازه آرگومان های مورد نظر خود را به تابع سازنده منتقل کنید.

به عنوان مثال ، یک سازنده برای کلاسی به نام Books ایجاد می کنیم و قیمت و عنوان (price و title) آن را در زمان ایجاد شیء مقدار دهی می کنیم.

مثال :

program classExample;

{$MODE OBJFPC} //directive to be used for creating classes
{$M+} //directive that allows class constructors and destructors
type
   Books = Class 
   private 
      title : String; 
      price: real;
   
   public
      constructor Create(t : String; p: real); //default constructor
      
      procedure setTitle(t : String); //sets title for a book
      function getTitle() : String; //retrieves title
      
      procedure setPrice(p : real); //sets price for a book
      function getPrice() : real; //retrieves price
      
      procedure Display(); // display details of a book
end;
var
   physics, chemistry, maths: Books;

//default constructor 
constructor Books.Create(t : String; p: real);
begin
   title := t;
   price := p;
end;

procedure Books.setTitle(t : String); //sets title for a book
begin
   title := t;
end;

function Books.getTitle() : String; //retrieves title
begin
   getTitle := title;
end;

procedure Books.setPrice(p : real); //sets price for a book
begin
   price := p;
end;

function Books.getPrice() : real; //retrieves price
begin
   getPrice:= price;
end;

procedure Books.Display();
begin
   writeln('Title: ', title);
   writeln('Price: ', price:5:2);
end;

begin 
   physics := Books.Create('Physics for High School', 10);
   chemistry := Books.Create('Advanced Chemistry', 15);
   maths := Books.Create('Algebra', 7);
   
   physics.Display;
   chemistry.Display;
   maths.Display;
end.

program classExample;

{$MODE OBJFPC} //directive to be used for creating classes

{$M+} //directive that allows class constructors and destructors

type

Books = Class

private

title : String;

price: real;

public

constructor Create(t : String; p: real); //default constructor

procedure setTitle(t : String); //sets title for a book

function getTitle() : String; //retrieves title

procedure setPrice(p : real); //sets price for a book

function getPrice() : real; //retrieves price

procedure Display(); // display details of a book

end;

var

physics, chemistry, maths: Books;

//default constructor

constructor Books.Create(t : String; p: real);

begin

title := t;

price := p;

end;

procedure Books.setTitle(t : String); //sets title for a book

begin

title := t;

end;

function Books.getTitle() : String; //retrieves title

begin

getTitle := title;

end;

procedure Books.setPrice(p : real); //sets price for a book

begin

price := p;

end;

function Books.getPrice() : real; //retrieves price

begin

getPrice:= price;

end;

procedure Books.Display();

begin

writeln('Title: ', title);

writeln('Price: ', price:5:2);

end;

begin

physics := Books.Create('Physics for High School', 10);

chemistry := Books.Create('Advanced Chemistry', 15);

maths := Books.Create('Algebra', 7);

physics.Display;

chemistry.Display;

maths.Display;

end.

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

مثال :

Title: Physics for High School
Price: 10
Title: Advanced Chemistry
Price: 15
Title: Algebra
Price: 7

Title: Physics for High School

Price: 10

Title: Advanced Chemistry

Price: 15

Title: Algebra

Price: 7

همچون سازنده implicit (ضمنی) بنام create، یک متد تخریب کننده (Destructor) نیز وجود دارد که با استفاده از آن می توانید تمام منابع مورد استفاده در کلاس را آزاد کنید.

وراثت

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

مثال :

type
childClas-identifier = class(baseClass-identifier) 
< members >
end;

type

childClas-identifier = class(baseClass-identifier)

< members >

end;

مثال زیر یک کلاس novels را ارائه می دهد ، که از کلاس Books به ارث می برد و قابلیت های بیش تری را بر اساس نیاز اضافه می کند.

مثال :

program inheritanceExample;

{$MODE OBJFPC} //directive to be used for creating classes
{$M+} //directive that allows class constructors and destructors

type
   Books = Class 
   protected 
      title : String; 
      price: real;
   
   public
      constructor Create(t : String; p: real); //default constructor
      
      procedure setTitle(t : String); //sets title for a book
      function getTitle() : String; //retrieves title
      
      procedure setPrice(p : real); //sets price for a book
      function getPrice() : real; //retrieves price
      
      procedure Display(); virtual; // display details of a book
end;
(* Creating a derived class *)

type
   Novels = Class(Books)
   private
      author: String;
   
   public
      constructor Create(t: String); overload;
      constructor Create(a: String; t: String; p: real); overload;
      
      procedure setAuthor(a: String); // sets author for a book
      function getAuthor(): String; // retrieves author name
      
      procedure Display(); override;
end;
var
   n1, n2: Novels;

//default constructor 
constructor Books.Create(t : String; p: real);
begin
   title := t;
   price := p;
end;

procedure Books.setTitle(t : String); //sets title for a book
begin
   title := t;
end;

function Books.getTitle() : String; //retrieves title
begin
   getTitle := title;
end;

procedure Books.setPrice(p : real); //sets price for a book
begin
   price := p;
end;

function Books.getPrice() : real; //retrieves price
begin
   getPrice:= price;
end;

procedure Books.Display();
begin
   writeln('Title: ', title);
   writeln('Price: ', price);
end;

(* Now the derived class methods  *)
constructor Novels.Create(t: String);
begin
   inherited Create(t, 0.0);
   author:= ' ';
end;

constructor Novels.Create(a: String; t: String; p: real);
begin
   inherited Create(t, p);
   author:= a;
end;

procedure Novels.setAuthor(a : String); //sets author for a book
begin
   author := a;
end;

function Novels.getAuthor() : String; //retrieves author
begin
   getAuthor := author;
end;

procedure Novels.Display();
begin
   writeln('Title: ', title);
   writeln('Price: ', price:5:2);
   writeln('Author: ', author);
end;

begin 
   n1 := Novels.Create('Gone with the Wind');
   n2 := Novels.Create('Ayn Rand','Atlas Shrugged', 467.75);
   n1.setAuthor('Margaret Mitchell');
   n1.setPrice(375.99);
   n1.Display;
   n2.Display;
end.

100

101

102

103

104

105

106

107

108

109

110

111

112

program inheritanceExample;

{$MODE OBJFPC} //directive to be used for creating classes

{$M+} //directive that allows class constructors and destructors

type

Books = Class

protected

title : String;

price: real;

public

constructor Create(t : String; p: real); //default constructor

procedure setTitle(t : String); //sets title for a book

function getTitle() : String; //retrieves title

procedure setPrice(p : real); //sets price for a book

function getPrice() : real; //retrieves price

procedure Display(); virtual; // display details of a book

end;

(* Creating a derived class *)

type

Novels = Class(Books)

private

author: String;

public

constructor Create(t: String); overload;

constructor Create(a: String; t: String; p: real); overload;

procedure setAuthor(a: String); // sets author for a book

function getAuthor(): String; // retrieves author name

procedure Display(); override;

end;

var

n1, n2: Novels;

//default constructor

constructor Books.Create(t : String; p: real);

begin

title := t;

price := p;

end;

procedure Books.setTitle(t : String); //sets title for a book

begin

title := t;

end;

function Books.getTitle() : String; //retrieves title

begin

getTitle := title;

end;

procedure Books.setPrice(p : real); //sets price for a book

begin

price := p;

end;

function Books.getPrice() : real; //retrieves price

begin

getPrice:= price;

end;

procedure Books.Display();

begin

writeln('Title: ', title);

writeln('Price: ', price);

end;

(* Now the derived class methods *)

constructor Novels.Create(t: String);

begin

inherited Create(t, 0.0);

author:= ' ';

end;

constructor Novels.Create(a: String; t: String; p: real);

begin

inherited Create(t, p);

author:= a;

end;

procedure Novels.setAuthor(a : String); //sets author for a book

begin

author := a;

end;

function Novels.getAuthor() : String; //retrieves author

begin

getAuthor := author;

end;

procedure Novels.Display();

begin

writeln('Title: ', title);

writeln('Price: ', price:5:2);

writeln('Author: ', author);

end;

begin

n1 := Novels.Create('Gone with the Wind');

n2 := Novels.Create('Ayn Rand','Atlas Shrugged', 467.75);

n1.setAuthor('Margaret Mitchell');

n1.setPrice(375.99);

n1.Display;

n2.Display;

end.

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

مثال :

Title: Gone with the Wind
Price: 375.99
Author: Margaret Mitchell
Title: Atlas Shrugged
Price: 467.75
Author: Ayn Rand

Title: Gone with the Wind

Price: 375.99

Author: Margaret Mitchell

Title: Atlas Shrugged

Price: 467.75

Author: Ayn Rand

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

اعضای کلاس Books دید protected دارند.

کلاس Novels دارای دو سازنده است ، بنابراین از اپراتور اضافه بار (overload) برای عملکرد سر بار استفاده می شود.

رویه Books.Display به صورت مجازی اعلام شده است ، به طوری که همین روش از کلاس Novels می تواند آن را نادیده بگیرد.

سازنده Novels.Create با استفاده از کلمه کلیدی inherited ، سازنده کلاس پایه را فراخوانی می کند.

کلام پایانی

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

QR: جلسه ۲۶-۰۲ : کلاس ها در زبان پاسکال (Pascal)

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

آموزش پاسکال ,آموزش زبان برنامه نویسی پاسکال (Pascal) ,سازندگان و تخریب کننده های (Constructors و Destructors) کلاس پاسکال ,کلاس ها در زبان پاسکال (Pascal) ,وراثت در پاسکال

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

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

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

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

جلسه ۲۶-۰۲ : کلاس ها در زبان پاسکال (Pascal)

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

سازندگان و تخریب کننده های (Constructors و Destructors) کلاس پاسکال

وراثت

کلام پایانی

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

مطالب ویژه

دسته های اصلی

برگه ها

بلاگ