Pada bagian Pemrograman dasar pascal, kita akan membahas
Contoh Program Komputer tentang perhitungan matematika dasar. Dalam perhitungan matematika, kita menggunakan operator aritmatika sebagai berikut :
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 :
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
Dengan
contoh program komputer
yang sederhana di atas dengan bahasa Pascal. Saya harap anda semua yang
masih pemula dapat mengerti dan memahami dengan baik pemrograman dasar
komputer dengan bahasa Pascal.Dengan mengerti konsep-konsep dasar
pemrograman ini, maka materi selanjutnya akan lebih mudah diikuti.
Materi berikutnya adalah
Contoh Program Komputer tentang
Logika Pengambilan Keputusan, umumnya disebut Percabangan.
Mohon anda memberikan komentar, saran, atau pertanyaan untuk memperbaiki
materi yang ada dalam blog ini. Dengan demikian blog ini dapat semakin
bermanfaat bagi para pelajar dan mahasiswa yang ingin mempelajari
contoh program komputer yang dimuat di blog ini.
Semoga bermanfaat
thank to : http://spatabang.blogspot.com
