Selasa, 12 Mei 2015

Ulasan Tentang mesran.blogspot.com


Kali ini saya akan mengajak teman-teman sekalian untuk belajar banyak tentang bahasa program, dan saya juga akan memperkenalkan kepada teman-teman sebuah blog yang bisa membantu dan mempermudah kita untuk belajar banyak tentang bahasa pemrograman yaitu di mesran.blogspot.com.
Dalam postingan blog mesran.blogspot.com terdapat tab menu Home, Pemrograman, Download, Kampus, Berita dan Sistem Informasi. Yang berguna untuk membantu para mahasiswa STMIK Budidarma atau pengguna internet lain mencari informasi yang dibutuhkan.
Pada mesran.blogspot.com terdapat beberapa artikel diantaranya artikel mengenai tips tips belajar bahasa pemrograman serta beberapa bahasa pemrograman salah satunya VisualBasic dot Net serta program berorientasi Database sebagai contoh : Program Visual Basic Net Simpan Edit Hapus Record Pada DatabaseAccess.
Mungkin itu saja yang bisa saya ulas dari blog mesran.blogspot.com, sekian dan terima kasih.

Kamis, 07 Mei 2015

Program Pascal Perulangan untuk Menghitung Rata-rata Bilangan Ganjil dengan Input Bilangan Awal dan Akhir By ernida, 08 mei 2015

For...to...do
program for_to_do;
uses wincrt;
label back;
var
 i:byte;
 k,awal,akhir:integer;
 rata,jum:real;
begin
back:
clrscr;
write('nilai awal=');readln(awal);
write('nilai akhir=');readln(akhir);
if awal<=akhir then
begin
for i:=awal to akhir do
if i mod 2=1 then
begin
jum:=jum+i;
awal:=awal+2;
k:=k+1;
end;
end
else goto back;
rata:=jum/k;
writeln('rata-rata=',rata:2:2);
end.

While...do

program while_do;

uses wincrt;

label back;

var
 k,awal,akhir:integer;
 rata,jum:real;
begin
back:
clrscr;
write('nilai awal=');readln(awal);
write('nilai akhir=');readln(akhir);
if awal<=akhir then
begin
while awal<=akhir do
begin
jum:=jum+awal;
awal:=awal+2;
k:=k+1;
end;
end
else goto back;
rata:=jum/k;
writeln('rata-rata=',rata:2:2);
end.


Repeat...Until

program repeat_until;
uses wincrt;
label back;
var
 k,awal,akhir:integer;
 rata,jum:real;
begin
back:
clrscr;
write('nilai awal=');readln(awal);
write('nilai akhir=');readln(akhir);
if awal<=akhir then
begin
repeat
jum:=jum+awal;
awal:=awal+2;
k:=k+1;
until awal>akhir;
end
else goto back;
rata:=jum/k;
writeln('rata-rata=',rata:2:2);
end.

Contoh Pemrograman Dasar Komputer Dengan Pascal By ernida, 8 mei 2015

Pada bagian Pemrograman dasar pascal, kita akan membahas Contoh Program Komputer tentang perhitungan matematika dasar.  Dalam perhitungan matematika, kita menggunakan operator aritmatika sebagai berikut :

Penjelasan :

Operator tanda kurung adalah priorotas pertama, artinya bagian yang berada dalam tanda kurang akan dikerjalan pertama kali, kemudian diikuti oleh operator dengan prioritas kedua yaitu kali dan bagi (*dan /), kemudan tambah dan kurang . Dalam  perhitungan matematika, tanda sama dengan menggunakan tanda  := (titik dua sama dengan) untuk menyatakan nilai.

 Operator Div digunakan untuk membagi 2 bilangan  bulat (integer) kemudian mengambil  hasil bagi dan sisanya dibuang. Sedangkan operator Mod digunakan untuk membagi 2 bilangan bulat (integer) kemudian mengambil sisanya dan hasil baginya dibuang. 

Misalnya : 7 dibagi 2. Hasil baginya 3 dan sisanya 1.
X:= 7 div 2, hasilnya 3
X:= 7 mod 2, hasilnya 1

Tipe Data

