ALGORITMA DAN PEMROGRAMAN

PROGRAM PASCAL

I. TUJUAN

Setelah melakukan percobaan, diharapkan praktikan dapat :

1. Mengaktifkan editor turbo PASCAL 7.0 untuk mengetikkan program dengan bahasa pemograman pascal.

2. Menggunakan statetment WRITE dan WRITELN untuk menampilakn string dan variable ke layer.

3. Mengatur tampilan data yang berupa bilangan integer dan bilangan real dengan format tertentu.

4. Menggunakan statetment READLN untuk memasukan data ke dalam variable pada program pascal.

II. PENDAHULUAN

Konsep pemrograman terstruktur memegang peran penting dalam rangcang menyusun,memelihara dan mengembangkan suatu program,khususnya dalam aplikasi yang besar dan kompleks.

Sebelum mempelajari pemograman terstruktur lebih lanjut,ada beberapa istilah mendasar yang perlu dipahami terlebih dahulu.yaitu:

a. Program adalah kata ,ekspresi,pernyataan atau kombinasinya yang disusun dan dirangkai menjadi satu kestuan prosedur yang berupa urutan langkah untuk menyelesaikan masalah yang diimplementasikan dengan menggunakan bahasa pemrograman sehingga dapat dieksekusi oleh komputer.

b. Bahasa pemrograman merupakan prosedur atau tata cara penulisan program. Pada bahasa pemrograman terdapat 2 faktor penting yaitu syntax dan semantik. Syntax adalah aturan-aturan gramatika yang mengatur tata cara penulisan kata, ekpresi dan pernyataan, sedangkan semnatik adalah aturan-aturan untuk menyatakan suatu arti.

c. Pemrograman merupakan proses mengimplementasikan ururtan langkah untuk menyelesaikan suatu masalah dengan menggunakan suatu bahasa pemograman.

d. Pemrograman terstruktur merupakan proses mengimplementasikan urutan untuk menyelesaikan suatu masalah dalam bentuk program yang memiliki rancangan bangun yang terstruktur dan tidak berbelit-belit sehingga mudah ditelusuri, dipahami dan dikembangkan oleh siapa saja.

III. LANGKAH KERJA

1. Mengaktifkan komputer.

2. Mengaktifkan editor Turbo Pascal 7.0 untuk membuat program dengan bahasa pemrograman pascal dengan cara mendefenisikan dalam programan pascal.

3. Membuat contoh program job sheet pada layer dengan menggunakan statmen write, writeln dan readln dalam program.

4. Mengatur tampilan data yang berupa bilangan integer dan bilangan real dengan format tertentu.

5. Menggunakan instruksi END sebagai penutup program.

6. Memeriksa kesalahan program dengan menggunakan tombol Alt+F9.

7. Menjalankan program dengan menggunakan tombol Ctrl+F9.

8. Menampilkan hasil program dengan menggunakan tombol Alt+F5.

9. Program yang telah berhasil, disimpan ….PAS*.

IV. CONTOH DAN TUGAS PEMROGRAMAN

a. Contoh-Contoh Program

1. Program untuk menghitung luas dan keliling persegi panjang yang mempunyai panjang = 20 dan lebar = 10

PROGRAM Persegipanjang; {Komentar Judul Program}

VAR

P,L,LS,KL:INTEGER; {Identifikasi type

variable integer}

BEGIN {Awal Badan Program}

P:=20; {mendefinisikan harga

panjang}

L:=10; {mendefiniskan harga

lebar}

LS:=P*L {proses menghitung luas}

KL:=2*P+2*L; {proses menghitung

keliling}

WRITELN (‘LUAS=’,LS); {menampilkan nilai luas}

WRITELN (“KELILING=’,KL);{menampilkan nilai

keliling}

END. {Akhir Program}

Simpan dengan nama : CONTOH 1A.PAS

