Programing | goblogmedia.net

Aplikasi Sistem Pakar Berbasis PHP

Sistem Pakar merupakan salah satu program khusus yang dibuat dengan cara meng-aplikasikan pada sebuah bahasa pemrograman misalnya PHP, VB, Delphi, C++ dan bahasa pemrograman yang lain. Banyak para progrmer handal yang telah membuat sistem pakar dengan berbagai jenis masalah yang diangkat. misalnya saja bidang kesehatan atau bidang ilmu pengetahuan yang memerlukan logika. Dengan adanya aplikasi [...]

June 4, 2010 | Posted in News...!, Programing, Tips dan Triks | Read More »

Procedure Tanpa Parameter

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
pil:integer;
lagi:char;
Procedure persegi;
var
p,l:integer;
begin
write(’panjang = ‘);readln(p);
write(’lebar = ‘);readln(l);
writeln(’Luas = ‘,p*l);
end;
Procedure segi3;
var
a,t:integer;Luas:real;
begin
write(’alas = ‘);readln(a);
write(’tinggi = ‘);readln(t);
Luas:=0.5*a*t;
writeln(’Luas = ‘,Luas:0:2);
end;
begin
lagi:=’y’;
while lagi=’y’ do
begin
writeln(’1.Persegi’);
writeln(’2.Segi3′);
write(’Pilihan Anda = ‘);readln(pil);
IF pil=1 then
persegi
else
IF pil=2 then
segi3
else
writeln(’-’);
write(’Lagi..???’);readln(lagi);
end;
readln;
end.
sumber/shared: arie-nugroho.blogspot.com

January 9, 2010 | Posted in Programing | Read More »

Program Menghitung Gaji (DELPHI)

program Menghitung_Gaji;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
nama:string;
gol,status:char;
gp,ti,ta,gaji:real;
anak:integer;
begin
write(’Nama :’);readln(nama);
write(’Golongan(1,2,3) :’);readln(gol);
writeln(’Status’);
writeln(’ 1.Belum Menikah’);
writeln(’ 2.Menikah’);
writeln(’ 3.Pernah Menikah’);
write(’Status Anda [...]