1.  Integer    : untuk menyatakan bilangan bulat. Misalnya : 1, 2, 3, dst. Tipe Integer terdiri dari dari 5 macam  yaitu :
2.  Real        : untuk menyatakan bilangan desimal. Misalnya : 1.45, 5.76, dst. Pemisah tanda desimal menggunakan  titik bukan  koma. Tipe real dibagi menjadi 4 macam yaitu   :

Kerja Sambil Kuliah

Format Output Tipe Real

Output dari variabel bertipe real berupa bilangan desimal dengan 10 angka di belakang koma dan E+0n, dimana n =1,2,3, dst. Misalnya 1.6000000000E+02, artinya sama dengan 1.6 x 10 pangkat 2.
Untuk menampilkan output yang rapi, maka perlu diformat dengan bentuk sbb:

V:N:D dimana V adalan nama variabel, N adalah jumlah digit, dan D adalah jumlah desimal.

Contoh : X:6:2

artinya nilai variabel x terdiri dari 6 digit dan 2 angka dibelakang koma. Misalnya  094.32 tetapi 0 tidak dicetak sehingga tampilan output adalah 94.32.

3.  Char        : untuk menyatakan huruf, karakter dan tanda baca

Tipe data tunggal yang berhubungan dengan tombol-tombol di keyboard. Char adalah semua tombol yang terdapat pada keyboard atau lebih lengkapnya semua karakter yang terdapat pada kode ASCII.
Apabila data Char ingin dijadikan sebagai konstanta maka karakter yang harus diapit dengan tanda kutip satu.   Misalnya  :Huruf := ’A’

4.  String   : untuk menyatakan kata atau kalimat

String (adalah kumpulan type data yang berbentuk karakter). Tipe data string digunakan untuk menampung nilai dalam bentuk huruf, dimana batas maximal adalah sebanyak 255 karakter. Apabila data string ingin dijadikan sebagai konstanta maka data string yang harus diapit oleh tanda kutip satu.   Misalnya  : data:= ’Program Komputer’

5. Boolean    : untuk menyatakan benar(true) atau salah (false)

Mempunyai nilai benar / salah. Operator yang penghubung untuk tipe boolean adalah : =, > , <, <=, =>, <>;. Boolean akan menghasilkan false jika nilai = 0 dan akan menghasilkan true jika nilai = 1. Tipe boolean biasanya digunakan dalam operasi kondisional pada saat pengambilan keputusan Ya atau Tidak dengan menggunakan fungsi IF – Then – else.

Variabel 

Dalam perhitungan matematika, variabel adalah komponen yang sangat penting untuk digunakan. Karena itu, setiap masalah harus dianalisa dengan baik agar dapat menentukan jenis variabel dan tipe data yang akan digunakan. Variabel yang akan digunakan harus dideklarasikan lebih dahulu pada bagian deklarasi variabel.

Contoh Deklarasi Variabel :

Var       
a,b      : integer;
X,y,z     : real;
Huruf     : char;
Kata     : string[25]; artinya panjang kata atau kalimat maksimum 25 karakter. Jika tidak disebutkan maka panjangnya 255 karakter.

 Contoh Program  Komputer Untuk Perhitungan Matematika Sederhana

Contoh-1

Buatlah program dengan persaman  matematika :   Y = 2x + (8x – 25)

Jawab :

Dari persamaan di atas terdiri dari 2 buah variabel yaitu x dan y. Variabel  x adalah variabel  input dan y adalah variabel output. Tipe variabel boleh  integer atau real. Seperti pada pembahasan sebelumnya bahwa Langkah pertama adalah membuat algoritma, kemudian flowchart, dan membuat kode program.

Algoritma :
  •     Mulai
  •     Deklarasikan variabel
  •     Tentukan nilai x
  •     Hitung nilai Y
  •     Cetak x dan y.
  •     Selesai

Flow Chart


Kode Contoh Program Komputer

Program Contoh1;
uses crt;

var x,y : integer;

Begin
     clrscr;
     write('Input Nilai x = ');
     readln(x);
     y:= 2*x + (8*x -25);
     writeln;
     writeln(' Y = ',y);
     readln;
End.

Output Program:

Contoh 2

Buatlah program untuk mencari nilai a dari persamaan  a = (b + 3c)b – bcd

Jawab :

