Contoh Program Logika Timbangan (Problema Timbagan) dalam bahasa PASCAL (Teknik Searching-PIB) ~ Computer Network Engineering

TEKNIK SEARCHING

Searching di dalam AI (Artificial Intelligence) adalah salah satu motode penyelesaian masalah dengan pencarian solusi pada suatu permasalahan yang dihadapi.

Masalah - masalah yang dapat dikonversikan ke dalam ruang keadaan, ada yang menyebut sebagai ruang masalah mempunyai keadaan awal (initial state) dan keadaan tujuan (goal state).

Mendeskripsikan masalah
mendefinisikan suatu ruang keadaan
menetapkan satu atau lebih keadaan awal
menetapkan satu atau lebih tujuan
menetapkan kumpulan aturan

Ruang keadaan (state space) yaitu suatu ruang yang berisi semua keadaan yang mungkin keadaan awal (initial state) atau keadaan di mulainya sebuah pencarian keadaan akhir atau tujuan (goal) atau keadaan di akhirnya sebuah pencarian. Kumpulan aturan atau aturan yang dapat digunakan untuk mengubah suatu keadaan (state) dengan state lainnya. ( sumber )

Logika Timbangan (Problema Timbangan)

contoh :

Ada 5 keping uang logam diatas timbangan berapa gram total dari semua keping?

Jika jumlah timbangan 72gram, berada pada keping ke berapa ?

Jika jumlah timbangan 74gram, berada pada keping ke berapa ?

Jika jumlah timbangan 71gram, berada pada keping ke berapa ?

Jika di keping ke 5 berapa gram ?

jawab :

(1+2+3+4+5=15) total = 5 x 15 = 75 gram

75-72 = 3 keping

75-74 = 1 keping

75-71 = 4 keping

75-5 = 71 gram

Dari teknik searching logika timbangan di atas saya mencoba membuat program logika timbangan atau problema timbangan dalam bahasa pascal.

SourceCode:

program Logika_Timbangan;
uses crt;
var
   jt,gr,kp,hsl,jml:longint;
   inp,a,b,c,menu:integer;
   ulangi,lagi:char;
begin
textcolor(10);
lagi:='y';
while lagi='y' do
   begin
     clrscr;
     writeln('+=======================================+');
     Writeln('|        Program Logika Timbangan       |');
     Writeln('|                 Made by :             |');
     Writeln('|      Computer Network Engineering     |');
     writeln('|  http://www.com-net-eng.blogspot.com  |');
     writeln('+=======================================+');
     writeln;
     write('Masukan Jumlah Total Keping : ');read(kp);
     jml:=0;
     for a:=1 to kp do
     begin
       jml:= jml + a;
       jt:= jml * kp;
     end;
     writeln('Total berat dari ',kp,' keping adalah : ',jt,' gram');
     writeln;
     ulangi :='y';
     while ulangi='y' do
     begin
     writeln('+=======================================+');
     Writeln('|        ||\/|| |""  ||\ || || ||       |');
     Writeln('|        ||  || =--  || \|| || ||       |');
     Writeln('|        ||  || |__  ||  ||  \_/        |');
     writeln('+=======================================+');
     Writeln('|      Computer Network Engineering     |');
     writeln('+=======================================+');
     writeln;
     writeln('1. Mencari Berat dari Keping Ke-n');
     writeln('2. Mencari Keping ke-n');
     writeln('3. Exit');
     writeln;
     write('Masukan pilihan 1-3 : ');readln(menu);
     case menu of
        1: begin
                clrscr;
                writeln('+========================================+');
                writeln('|     Mencari Berat dari Keping ke-n     |');
                writeln('+========================================+');
                writeln;
                write('Mencari berat dari keping ke : ');readln(inp);
                if inp < kp then
                        begin
                                hsl:= jt - inp;
                                if (hsl<>0) and (inp<kp) then
                                writeln;
                                writeln('Berat dari keping ke-',inp,' adalah : ',hsl);
                        end;
                writeln;
                if inp = kp then
                writeln('Total berat dari ke-',inp,' adalah : ',jt,' gram');
                if inp > kp then
                writeln('Berat dari keping ke-',inp,' tidak ditemukan, karena total keping hanya ada ',kp,' keping');
            end;
        2: begin
                clrscr;
                writeln('+========================================+');
                writeln('|            Mencari Keping ke-n         |');
                writeln('+========================================+');
                writeln;
                write('Masukan berat yang di ketahui (gram) : ');readln(inp);
                if inp < jt then
                        begin
                         hsl:= jt - inp;
                         if (hsl<>0) and (inp<jt) then
                         writeln('Berat ',inp,' gram berada pada keping ke : ',hsl);
                        end;
                writeln;
                if inp = jt then
                writeln('Berat ',inp,' gram berada pada keping ke : ',kp);
                if inp > jt then
                writeln('Berat yang dimasukan melebih berat total : ',jt);
           end;
        3: begin
                clrscr;
                writeln('+=======================================+');
                writeln('|      Terimakasih telah menggunakan    |');
                Writeln('|        Program Logika Timbangan       |');
                Writeln('|                 Made by :             |');
                Writeln('|      Computer Network Engineering     |');
                writeln('|            Kunjungi terus :           |');
                writeln('|  http://www.com-net-eng.blogspot.com  |');
                writeln('+=======================================+');
                writeln;
           end;

     end;
     writeln;
     writeln('<><><><><><><><><><><><><><><><><><><><>');
     writeln;
     write('Kembali ke MENU  ? (y/t) : ');readln(ulangi);
     writeln;
     end;
     writeln;
     writeln('<><><><><><><><><><><><><><><><><><><><>');
     writeln;
     write('Mengulang Program ? (y/t) : ');readln(lagi);
     writeln;
   end;
end.

Compilernya menggunakan Free Pascal atau juga bisa menggunakan Turbo Pascal 7.1

Output Program

Computer Network Engineering

Contoh Program Logika Timbangan (Problema Timbagan) dalam bahasa PASCAL (Teknik Searching-PIB)

Related Post