Program: (2) PEMANGGILAN UNIT PASCAL

Setelah selesai anda membuat suatu Unit ciptaan anda, anda harus memanggil Unit-nya, pemanggilan Unit harus sama pada nama Unitnya.
contoh "DIDY.TPU" pemanggilan dalam Turbo Pascal-nya "Uses crt,DIDY;", tanpa ada nama Unit-nya, Unit tersebut tidak akan jalan.

Seperti pada gambar di bawah ini.

Jika sudah selesai tinggal di jalankan saja dengan menekan run atau ctrl+f9.

Contoh Program Pemanggilan unit.

uses crt,TK2B,HNSB,KUDRT,RIAL,SCT;
var
a,b:integer;
begin
clrscr;
write('~ Masukkan Angka Pertama : '); readln(a);
write('~ Masukkan Angka Kedua : '); readln(b);
didy1(a,b);
writeln(' Hasil Tambah : ',t:0:2);
writeln(' Hasil Kurang : ',u:0:2);
writeln(' Hasil kali : ',k:0:2);
writeln(' Hasil Bagi : ',g:0:2); readln; clrscr;
write('~ Masukkan Angka Pertama : '); readln(a);
write('~ Masukkan Angka Kedua : '); readln(b);
didy2(a,b);
writeln(' Hasil Bagi : ',i);
writeln(' Sisa bagi : ',s); readln; clrscr;
write('~ Masukkan Angka : '); readln(a);
didy3(a);
writeln(' Hasil Kuadrat : ',q); readln; clrscr;
write('~ Masukkan Angka : '); readln(a);
fak(a);
writeln(' ',a,' Hasil Faktorial : ',fak(a)); readln; clrscr;
write('~ Masukkan Angka : '); readln(a);
didy4(a);
writeln(' Hasil sinus : ',nsin:0:5);
writeln(' Hasil Cosinus : ',ncos:0:5);
writeln(' Hasil Tangen : ',ntan:0:5);
readln;
end.

»» READMORE...