Muhammad Ripani CS13

1. Penggunaan Pascal

23.45 |

Nama : Muhammad Ripani

NIM : J1F113021

Pada postingan saya kali ini saya akan membagikan pengalaman pertama saya menggunakan pascal dengan contoh yang bisa dibilang mudah tapi pengaplikasiannya ke program pascal ternyata sulit (maklum, masih asing dengan yang namanya program pascal). Aplikasi yang saya gunakan ini yaitu Turbo Pascal 7.0.

Sebelumnya, dosen mata kuliah saya menjelaskan terlebih dahulu tentang penggunaan pascal. Yaitu:

Pascal terbagi menjadi 3 (tiga) bagian, yaitu:

1. Bagian Judul

2. Bagian Deklarasi
3. Bagian Isi

- Pada bagian judul disini, penulisannya yaitu:

PROGRAM nama_program;

- Pada bagian deklarasi, penulisannya:
USES unit1, unit2, dst;

VAR {Type, Function, Procedure, Const}

i : INTEGER;

nama : STRING;

nilai huruf : CHAR;

rata-rata : REAL;

*) pada tulisan yang berwarna merah suka-suka kalian memberikan nama.

- Pada bagian isi, ini diperlukan kejelian dan ketepatan dalam penulisannya di Program Pascal nantinya. Jika ada kesalahan sedikitpun program pascal yang akan kita olah tidak akan bekerja!

Pada bagian isi dimulai dari BEGIN sampai END..

*) penulisan pada program pascal yang nantinya akan kita buat untuk tulisan besar dan kecilnya tidak mempengaruhi, kecuali jika untuk tampilan hasilnya jika ingin kelihatan rapi maka diperlukan penulisan yang baik.

*) Pada kata END. ingat tanda titik (.) jangan sampai lupa.

*) Untuk pemakaian enter dalam program pascal ditandai dengan ; (titik koma).

tanda-tanda dalam Pascal:

+ = Penjumlahan

- = Pengurangan

* = Perkalian

/ = Pembagian

DIV = Berapa kali hasil pembagian

MOD = Berapa sisa dari hasil pembagian

contoh DIV dan MOD :

10 DIV 3 = 3

10 MOD 3 = 1

2 DIV 5 = 0

2 MOD 5 = 2

150 DIV 60 = 2

150 MOD 60 = 30

=2 jam 30 menit

Simbol-simbol yang nantinya akan dipakai:

= berarti sama dengan.

<> berarti tidak sama dengan.

> berarti lebih dari.

< berarti kurang dari.

>= berarti lebih dari sama dengan.

<= berarti kurang dari sama dengan.

IN berarti memasukkan.

Persyaratan yang akan dipakai:

NOT

AND

XOR

*) contoh XOR: True XOR True = True

True XOR False = False

False XOR False = True

Dibawah ini merupakan screenshot pascal saya yang pertama:

Kemudian:

Tugas yang diberikan dosen yang pertama saya yaitu:

- Membuat Blog. (http://ripanics13.blogspot.com/)

- Mencari Sisi Miring Segitiga dengan menggunakan Pascal! Jawabannya silakan klik disini! :)

T e r i m a K a s i h :)

Salam ALPRO!

( Kita Belajar Kita Belajar Kita Tuangkan)

Read User's Comments0

Tipe data dalam Turbo Pascal

01.18 |

Ada beberapa macam tipe data / variabel yang digunakan dalam Turbo Pascal, diantaranya adalah :

1. Ordinal Types.

Type data yang mempunyai urutan pasti, dan masih terbagi menjadi :

· Integer

Type variable yang berguna untuk pengolahan data yang bulat, type ini masih terbagi atas beberapa menurut jangkauan data dan ukurannya :

Type	Jangkauan	Ukuran
Shortint	-128..127	8 bit
Integer	-32768..32767	16 bit
Longint	-2147483648..2147483647	32 bit
Byte	0..255	8 bit
Word	0..65535	16 bit

· Char

Type variabel yang berguna untuk pengolahan character ASCII, type character ini penulisannya ditandai dengan dua buah petik tunggal seperti : 'A', '3','*',#7 untuk menyatakan ' harus ditulis ''''

· Boolean

Type varibale yang berguna untuk pengolahan hal yang hanya mempunyai dua ketentuan yaitu benar(TRUE) dan salah(FALSE) saja.

2. Real Types.

Type variable yang beguna untuk pengolahan data yang tidak bulat, untuk type real ini juga terbagi atas beberapa :

Type	Jangkauan	Ketelitian	Ukuran
Real	2.9e-39..1.7e38	11-12 digit	6 bit
Single	1.5e-45..3.4e38	7-8 digit	4 bit
Double	5.0e-324..1.7e308	15-16 digit	8 bit
Extended	3.4e-4932..1.1e4932	19-20 digit	10 bit
Comp	-9.2e18..9.2e18	19-20 digit	8 bit

Bagaimana penggunaan tipe data Ordinal dan Real?

Sebelum kesana, kita belajar dulu tentang penggunaan Var atau variabel. Variabel yaitu sesuatu yang nantinya akan kita pakai sebagai alamat penyimpanan dari data inputan yang dapat dipanggil sewaktu-waktu. :) Muter-muter ya teorinya?

Gampangnya begini, pernah belajar Matematika kan sewaktu SMA dulu? Pasti pernah diajarkan tentang variabel, contoh :

Variabel x bernilai 4.

Sehingga jika saya tuliskan 2x, maka = 2.(4) = 8.

Mudah dipahami kan?

Dalam pemrograman Pascal, setiap variabel harus ditentukan tipe datanya atau dalam bahasa kerennya dikatakan : 'Setiap variabel harus dideklarasikan'.

