Menghitung nilai Sin dengan sudut radian

Langsung aja praktekin y...

program sin(x);
uses crt;
const pi = 3.14;
var
x,rad,p1,tot : real;
n,i,faktor,p2,j : integer;
tanda : byte;

begin

clrscr;
writeln(' Menentukan nilai sin(x)');
write('Nilai x = '); readln(x);
write('Masukkan pangkat = '); readln(n);
rad := pi*x/180;
i := 1;
tanda := 1;
while i <= n do
begin
p1 := exp(i*ln(rad));
faktor := 1;
for j := 1 to i do
faktor := faktor *j;
p2 := faktor;
tot := tot + (tanda*p1/p2);
tanda := (-1)*tanda;
i := i+2;
end;
writeln('Sin(',x:5:2,') = ',tot:5:2);
readln;
end.


Klo ada pertanyaan langsung di komen...
:)

Baca selengkapnya...

Menghitung Luas dan keliling lingkaran

Waktu ini ada seorang teman yang katanya dia lagi belajar turbo pascal..
Program ini penulis buat pada waktu lagi belajar pascal..Semoga yang lagi belajar Pascal bisa cpet ngerti he2...

Program Luas_dan_Keliling_Lingkaran;
uses crt;
const pi = 3.14;
var
r,K,L : real;
begin

clrscr;
writeln('=============================');
writeln('Menghitung Luas dan Keliling');
writeln('----------------------------');
write('Jari - jari = '); readln(r);
K := pi*2*r;
L := pi*r*r;
writeln('Keliling Lingkaran = ',K:5:2);
writeln('Luas Lingkaran = ',L:5:2);
writeln('=============================');
readln;
end.

Klo ada yg belum dimengerti langsung j kasi komen...
:)

Baca selengkapnya...

Simulasi Antrian Pembuatan SIM - VB 6

Program Simulasi Antrian ini penulis buat dengan VB 6. Pada program ini, tmn2 bisa lihat bagaimana proses antrian yang terjadi. Kita bisa menginput, banyak pelanggan, waktu rata - rata kedatangan, waktu rata - rata lama pelayanan, dan banyak pegawai yg mlayani..


Kalau gambarnya terlalu kecil, klik aja gmbrnya, untuk memperbesar..

Setelah semua diinput, tmn2 bisa proses, dan melihat simulasi yang terjadi. Agar lebih terlihat bagus, penulis menambahkan animasi, dengan menekan tombol 'Animate Simulation'.



Pada form ini tmn2 terlebih dahulu menginputkan no pelanggan, lalu tmn2 bisa lhat bagaimana pelanggan tersebut dilayani. Dari mulai sampai selesai.


Mohon maap sebelumnya, trus terang saat membuat program ini saya masih belajar, dalam pemrograman simulasi dan kemampuan programming penulis masih kurahttp://www.blogger.com/img/blank.gifng. Pada program ini memiliki kekurangan yaitu jika tmn2 mau menginput banyak petugas lebih dari satu maka program ini akan mengalami masalah. Semoga tmn2 bisa melengkapi kekurangan tersebut.

Untuk mendownload program nya bisa klik di sini

Tetep jangan lupa komen...
:)

Update :
Ini saya kasih source nya :
Download

Baca selengkapnya...