۱۵
اردیبهشت

جلسه ۲۵-۰۳ : شی گرایی در زبان پاسکال (Pascal)

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

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

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

شی گرایی در زبان پاسکال (Pascal)

وراثت برای Pascal Objects

اشیاء پاسکال می توانند به صورت اختیاری از یک شی والدین به ارث ببرند. برنامه زیر نشان از وراثت در اشیاء پاسکال دارد. بگذارید یک شیء دیگر به نام TableTop ایجاد کنیم ، که از شیء Rectangle به ارث می رسد.

مثال :

program exObjects;
type 
   Rectangle = object  
   private  
      length, width: integer; 
   public  
      procedure setlength(l: integer);  
      function getlength(): integer;  
      procedure setwidth(w: integer);  
      function getwidth(): integer;  
      procedure draw;
end;

TableTop = object (Rectangle)
   private
     material: string;
   public
      function getmaterial(): string;
      procedure setmaterial( m: string);
      procedure displaydetails;
      procedure draw;
end;

var
   tt1: TableTop;

procedure Rectangle.setlength(l: integer);
begin
   length := l;
end;

procedure Rectangle.setwidth(w: integer);
begin
   width :=w;
end;

function Rectangle.getlength(): integer;  
begin
   getlength := length;
end;

function Rectangle.getwidth():integer;
begin
   getwidth := width;
end;

procedure Rectangle.draw;
var 
   i, j: integer;
begin
   for i:= 1 to length do
   begin
      for j:= 1 to width do
         write(' * ');
      writeln;
  end;
end;

function TableTop.getmaterial(): string;
begin
   getmaterial := material;
end;

procedure TableTop.setmaterial( m: string);
begin
   material := m;
end;

procedure TableTop.displaydetails;
begin
   writeln('Table Top: ', self.getlength(), ' by ' , self.getwidth());
   writeln('Material: ', self.getmaterial());
end;

procedure TableTop.draw();
var
   i, j: integer;
begin
   for i:= 1 to length do
   begin
      for j:= 1 to width do
         write(' * ');
   writeln;
   end;
   writeln('Material: ', material);
end;

begin
   tt1.setlength(3);
   tt1.setwidth(7);
   tt1.setmaterial('Wood');
   tt1.displaydetails();
   writeln;
   writeln('Calling the Draw method');
   tt1.draw();
end.

program exObjects;

type

Rectangle = object

private

length, width: integer;

public

procedure setlength(l: integer);

function getlength(): integer;

procedure setwidth(w: integer);

function getwidth(): integer;

procedure draw;

end;

TableTop = object (Rectangle)

private

material: string;

public

function getmaterial(): string;

procedure setmaterial( m: string);

procedure displaydetails;

procedure draw;

end;

var

tt1: TableTop;

procedure Rectangle.setlength(l: integer);

begin

length := l;

end;

procedure Rectangle.setwidth(w: integer);

begin

width :=w;

end;

function Rectangle.getlength(): integer;

begin

getlength := length;

end;

function Rectangle.getwidth():integer;

begin

getwidth := width;

end;

procedure Rectangle.draw;

var

i, j: integer;

begin

for i:= 1 to length do

begin

for j:= 1 to width do

write(' * ');

writeln;

end;

function TableTop.getmaterial(): string;

begin

getmaterial := material;

end;

procedure TableTop.setmaterial( m: string);

begin

material := m;

end;

procedure TableTop.displaydetails;

begin

writeln('Table Top: ', self.getlength(), ' by ' , self.getwidth());

writeln('Material: ', self.getmaterial());

end;

procedure TableTop.draw();

var

i, j: integer;

begin

for i:= 1 to length do

begin

for j:= 1 to width do

write(' * ');

writeln;

end;

writeln('Material: ', material);

end;

begin

tt1.setlength(3);

tt1.setwidth(7);

tt1.setmaterial('Wood');

tt1.displaydetails();

writeln;

writeln('Calling the Draw method');

tt1.draw();

end.

در زیر نکات مهمی که باید به آن ها اشاره شود ، آورده شده است.

شیء Tabletop تمام اعضای شیء Rectangle را به ارث برده است.
یک روش طراحی (draw) متد در TableTop نیز وجود دارد. هنگامی که متد draw با استفاده از یک شی TableTop خوانده می شود ، TableTop draw فراخوانی می شود.
یک نمونه implicit به نام self وجود دارد که به نمونه فعلی شیء اشاره دارد.

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

مثال :

Table Top: 3 by 7
Material: Wood

Calling the Draw Method 
* * * * * * *
* * * * * * *
* * * * * * *
Material: Wood

Table Top: 3 by 7

Material: Wood

Calling the Draw Method

* * * * * * *

Material: Wood

کلام پایانی

وراثت برای Pascal Objects را در این بخش از شی گرایی در زبان پاسکال (Pascal) مورد بررسی قرار دادیم. در جلسه ی آینده به بررسی کلاس ها می پردازیم. با آموزش زبان برنامه نویسی پاسکال (Pascal) همراه باشید.

QR: جلسه ۲۵-۰۳ : شی گرایی در زبان پاسکال (Pascal)

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

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

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

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

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

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

جلسه ۲۵-۰۳ : شی گرایی در زبان پاسکال (Pascal)

شی گرایی در زبان پاسکال (Pascal)

وراثت برای Pascal Objects

کلام پایانی

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

مطالب ویژه

دسته های اصلی

برگه ها

بلاگ