Persamaan di atas terdiri dari 4 buah variabel yaitu a,b,c,dan d. Gunakan tipe data integer jika input datanya berupa bilangan bulat saja. Jika ada input data berupa bilangan desimal, maka harus menggunakan tipe data real.

Algoritma :
  •     Mulai
  •     Deklarasikan variabel
  •     Input nilai b,c,d
  •     Hitung nilai a
  •     Cetak nilai a,b,c,d.
  •     Selesai
Flowchart

Kode Contoh Program Komputer

Program Contoh2;
uses crt;

var a,b,c,d : real;

Begin
     clrscr;
     write('Input Nilai b = ');readln(b);
     write('Input Nilai c = ');readln(c);
     write('Input Nilai d = ');readln(d);
     a:= (b + 3*c)*b - b*c*d;
     writeln;clrscr;
     writeln(' b = ',b:6:2,'   c = ',c:6:2,'  d = ',d:6:2);
     writeln;
     writeln(' Hasil Perhitungan, a = ',a:6:2);
     readln;
End.

Ouput Program


Contoh-3

Buatlah program untuk menghitung persamaan    y= □(√(a^2+b^2 )/4b)

Jawab :

Persamaan di atas terdiri dari 3 buah variabel yaitu y, a, dan b. Variabel y harus bertipe real karena y akan menyimpan hasil pembagian bilangan, dimana hasil pembagian akan berbentuk bilangan desimal. Sedangkan variabel a dan b, bisa bertipe real atau integer. Artinya jika integer, maka a dan b hanya dapat menerima bilangan bulat saja.

Algoritma :

  • Mulai
  • Deklarasikan variabel
  • Input nilai a dan b
  • Hitung nilai  x= √(a^2+b^2 )
  • Hitung nilai  y=x/4b
  • Cetak Nilai  y
  • Selesai
Flowchart


Dalam program Pascal terdapat fungsi :
Sqrt (x)  :  digunakan untuk menghitung nilai akar pangkat dua dari x
Sqr(x)    :  digunakan untuk menghitung nilai pangkat dua dari x

Kedua fungsi tersebut akan kita gunakan dalam program untuk menyelesaikan persamaan.

Kode Contoh Program Komputer

Program Contoh3;
uses crt;

var y,x,a,b : real;

Begin
     clrscr;
     write('Input Nilai a = ');readln(a);
     write('Input Nilai b = ');readln(b);

     x := sqrt(sqr(a) + sqr(b));
     y := x/(4*b);

     writeln;writeln;
     writeln(' a = ',a:6:2,'   b = ',b:6:2);
     writeln;
     writeln(' Y = ',y:6:2);
     readln;
End.

Hasil  Program:

Contoh Program Komputer-4

Buatlah program untuk membagi 2 bilangan bulat dengan operator Div dan Mod.

Jawab :

Div dan Mod hanya dapat membagi bilangan bulat, sehingga variabel yang digunakan harus bertipe integer.

Algoritma :
  • Mulai
  • Deklarasikan variabel  x,y,n,m
  • Input 2 bilangan bulat
  • Hitung  n = x mod y dan m = x div y
  • Cetak hasilnya
  • Selesai

Flowchart : sama dengan contoh di atas.

Kode Contoh Program Komputer


Program Contoh4;
uses crt;

var y,x,n,m : integer;

Begin
     clrscr;
     write('Input Nilai x = ');readln(x);
     write('Input Nilai y = ');readln(y);

     n:= x mod y;
     m := x div y;

     writeln;writeln;
     writeln(' x = ',x,'   y = ',y);
     writeln;
     writeln(' x mod y = ',n);
     writeln(' x div y = ',m);
     readln;
End.

Hasil Program:

Contoh Program Komputer-5:

Buatlah program untuk menampilkan huruf, kata atau kalimat.

Jawab :

Untuk menampilkan huruf, maka tipe variabelnya adalah char sedangkan kata atau kalimat tipe variabelnya adalah string.

Algoritma :
    Mulai
    Deklarasikan Variabel
    Inpit huruf dan kata/kalimat
    Tampilkan/cetak hasilnya
    Selesai

Kode Contoh Program Komputer


Program Contoh5;
uses crt;

var huruf : char;
    kata  : string;