2. Program untuk menghitung luas dan keliling lingkaran yang mempunyai jari-jarinya = 10

PROGRAM Lingkaran {Komentar Judul Program}

CONST

PHI=3,14; {Menetapkan harga

konstanta PHI}

VAR

R ;INTEGER; {Identifikasi type

variable integer}

LS,KL ;REAL; {Identifikasi type

variable real}

BEGIN

R:=10; {Mendefinisikan harga

radius ingkaran}

LS:=PHI*SQR(R); {Proses mencari luas,

Sebagai variable LS =

phi * R}

KL:=2*P+2*L; {Proses mencari keliling, sebagai variable KL = 2 * phi * R}

WRITELN(‘LUAS=’,LS:6:2); {Proses menampulkan luas dengan format 6 digit, dengan 2 angka dibelakang koma}

WRITELN(‘KELILING=’,KL:8:4); {Proses menampilkan keliling dengan format 8 digit, dengan 4 angka di belakang koma}

END. {akhir program}

Simpan dengan nama : CONTOH 1B.PAS

3. Buatlah program yang dapat di gunakan untuk menghitung sisi miring sebuah segitiga siku-siku dan data dimasukan melalui keyboard.

PROGRAM SisiMiring; {Komentar Judul Program}

USES CRT; {menggunakan monitor}

VAR

X,Y:INTEGER; {Identifikasi type variable

integer}

R :REAL; {Identifikasi type variable

real}

BEGIN

CLRSCR; {Membersihkan layar}

WRITELN(‘SISI X = ‘); {Proses menampilkan sisi X}

READLN(X); {Menginput harga X}

WRITELN(‘SISI Y= ‘) {Proses menampilkan sisi Y}

READLN(Y); {Menginput panjang sisi Y}