Nah, pendeklarasian ini letaknya setelah 'uses' dan sebelum 'begin'.

Coba tuliskan program di bawah ini :

uses crt;

var

harga,total:real; {variabel harga dan total menggunakan tipe data real}

jumlah:integer; {variabel jumlah menggunakan tipe data ordinal integer}

begin

clrscr;

harga:=2000;

jumlah:=54;

total:=harga*jumlah;

writeln('Harga buku adalah = ', harga);

writeln('Jumlah buku adalah =, jumlah);

writeln('Total harga adalah =, total);

readln;

end.

Hasilnya akan seperti ini :

paling belakang sendiri terdapat E+03 maksudnya adalah kalikan bilangan di depannya dengan 10³.

Dari hasil di atas maka kita bisa melihat bagaimana beda antara tipe data ordinal dan real.

Ordinal selalu menunjukkan bilangan bulat. Sedangkan real selalu menunjukkan bilangan bukan bulat.

Sumber : http://dirosyi.blogspot.com/2012/11/tipe-data-dan-variabel-dalam-turbo.html

Read User's Comments0

Tugas ~ Pemakaian Case Of

07.02 |

PERBEDAAN BAYAR FOTOCOPY DENGAN KERTAS YANG BERBEDA-BEDA

Nama : Muhammad Ripani
NIM : J1F113021

Pada kesempatan kali ini saya akan membahas suatu persoalan (kasus) yang mana nantinya dari kasus tersebut akan saya selesaikan dengan menggunakan Turbo Pascal 7.0 dan menggunakan fungsi CASE_OF.

Kasus yang dialami yaitu:

"Ahmad ingin mem-fotocopy suatu buku dengan jumlah kertas 80 dan kertas yang dia inginkan yaitu dengan ukuran A4. Namun, ditempat fotocopy tersebut mempunyai berbagai macam kertas dengan harga yang berbeda-beda setiap lembarnya, yaitu:

1) Kertas Folio seharga 120/lbr

2) Kertas A4 seharga 150/lbr

3) Kertas A4S seharga 200/lbr

4) Kertas F4 seharga 220/lbr

5) Kertas berwarna seharga 300/lbr

Jadi, berapakah jumlah harga yang harus dibayar Ahmad dan buatkanlah rumus-rumus yang akan diolah dalam program aplikasi pascal?"

======================================================================

Pertama-tama terlebih dahulu kita buka Program Aplikasi Pascal tersebut dan buat file baru.

Langkah kedua yaitu kita buat bagian judulnya, yaitu:

PROGRAM Perbedaan_Bayar_Fotocopy;

*) pada bagian judul PROGRAM tidak boleh ada spasi

Langkah kedua yaitu menentukan bagian deklarasinya, yaitu:
USES CRT;

VAR Kode_kertas, Jumlah_kertas, Harga: INTEGER;

*) dibagian tipe datanya saya menggunakan INTEGER karena tipe integer adalah tipe data yang nilainya bulat.

Langkah selanjutnya yaitu menentukan bagian isi, yaitu:

BEGIN

clrscr;

writeln('Perbedaan Harga Fotocopy dengan Kertas yang Bermacam-macam');

writeln('Kertas Folio = Kode 1');

writeln('Kertas A4 = Kode 2');

writeln('Kertas A4S = Kode 3');

writeln('Kertas F4 = Kode 4');

writeln('Kertas berwarna = Kode 5');

writeln(' =========================');

write('Masukan kode kertas = ');

readln(Kode_kertas);

write('Masukan jumlah kertas = ');

readln(Jumlah_kertas);

CASE Kode_kertas OF

1:Harga:=Jumlah_kertas*120;

2:Harga:=Jumlah_kertas*150;

3:Harga:=Jumlah_kertas*200;

4:Harga:=Jumlah_kertas*220;

5:Harga:=Jumlah_kertas*300;

end;

writeln ('Harga yang harus dibayar= ',Harga);

readkey;

END.

screenshotnya :

Langkah terakhir adalah memasukan nilai-nilai yang ada dalam kasus dan disini juga merupakan pembuktian apakah Program yang kita buat itu benar atau salah.

screenshotnya :

Jadi, jumlah yang harus dibayar Ahmad yaitu Rp. 12.000,-

-----------------------------------------------------------------------------------------------------------

Kasus kedua :

"Ayu ingin mem-focopy sebuah buku, novel, dan majalah. Dimana jumlah halaman buku yaitu 100, novel 50, dan majalah 20 halaman. Kertas diinginkan yaitu A4 untuk buku, A4S untuk novel, dan kertas berwarna untuk majalah. Berapakah jumlah harga keseluruhan yang harus dibayar Ayu?"

========================================================================

Untuk kasus yang kedua yaitu caranya hampir sama dengan kasus pertama. Namun, untuk hasil programnya disini saya menambahkan beberapa tambahan untuk membuat hasilnya lebih mudah dimengerti dan menarik.

screenshot isi scriptnya adalah:

screenshot hasil programnya yaitu:

Jadi, total harga yang harus dibayar Ayu yaitu sebesar Rp. 31000

*) untuk beberapa kasus diatas saya (penulis) masih belum bisa menjelaskan bagaimana cara-cara agar program tersebut bisa dimasukkan dengan berbagai macam jenis fotocopy yang berbeda-beda (yang lebih dari 3) tanpa harus membuat satu persatu rumusnya.

Terima Kasih :)

Salam ALPRO!
(Kita belajar kita belajar kita tuangkan)

Read User's Comments0

Muhammad Ripani CS13

Arsip Blog

Total Tayangan Halaman

Member of

Computer Science 13

Followers

1. Penggunaan Pascal

Tipe data dalam Turbo Pascal

Tugas ~ Pemakaian Case Of