CONTOH SCRIPT DASAR PEMBUATAN PROGRAM PADA DELPHI 7 (Part 8)

Sekarang saya akan beri sebuah contoh Script Coding Faktorial..
langsung saja kita ke contoh Script sebagai berikut..

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure faktorial(var fak,hasil:integer);
  var
  i:integer;
begin
hasil:=1;
for i:= 2 to fak do
hasil:=hasil*i;
end;
var
N,F:integer;
begin
write ('Berapa faktorial?');
readln(N);
faktorial(N,F);
writeln(N,'faktorial=',F);
readln;
end.

Hasil Runningnya seperti ini..

Dan Contoh berikutnya simak soal sebagai berikut..
Dengan menggunakan procedure, buat program untuk menghitung banyaknya kombinasi dengan rumus :
C r,n= N!/(N-R)!.R!
N = banyaknya data yang di kombinasikan
R = jumlah kombinasi
C = jumlah kombinasi yang terjadi

Contoh :
Misal jumlah data yang dikombinasi 3 buah :
A, B, C akan akan dikombinasikan dua. dua ( R = 2 )
maka kombinasi yang terjadi adalah AB, AC dan BC.

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure faktorial(var fak,hasil:integer);
  var
  i:integer;
begin
hasil:=1;
for i:= 2 to fak do
hasil:=hasil*i;
end;
var
C:real;N,R,NminR:integer;
f1,f2,f3:integer;
begin
write ('Banyaknya data yang dikombinasikan=');
readln(N);
write ('Banyaknya kombinasi=');readln(R);
faktorial(N,f1);
NminR:=N-R;
faktorial (NminR,f2);
faktorial(R,f3);
C:=f1/f2*f3;
writeln('Jumlah kombinasi yang terjadi=',C);
readln;
end.

Hasilnya akan seperti ini

~Selamat Mencoba~