Delphi Dikdörtgenin Alanını Hesaplama Örneği

251 Okunma Delphi

"Delphi" Programlama dilinde "Dikdörtgenin Alanını Hesaplama Örneği" ile ilgili örnek kod aşağıda gösterilmiştir. 

program RectangleArea;

type
  Rectangle = class
    public
      length, width, area: double;
      procedure GetData();
      procedure ComputeField();
      procedure FieldDisplay();
  end;

procedure Rectangle.GetData();
begin
  writeln('Dikdortgenin uzunlugunu girin: ');
  readln(length);
  writeln('Dikdortgenin genisligini girin: ');
  readln(width);
end;

procedure Rectangle.ComputeField();
begin
  area := length * width;
end;

procedure Rectangle.FieldDisplay();
begin
  writeln('Dikdortgenin Alani: ', area);
end;

var
  r: Rectangle;

begin
  r := Rectangle.Create();
  r.GetData();
  r.ComputeField();
  r.FieldDisplay();
end.
Alan Dikdörtgen Hesap Sayı Kenar Delphi

İlginizi Çekebilir

Delphi 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

Delphi 1'den 100'e Kadar Asal Sayı Toplamı Örneği

Delphi While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

Delphi İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği