contoh program kombinasi pada pascal

uses crt;
var f1,f2,f3:longint;
n,r,delta:integer;
c: real;
Procedure facto( n:integer; var f:longint);
var i:integer;
begin
f:=1;
for i:=1 to n do
f:= f * i;
end;
{======================PROGRAM UTAMA=======================}
Begin
clrscr;
gotoxy(12,3);
write(‘Kita akan menghitung nilai kombinasi dari suatu angka’);
gotoxy(19,4);
writeln(‘Yang mempunyai rumus : rCn = n!/(r!(n-r)!)’);
gotoxy(20,5);
writeln(‘Nilai r harus lebih kecil/sama dengan n’);
writeln;gotoxy(28,6);
write(‘Masukkan nilai n :’,’ ‘);readln(n);
writeln;gotoxy(28,8);
write(‘Masukkan nilai r :’,’ ‘);readln(r);
facto(n,f1);
facto(r,f2);
delta:=(n-r);
facto(delta,f3);
c:= f1/(f2*f3);gotoxy(30,10);
write(‘Hasilnya :’,’ ‘,c:2:0);
readln;
end.

wassalam

Read More

contoh program perkalian pada pascal

masih dengan saya di contoh program perkalian
pasti sebagian dari agan tidak tau cara membuat program perkalian
ok langsung saja ini dia contoh nya

program perkalian;
var
x,y,z:integer;
begin
x:=5;
y:=78;
z:=x*y;
writeln(‘Hasil perkalian’,x,’dan’,y,’adalah’,z);
readln;
end.

ok thank

Read More

contoh program pertambahan pada pascal

hy gan
ini sebuah con program pertambahan buat agan
langsung saja ini dia

program penambahan;
var
x,y,z : imteger;
begin
x:=5;
y:=78;
z:=x+y;
writeln(‘Hasil penjumlah’ ,x,’ dan ‘,y,’adalah’ ,z);
readln
end.

ok bro
thanks :)

Read More

contoh program pengurangan pada pascal

assalamualaikum gan
ini satu contoh program pengurangan buat mas brooo semua

program pengurangan;
var
x,y,z:integer;
begin
x:=5;
y:=78;
z:=x-y;
writeln(‘Hasil pengurangan’,x,’dan’,y,’adalah’,z);
readln;
end.

selamat mencoba iya gan

Read More

Contoh Program Pascal Menghitung perkalian dan penjumlahan dua bilangan

hello gan
apa kabar kalian, pastinya baik-baik saja kan
kali ini saya akan memberi satu contoh program menghitung perkalian dan penjumlahan dua bilangan.
ini gan contoh program nya :

uses
crt;

var
x,y : real;
kali,tambah : real;

begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian 2 bilangan : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan 2 bilangan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.

thank :)

Read More

Pemograman Basis Data Lanjut MySQL (88 hal)

ketemu lagi dengan saya di tempat yang sama.
dan hari ini saya akan berbagi modul untuk agan semua .
modul pemograma basis data lanjut.
silahkan agan download di sini
likn => download <=

Read More