Cara Membuat Unit;
setelah anda membuat Unit, Anda harus memastikan program Unit tersebut berhasil dengan cara menjalankannya dengan cara run atau ctrl+f9.
Setelah selesai anda harus menyimpan Unit tersebut ke folder UNITS pada folder Turbo Pascal dengan format TPU(turbo Pascal Unit), contoh "DIDY.TPU" nama Unit harus sama pada pada nama yang akan anda simpan, contoh "Unit DIDY;" simpan dengan nama yang tadi "DIDY.TPU".
setelah itu anda jangan menutupnya, anda compile to disk atau perubahan program ke unit dengan cara run atau ctrl+f9.
terus tekan run lagi atau ctrl+f9 akan muncul compile to disk, di situ anda tekan 'Y' agar peroses pemindahan berhasil dan close program.
Setelah muncul seperti di bawah ini, anda sudah berhasil membuat suatu Unit ciptaan anda dan close saja.
Contoh Pembuatan Unit
• Unit Tambah Kurang Kali Bagi
unit TK2B;
interface
var
a,b,t,u,k,g:real;
function didy1(a,b:real): real;
implementation
function didy1;
begin
t:=a+b;
u:=a-b;
k:=a*b;
g:=a/b;
end;
end.
• Unit Sisa Bagi
unit HNSB;
interface
var
n,m,s,i:integer;
function didy2(n,m:integer): integer;
implementation
function didy2;
begin
i:=n div m;
s:=n mod m;
end;
end.
• Unit Pemangkatan
unit KUDRT;
interface
var
q,j:integer;
function didy3(j:integer): integer;
implementation
function didy3;
begin
q:=j*j;
end;
end.
• Unit Faktorial
unit RIAL;
interface
var
h:integer;
function fak(l:integer): longint;
implementation
function fak;
begin
if (l=1) then
fak:=1 else
fak:=l*fak(l-1);
end;
end.
• Unit Trigonometri
unit SCT;
interface
var
y,sra,nsin,ncos,ntan:real;
function didy4(y:real): real;
implementation
function didy4;
begin
sra:=(y/180)*(22/7);
nsin:=sin(sra);
ncos:=cos(sra);
ntan:=nsin/ncos;
end;
end.
Unit merupakan sebuah penerapan pemrograman modularitas pada turbo pascal. Setiap Unit mirip seperti program pascal yang terpisah, dan merupakan kumpulan tetap, tipe data, peubah, prosedur dan fungsi. Dengan demikian Unit-unit yang di perlukan saja, maka akan sangat menghemat pengingat pada waktu program itu d jalankan.
Cara Membuat Unit;
setelah anda membuat Unit, Anda harus memastikan program Unit tersebut berhasil dengan cara menjalankannya dengan cara run atau ctrl+f9.
Setelah selesai anda harus menyimpan Unit tersebut ke folder UNITS pada folder Turbo Pascal dengan format TPU(turbo Pascal Unit), contoh "DIDY.TPU" nama Unit harus sama pada pada nama yang akan anda simpan, contoh "Unit DIDY;" simpan dengan nama yang tadi "DIDY.TPU".
setelah itu anda jangan menutupnya, anda compile to disk atau perubahan program ke unit dengan cara run atau ctrl+f9.
terus tekan run lagi atau ctrl+f9 akan muncul compile to disk, di situ anda tekan 'Y' agar peroses pemindahan berhasil dan close program.
Setelah muncul seperti di bawah ini, anda sudah berhasil membuat suatu Unit ciptaan anda dan close saja.
Contoh Pembuatan Unit
• Unit Tambah Kurang Kali Bagi
unit TK2B;
interface
var
a,b,t,u,k,g:real;
function didy1(a,b:real): real;
implementation
function didy1;
begin
t:=a+b;
u:=a-b;
k:=a*b;
g:=a/b;
end;
end.
• Unit Sisa Bagi
unit HNSB;
interface
var
n,m,s,i:integer;
function didy2(n,m:integer): integer;
implementation
function didy2;
begin
i:=n div m;
s:=n mod m;
end;
end.
• Unit Pemangkatan
unit KUDRT;
interface
var
q,j:integer;
function didy3(j:integer): integer;
implementation
function didy3;
begin
q:=j*j;
end;
end.
• Unit Faktorial
unit RIAL;
interface
var
h:integer;
function fak(l:integer): longint;
implementation
function fak;
begin
if (l=1) then
fak:=1 else
fak:=l*fak(l-1);
end;
end.
• Unit Trigonometri
unit SCT;
interface
var
y,sra,nsin,ncos,ntan:real;
function didy4(y:real): real;
implementation
function didy4;
begin
sra:=(y/180)*(22/7);
nsin:=sin(sra);
ncos:=cos(sra);
ntan:=nsin/ncos;
end;
end.
»» READMORE...
Cara Membuat Unit;
setelah anda membuat Unit, Anda harus memastikan program Unit tersebut berhasil dengan cara menjalankannya dengan cara run atau ctrl+f9.
Setelah selesai anda harus menyimpan Unit tersebut ke folder UNITS pada folder Turbo Pascal dengan format TPU(turbo Pascal Unit), contoh "DIDY.TPU" nama Unit harus sama pada pada nama yang akan anda simpan, contoh "Unit DIDY;" simpan dengan nama yang tadi "DIDY.TPU".
setelah itu anda jangan menutupnya, anda compile to disk atau perubahan program ke unit dengan cara run atau ctrl+f9.
terus tekan run lagi atau ctrl+f9 akan muncul compile to disk, di situ anda tekan 'Y' agar peroses pemindahan berhasil dan close program.
Setelah muncul seperti di bawah ini, anda sudah berhasil membuat suatu Unit ciptaan anda dan close saja.
Contoh Pembuatan Unit
• Unit Tambah Kurang Kali Bagi
unit TK2B;
interface
var
a,b,t,u,k,g:real;
function didy1(a,b:real): real;
implementation
function didy1;
begin
t:=a+b;
u:=a-b;
k:=a*b;
g:=a/b;
end;
end.
• Unit Sisa Bagi
unit HNSB;
interface
var
n,m,s,i:integer;
function didy2(n,m:integer): integer;
implementation
function didy2;
begin
i:=n div m;
s:=n mod m;
end;
end.
• Unit Pemangkatan
unit KUDRT;
interface
var
q,j:integer;
function didy3(j:integer): integer;
implementation
function didy3;
begin
q:=j*j;
end;
end.
• Unit Faktorial
unit RIAL;
interface
var
h:integer;
function fak(l:integer): longint;
implementation
function fak;
begin
if (l=1) then
fak:=1 else
fak:=l*fak(l-1);
end;
end.
• Unit Trigonometri
unit SCT;
interface
var
y,sra,nsin,ncos,ntan:real;
function didy4(y:real): real;
implementation
function didy4;
begin
sra:=(y/180)*(22/7);
nsin:=sin(sra);
ncos:=cos(sra);
ntan:=nsin/ncos;
end;
end.