R:SQR(X)+SQR(Y)); {

WRITELN(‘SISI MIRING =’, R:5:2’CM’);

END. {akhir program}

Simpan dengan nama : CONTOH 1C.PAS

b. Tugas-Tugas

1. Bila diketahui suhu suatu suatu ruangan = 30⁰ maka untuk mentrafer menjadi Fahrenheit, Reamur dan Celvin dapat digunakan rumus:

F:=(9/5)*C+32;

R:=(4/5)*C;

K:=C+273;

PROGRAM SUHU; {JUDUL PROGORAMAN}

VAR

C,F,R,K:REAL; {IDENTIFIKASI TIPE VARIABEL REAL}

BEGIN

WRITLEN('NAMA : FAKHRUR RAZI')

WRITLEN('BP : 06073040')

WRITLEN('KELAS : II B LISTRIK REGULER')

WRITELN('----------------'); {MENAMPILKAN GARIS }

WRITELN('PERUBAHAN SUHU'); {MENAMPILKAN PERUBAHAN SUHU}

WRITELN('----------------'); {MENAMPILKAN GARIS}

WRITELN('MASUKAN CELCIUS='); {MEMINTA MASUKAN NILAI CELSIUS}

READLN(C); {MEMBACA CELSIUS}

F:=(9/5)*C+32; {MENCARI NILAI FAHRENHEIT}

R:=(4/5)*C; {MENCARI NILAI REAMUR}

K:=C+273; {MENCARI NILAI KELVIN}

WRITELN('FAHRENHAIT= ',F:6:2); {PROSES MENAMPLKAN

FARENHEIT DENGAN FORMAT 6

DIGIT, DENGAN 2 ANGKA

DIBELAKANG KOMA}

WRITELN('REAMUR= ',R:6:2); {PROSES MENAMPILKAN REAMUR

DENGAN FORMAT 6 DIGIT,

DENGAN 2ANGKA DIBELAKANG

KOMA}

WRITELN('KELVIN= ',K:6:2); {PROSES MENAM[ILKAN KELVIN

DENGAN FPRMAT 6 DIGIT,

DENGAN 2 ANGKA DIBELAKANG

KOMA}

END.

2. Bila dua buah gaya F1 dan F2 saling tegak lurus, maka dapat dihitung resultan gaya (FR). Dengan rumus :

FR =

Diketahui gaya F1 = 30 N dan gaya kedua F2 = 15 N, susunlah flowchart dan program untuk menghitung gaya (FR) tersebut.

PROGRAM RESULTAN; {PROGRAM JUDUL}

USES CRT; {MENGGUNAKAN MONITOR}

VAR

F1,F2 :INTEGER; {IDENTIFIKASI TIPE VARIABEL INTEGER}

FR :REAL; {IDENTIFIKASI TIPE VARIABEL REAL}

BEGIN

CLRSCR; {MEMBERSIHKAN LAYAR}

F1:=30; {MENDEFINISIKAN HARGA GAYA ERTAMA}

F2:=15; {MENDEFINISIKAN HARGA GAYA KEDUA}

FR:=SQRT(F1+F2); {PROSES MENCARI GAYA RESULTAN}

WRITELN('RESULTAN= ',FR); {MENAMPILKAN GAYA RESULTAN}

END.

3. Seseorang yang meminjam uang di bank sebesar 1 juta rupiah diharuskan membayar bunga sebesar 15 % setiap bulan. Bila ia mengembalikan dalam waktu 30 bulan, hitunhlah piutang yang harus dilunasi ke bank tersebut?

Rumus: Piutang = Pinjaman + bunga pinjaman

PROGRAM PIUTANG; {JUDUL PROGRAM PIUTANG}

CONST

P=1000000; {MENETAPKAN HARGA KONSTANTA}

VAR

BP,PT:REAL; {IDENTIFIKASI TIPE

VARIABEL REAL}

BEGIN

CLRSCR; {MEMBERSIHKAN LAYAR}

WRITELN('------------------------');

WRITELN('PROGRAM PEMBAYARAN UTANG');

WRITELN('------------------------');

READLN;

BP:=(15/100)*P; {PROSES NGHITUNG BUNGA}

PT:=P+BP; {PROSES MENGHITUNG PIUTANG}

WRITELN('BUNGA SELAMA 30 BULAN=',BP:6:2);

WRITELN('PIUTANG YANG HARUS DILUNASI=',PT:8:2);

END.

V. ANALISA

Algoritma didefenisikan sebagai suatu metode khusus yang tepat dan terdiri dari rangkaian langkah yang terstruktur dan dituliskan secara sistematis, yang akan dikerjakan untuk menyelesaikan suatu masalah dengan bantuan komputer.

Bahasa penmrograman yang digunakan adalah pascal 7.0 dengan cara mendefenisikan dan menggunakajn dalam program pascal. Dengan menggunakan statement WRITE dan WRITELN untuk menampilkan string dan variable ke layer dan READLN untuk memasukkan data kedalam variable pada program pascal.

Program yang telah selesai dibuat kemusian diperiksa dan diuji dengan menekan tombol Alt+F9. Setelah semua program yang salah diperbaiki, program dapat dijalankan dengan menekan tombol Ctr+F9. Kemudian menekan tombol Alt+F5 untuk memanfaatkan program.

VI. KESIMPULAN

Untuk memfungsikan program pascal, kita harus mengaktifkan editor turbo pascal 7.0. Untuk menampilkan string dan variable ke layer dengan menggunakan statement WRITE dan WRITELN. Untuk memasukkan data kedalam variable pada program pascal menggunakan statement READLN.

Algoritma pemrograman yang baik memilki cir-iciri yaitu:

1. Tepat, benar, sederhana, standard an efektif.
2. Logis, terstruktur dan sistematis.
3. Semua operasi terdefinisi.
4. Semua proses harus berakhir setelah jumlah langkah dilakukan.
5. Ditulis dengan bahasa yang standar dengan format pemograman agar mudah untuk diimplementasikan dan tidak menimbulkan arti ganda