Begin
     clrscr;
     write('Input Huruf        = ');readln(huruf);
     write('Input Kata/Kalimat = ');readln(kata);

     writeln;writeln;
     writeln(' Data Char   = ',huruf);
     writeln(' Data String = ',kata);
     readln;
End.

Hasil Program

Mencari Bilangan Terendah dan Tertinggi Dengan Menggunakan Pascal By ernida, 8 mei 2015

Uses wincrt;
Var bil:array[1..100] of integer;
max,min,i,n:integer;

Begin
     Write('Input Jumlah = '); readln(n);
     Max:=1;
     Min:=30000;

     For i:=1 to n do
     Begin
          {Input Bilangan 1}
          Write('Bilangan ke ',i,' = '); readln(bil[i]);

          {Cari Bilangan Maximal}
          If bil[i]>Max then Max := bil[i] ;

          {Cari Bilangan Minimal}
          If bil[i]<Min then Min := bil[i] ;

     End;

     Writeln('Max Value = ', Max);
     Writeln('Min Value = ', Min);
     Readln ;
End.

Sabtu, 02 Mei 2015

Program Penjualan Menggunakan Array (Turbo Pascal) By ernida, 3 mei 2015

Program kasir_Array;
Uses Wincrt;
Type Kasir = record
     no_trans, tgl, nama, nm_brg : String[10];
     kd_brg, jml : byte;
     hrg, tot : real;
     End;
Var
   Data : Array [1..100] of Kasir;
   Ul : Char;
   i,n, x : Integer;
   jml_penjualan : real;
Begin
     Repeat
     Clrscr;
     i:=i+1;
     Writeln('          MUSLIHUDIN TECHNOLOGY         ');
     Writeln('  Jl.RE Martadinata no.202 Tasikmalaya  ');
     Writeln('========================================');
     Writeln;
     writeln('             Form Transaksi             ');
     writeln;
     Writeln('Data Ke-',i);
     Writeln;
     Write('No Transaksi : ');Readln(Data[i].no_trans);
     Write('Tanggal      : ');Readln(Data[i].tgl);
     Write('Nama Pembeli : ');Readln(Data[i].nama);
     Write('Kode Barang  : ');Readln(Data[i].kd_brg);

      if Data[i].kd_brg  = 1 then
        begin
        Data[i].nm_brg  :='Processor Core i3';
        Data[i].hrg     :=1131000;
        end

     else if Data[i].kd_brg = 2 then
        begin
        Data[i].nm_brg  :='Printer';
        Data[i].hrg     :=500000;
        end

     else if Data[i].kd_brg = 3 then
        begin
        Data[i].nm_brg  :='Harddisk';
        Data[i].hrg     :=700000;
        end

     else if Data[i].kd_brg = 4 then
        begin
        Data[i].nm_brg  :='Flash Disk';
        Data[i].hrg     :=100000;
        end

     else if Data[i].kd_brg = 5 then
        begin
        Data[i].nm_brg  :='Mouse';
        Data[i].hrg     :=125000;
        end

     else if Data[i].kd_brg = 6 then
        begin
        Data[i].nm_brg  :='VGA Nvidia';
        Data[i].hrg     :=400000;
        end

     else if Data[i].kd_brg = 7 then
        begin
        Data[i].nm_brg  := 'Memory DDR3';
        Data[i].hrg     := 235000;
        end
     else if data[i].kd_brg = 8 then
        begin
        data[i].nm_brg  := 'Monitor';
        data[i].hrg     := 750000;
        end;

     Writeln('Nama Barang  : ',Data[i].nm_brg);
     Writeln('Harga        : ',Data[i].hrg:0:0);
     Write  ('Jumlah Beli  : ');Readln(Data[i].jml);
     Data[i].tot:=Data[i].jml*Data[i].hrg;
     writeln('Total Bayar  : ',Data[i].tot:0:0);
     Writeln;
     write('Tambah Data (Y/T) : ');readln(Ul);
     until upcase (Ul) <> 'Y';
      n:=i;
     Clrscr;
     gotoxy(1,1);Write('============================ MUSLIHUDIN TECHNOLOGY =============================');
     gotoxy(1,2);Write('=========================================================================');
     gotoxy(1,3);write('|No.Tran |Tanggal |Nama Pembeli |Nama Barang  |Harga      |Jumlah |Total       |');
     gotoxy(1,4);Write('=========================================================================');
     For x := 1 to n do
     begin
     gotoxy(1,x+4);write('|');
     gotoxy(2,x+4);write(x);
     gotoxy(10,x+4);write('|');
     gotoxy(11,x+4);write(data[x].tgl);
     gotoxy(19,x+4);write('|');
     gotoxy(20,x+4);write(data[x].nama);
     gotoxy(33,x+4);write('|');
     gotoxy(34,x+4);write(data[x].nm_brg);
     gotoxy(47,x+4);write('|');
     gotoxy(48,x+4);write(data[x].hrg:0:0);
     gotoxy(59,x+4);write('|');
     gotoxy(60,x+4);write(data[x].jml);
     gotoxy(67,x+4);write('|');
     gotoxy(68,x+4);write(data[x].tot:0:0);
     gotoxy(80,x+4);write('|');  
   

     jml_penjualan:=jml_penjualan+Data[x].tot;
     end;
     Write('================================================================================');
     Writeln('Jumlah Transaksi : ', i);
     Writeln('Jumlah Penjualan : Rp.',jml_penjualan:0:0);   


