Program Himpunan Matematika Pascal

Berikut ini adalah aplikasi program Himpunan matematik yang ditulis dalam bahasa Pascal:

program himpunanBiasa;

uses crt;

var
   himpA,himpB,himpTempA,himpTempB: array[1..20] of integer;
   i,pil, nHimpA, nHimpB :integer;

procedure tulisHimp;
begin
     writeln;
     write('Himpunan A = {');
     for i:=1 to nHimpA do
     begin
          if(i=nHimpA) then
              write(' ',himpA[i])
          else
              write(' ',himpA[i],',');
     end;
     write('}');
     writeln;
     write('Himpunan B = {');
     for i:=1 to nHimpB do
     begin
          if(i=nHimpB) then
              write(' ',himpB[i])
          else
              write(' ',himpB[i],',');
     end;
     write('}');
end;

Format Laporan PKL

Bagi mahasiswa Ubhara Surabaya yang membutuhkan Format Laporan Kerja Praktek dapat diperoleh di sini

Materi Kuliah Metodologi Penelitian

Bagi mahasiswa Ubhara Surabaya yang membutuhkan materi perkuliahan Metodologi Penelitian oleh ibu Richa Watiasih dapat diperoleh di sini

Algoritma Ray Tracing

Ray tracing adalah suatu metode merender gambar dengan cara menelusuri sinar yang mengenai obyek. Jika sinar yang ditelusuri tersebut mengenai suatu obyek maka diperhitungkan intensitas warna obyek tersebut.

 

Operasi Penjumlahan dan Perkalian Matrix Pascal

Kemaren dapet tugas kuliah membuat operasi matrix dengan Bahasa Pemrograman Pascal. Yahh agak tidak familiar dengan pascal  . Tapi setelah googling bentar dapet deh. Program array ini hanya bisa untuk penjumlahan dan perkalian Matrix. Berikut Source kodenya:

program operasi_matrik;

uses wincrt;
label F;
type
matrik=array [1..10,1..10] of integer;
var
m,n,p,q :integer;
A,B,C : matrik;
hit : string;

procedure tulismatrikA;
var i,j : integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
gotoxy(2+2*i,1+j);
readln(A[i,j]);
end;
end;
end;

Binary Search

Metoda Pencarian Biner ( Binary Search) hanya bisa diterapkan jika data array sudah teruru. pengurutan Array bisa menggunakan jenis sorting descending atau asscending. Kelebihan dari Searching dengan metode Binary Sort adalah Untuk Pencarian data yang jumlahnya banyak, waktu pencarian relatif cepat. selain itu beban komputasi juga lebih kecil karena pencarian dilakukan dari depan, belakang, dan tengah. namun ada pula kekurangannya, yaitu data harus disorting dahulu dan Algoritma lebih rumit, tidak baik untuk data berangkai.

---

Algoritma dari Binary Sort

---

Proses yang terjadi pada pencarian dengan metode ini adalah sebagai berikut :

1. Membaca Array data
2. Apabila Array belum terurut maka array diurutkan terlebih dahulu.
3. Menentukan data yang akan dicari
4. Menentukan elemen tengah dari array
5. Jika nilai elemen tengah sama dengan data yang dicari, maka pencarian berhenti.
6. Jika elemen tengah tidak sama dengan data yang dicari maka :
   1. Jika nilai elemen tengah > data yang dicari maka pencarian dilakukan pada setengah array pertama.
   2. Jika nilai elemen tengah lebih kecil dari pada data yang dicari maka pencarian dilakukan pada setengah array berikutnya.

ARRAY Ke-	0	1	2	3	4	5	6	7	8	9
DATA	3	1	4	7	25	12	40	78	90	65
DIURUTKAN	1	3	4	7	12	25	40	65	78	90

Report width is Larger than Papper Width Visual Basic

Pada suatu saat saya mengutak-atik program, kebetulan program ini adalah program penjualan dengan menggunakan bahasa pemrograman Visual Basic 6.0. Pada saat saya running program pada bagian data report muncul pesan “Report width is Larger than Papper Width”. Saya sempat bertanya-tanya, wah ada apa ini  . Nhah setelah cari-cari referensi akhirnya ketemu solusinya, alhamdulillah  . Ternyata error diatas menunjukkan bahwa Lebar Report lebih dari Ukuran lebar Kertas (ukuran kertas printer). Nhah begini solusinya:

Perhatikan bagian properti data report, pada bagian :

LeftMargin
RightMargin
TopMargin
BottomMargin
ReportWidth

Program Pencarian dan Pengurutan data Mahasiswa Pascal

Dibawah ini adalah contoh program pengurutan data Mahasiswa dengan menggunakan Bahasa Pemrograman Pascal:

program latihan;

uses wincrt;

type mahasiswa=record

nim:longint;

nama:string[20];

alamat:string[25];

IP:real;

end;

const jummhs:integer=3;

var

data:array [1..3] of mahasiswa;

procedure menu;forward;

procedure tampil;forward;

{======kumpulan prosedur======}

procedure inputdata;

var

i:integer;

begin

clrscr;

for i:=1 to jummhs do

begin

write(‘NIM :’);readln(data[i].nim);

write(‘Nama : ‘);readln(data[i].nama);

write(‘Alamat : ‘);readln(data[i].alamat);

write(‘IP : ‘);readln(data[i].ip);

writeln;

Program Pascal Persamaan Non Linier Biseksi dan Regular Falsi

program Persamaan_non_linier;
uses wincrt;
var
x,x1,x2,xa,xb,xc,y,y1,y2,ya,yb:real;
I,j,k:integer;
replay:char;
pilihan:integer;
x3,y3:real;
begin
    repeat
      writeln('PILIHAN PROGRAM');
      writeln;
      writeln('1.program metode biseksi');
      writeln('2.program regula falsi');
      writeln;
      writeln('pilihan anda? ');
      readln(pilihan);
    if (pilihan=1) then
 begin
     writeln('tentukan nilai akar persamaan f(x)=x^3+x^2-3x=0 dgn metode biseksi');
     write('masukan nilai x1= ');
     readln(x1);
     y1:=x1*x1*x1+x1*x1-3*x1-3;
     writeln('  nilai f(x1)=',y1:0:4);
     repeat
     begin
     write('masukan nilai x2= ');
     readln(x2);
     y2:=x2*x2*x2+x2*x2-3*x2-3;
     write('  nilaif(x2)=',y2:0:4);
     end;
     if (y1*y2)<0 then
     writeln(' nilai ok')
     else
     writeln(' nilai x2 belum sesuai');
     until (y1*y2)<0;
     i:=2;
     writeln;

Bidang Aplikasi Kecerdasan Buatan

Penerapan Kecerdasan Buatan meliputi berbagai bidang seperti ditunjukkan pada bagian akar pohon AI dalam Gambar di atas antara lain: Bahasa/linguistik, Psikologi, Filsafat, Teknik Elektro, Ilmu Komputer, dan Ilmu Manajemen. Sedangkan sistem cerdas yang banyak dikembangkan saat ini adalah:

Sistem Pakar (Expert Systemi), yaitu program konsultasi (advisory) yang mencoba menirukan proses penalaran seorang pakar/ahli dalam memecahkan masalah yang rumit. Sistem Pakar merupakan aplikasi AI yang paling banyak. Lebih detil tentang Sistem Pakar akan diberikan dalam bab berikutnya.