Kamis, 11 Desember 2014

Tentang Algoritma Dan Pemgrograman

setiap belajar algoritma itu dosen yang mengajar kita selalu menceritakan keburukannya yaitu membaca buku dan menceritakan tentang kisah kisah orang yang besar di dunia . dosen saya adalah orang yang suka membuang waktunya untuk membaca kisah kisah orang yang besar di dunia. pertama belajar algoritma dan free pascal saya sangat tidak mengerti dan setiap selesai pelajaran itu dosennya selalu memberi tugas yang yang sulit dan banyak . saya sangat tidak mengerti apa itu Algorima Dan Pemgrogram, bukan karena logika saya lemah tapi saya tidak mengerti bagaimana konsepnya . awal awal kerja tugas dari dosen saya itu, saya cuma foto program teman saya dan mengodingnya di laptopku dengan movie maker dan upload ke youtube dan blogger. tapi akhirnya saya bisa sendiri sekarang bahkan tugas besar dari asprak saya berhasil mengerjakannya sendiri . ternyata belajar Algoritma itu menyenangkan dan bisa membuat kita bangga saat program kita jadi. karena semua materi telah rangkum jadi kami tidak bisa belajar algoritma lagi. dan saya masih ingat kata kata terakhir dari dosen saya : " tetaplah merasa lapar, jangan pernah merasa sudah bisa, tetaplah merasa bodo maka anda akan terus berusaha mengetahui apa yang anda belum ketahui ". TO WIN SOME OR LEARN SOME. Terima Kasih Pak Awan Rimbawan

program Bank

program perbankan dalam pascal
membuat transaksi perbankan sederhana, Tabung, tarik dan transfer dengan menggunakan procedure, pada menu awal ditampilkan 5 pilihan menu
1. cek saldo
2. tabung
3. tarik
4. transfer
5. keluar
saldo anda sebesar ....

uses crt;
var
 saldo,tabung,tarik,transfer,n : longint;
 pil : integer;

procedure pceksaldo();
begin
 randomize();
 saldo := random(10000000);
 n := 100000;
 writeln('saldo anda sebesar :Rp. ',saldo);
end;
procedure ptabung(tabung:longint);
begin
 writeln('saldo awal anda sebesar       :Rp. ',saldo);
 writeln('tabungan anda sebesar         :Rp. ',tabung);
 saldo := saldo + tabung;
 writeln('-------------------------------------------- + ');
 writeln('saldo akhir anda sebesar      :Rp. ',saldo);
end;
procedure ptarik(tarik:longint);
begin
 writeln('saldo awal anda sebesar       :Rp. ',saldo);
 writeln('tarikan anda sebesar          :Rp. ',tarik);
 if ((saldo-tarik)>=n) then
  begin
   saldo := saldo - tarik;
   writeln('---------------------------------------------- - ');
   writeln('saldo akhir anda sebesar    :Rp. ',saldo);
  end
 else
  begin
    writeln('saldo anda tidak mencukupi');
  end;
 end;
procedure ptransfer(transfer:longint);
begin
 writeln('saldo awal anda sebesar       :Rp. ',saldo);
 writeln('transfer sebesar              :RP. ',transfer);
 if ((saldo-transfer)>=n) then
  begin
   saldo := saldo - transfer;
   writeln('---------------------------------------------- - ');
   writeln('saldo akhir anda sebesar     :Rp. ',saldo);
  end
 else
  begin
   writeln('saldo anda tidak cukup untuk ditransfer');
  end;
   end;

begin
clrscr;
 repeat
 writeln('+---------------------------+');
 writeln('|SELAMAT DATANG DI BANK t-U|');
 writeln('|         MENU UTAMA        |');
 writeln('+---------------------------+');
 writeln();
 writeln('1. Cek Saldo');
 writeln('2. Tabung');
 writeln('3. tarik');
 writeln('4. Transfer');
 writeln('5. keluar');
 writeln;
 write('Pilihan Anda : '); readln(pil);
 case (pil) of
   1 : begin
        pceksaldo();
       end;
   2 : begin
        write('jumlah tabungan anda     :Rp. '); readln(tabung);
         ptabung(tabung);
       end;
   3 : begin
        write('jumlah tarikan anda      :Rp. '); readln(tarik);
         ptarik(tarik);
       end;
   4 : begin
        write('jumlah anda transfer     :Rp. '); readln(transfer);
         ptransfer(transfer);
       end;
   5 : begin
         writeln('Terimakasih');
       end;
 else
  writeln('Pilihan Tidak Ada ');
 end;
  writeln('press enter to continue ...');
  readln();
  until (pil=5);
end.