End.
Gambar Program :
image
image

Penggunaan Array Dimensi Satu Written By ernida, 3 mei 2015

Pemakaian array bertujuan untuk mengelompokkan data sehingga data bisa diinputkan lebih dari satu(1).

sebagai contoh

    Nilai
Mhs 1    90
Mhs 2    30
Mhs 3    20
Mhs 4    20
Mhs 5    30

sehingga saat penyimpanan akan terlihat seperti ini :

Indeks Data



















Nilai Mahasiswa


Dapat kita lihat bahwa terdapat lima orang mahasiswa yang memiliki nilai. Nah sudah dipastikan nilai merupakan variabel yang memiliki kelompok data yang lebih dari satu. Inilah yang dimaksud dengan array.

Definisi array yang lain, merupakan kumpulan data yang sejenis. Ya memang merupakan data yang terkumpul pada satu tempat dan jenisnya sama.

Lihat saja data di atas, jenisnya tetap angka sehingga pada saat pendefinisiannya dengan satu tipe data saja.

Bagaimana mendefinisikan array? Cukup mudah.

Pada Pascal

Var
    Nilai : array[1..5] of integer ;

Pada C/C++
    int nilai[5] ;


Mudah bukan?

Saat menginputkan ataupun menampilkan datanya cukup menyebutkan ruangnya, seperti contoh di bawah ini.

Readln(nilai[i]) ;  --->Perintah Pascal

cin>>nilai[i];
atau
scan("%i",&nilai[i]) ;


kita hanya menambahkan [indeks]


program di bawah ini merupakan penggunaan array dimensi satu

#include "stdio.h"
void main(){
    int i, nilai[5] ;
    float total=0,rata=0 ;

    printf("\n Input Nilai Mahasiswa \n--------------------------------") ;
    for(i=0 ; i<5 ; i++ ){
        printf("\n Nilai Mahasiswa ke %i :", i+1); scanf("%i" ,&nilai[i]) ;
        total+=nilai[i] ;
    }
    printf("\n--------------------------------") ;
    printf("\n Total Nilai     : %.2f", total) ;
    printf("\n Nilai Rata Rata : %.2f", total/5) ;
}

Bila program penggunaan array dimensi satu tersebut dijalankan akan terlihat seperti berikut ini :

Penggunaan Array Dimensi Satu

Mencari Nilai Dengan Huruf Menggunakan Bahasa C Written By ernida, 3 mei 2015

Di bawah ini adalah list dari programnya. silahkan di lihat dan bisa juga di save dengan cara klick kanan pada gambar lalu pilih save image
Ketik lah codding program ini di Turbo C++ V.4.5 ataupun V.3.0
Setelah di ketik semua, untuk menjalankan program ini tekan F9
Lalu akan keluar tanda sebagai ini















klick oke dan tekan Ctrl+F9
dan akan keluar hasil sebagai berikut:

isikan lah nilai yang sesuai dari codding diatas.
80 - 100 nilai hurufnya A
70 - 79 nilai hurufnya B
60 - 69 nilai hurufnya C
50 - 59 nilai hurufnya D
0 - 49 nilai hurufnya E