Menghitung luas segitiga menggunakan function delphi 10

Pemrograman Modular (Procedure & Fungsi)

Didalam Pemrograman menggunakan Bahasa Pascal atau Delphi, kita dapat menyederhanakan program yang kompleks menjadi potongan-potongan program yang lebih sederhana. Dimana potongan-potongan program tersebut disebut dengan modul/subrutin yang dapat menjalankan suatu tugas tertentu. Ada 2
macam subrutin dalam bahasa Pascal maupun Delphi :
1. Prosedur (Procedure)
Bentuk Umum :
Procedure nama_procedure (parameter formal:type data);
var lokal
begin
proses perhitungan;
pencetakan hasil;
end;
2. Fungsi (Function)
Bentuk Umum :
Function nama_fungsi (parameter formal:type data):type keluaran;
begin
proses perhitungan;
end;

 ni contoh penggunaan modular untuk menghitung luas dan keliling segitiga.......
monggo docoba ...
copy script berikut



program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,t,m :real;


function luas(alas,tinggi:real):real;
begin
result:=0.5*alas*tinggi;
end;

function keliling(alas,miring:real):real;
begin
result:=alas+(miring*2);
end;

begin
write('Masukan  Alas:');
readln (a);
write('Masukan  Tingi:');
readln(t);
write('Masukan  sisi miring:');
readln(m);
writeln('');

writeln('luas segitiga adalah=',luas(a,t):6:1);
writeln('');
writeln('keliling segitiga adalah=',keliling(a,m):6:1);
readln
end.