Muhammad Ripani CS13

Praktikum 1 - Alpro 1 - Pengenalan Pascal

14.48 |

Dibawah ini adalah script codenya :
PROGRAM MINIMARKET_ILKOM;
USES CRT;
VAR
h1, h2, h3, h4, h5, j, stot1, stot2, stot3, stot4, stot5: longint;
d, total: real;

Begin
clrscr;
writeln('|-------------------MINIMARKET ILKOM-------------------|');
writeln('|------------------------------------------------------|');
writeln('|No| Barang | Harga | Jumlah | Sub Total |');
writeln('|1 |Sabun |Rp | |Rp |');
writeln('|2 |Bedak |Rp | |Rp |');
writeln('|3 |Telur |Rp | |Rp |');
writeln('|4 |Permen |Rp | |Rp |');
writeln('|5 |Gula |Rp | |Rp |');
writeln('|-------------------------------Diskon |Rp |');
writeln('|-------------------------------Total |Rp |');

Begin
gotoxy(21,4); write(''); read(h1);
gotoxy(34,4); write(''); read(j);
gotoxy(45,4); stot1:=(h1*j); write(stot1);

gotoxy(21,5); write(''); read(h2);
gotoxy(34,5); write(''); read(j);
gotoxy(45,5); stot2:=(h2*j); write(stot2);

gotoxy(21,6); write(''); read(h3);
gotoxy(34,6); write(''); read(j);
gotoxy(45,6); stot3:=(h3*j); write(stot3);

gotoxy(21,7); write(''); read(h4);
gotoxy(34,7); write(''); read(j);
gotoxy(45,7); stot4:=(h4*j); write(stot4);

gotoxy(21,8); write(''); read(h5);
gotoxy(34,8); write(''); read(j);
gotoxy(45,8); stot5:=(h5*j); write(stot5);

gotoxy(45,9); d:=0.1*(stot1+stot2+stot3+stot4+stot5);
write(d:0:2,'-');
gotoxy(45,10); total:=(stot1+stot2+stot3+stot4+stot5)-d;
write(total:0:2,'-');
Readkey;
End;

End.

Read User's Comments0

Praktikum 4 - Alpro 1 - Procedure Dan Function

14.47 |

Dibawah ini adalah script codenya :
program prosedur;
uses wincrt;
CONST
K='r1p4n1';
L='R1P4N1';
VAR M: STRING;
N: INTEGER;
User : String;

PROCEDURE BENAR;
BEGIN
IF (M=K) OR (M=L) THEN
BEGIN
CLRSCR;
WRITELN('Selamat Datang ', User ,'!');
WRITELN('Silakan Tekan Enter Untuk Memulai Program');
N:=3;
READLN;
END;
END;

PROCEDURE SALAH;
BEGIN
IF (M<>K) AND (M<>L) THEN
BEGIN
WRITELN;
WRITELN('Password Yang Anda Masukkan Salah!!');
WRITELN(' Silakan coba lagi!!');
N:=N+1;
END;
END;

PROCEDURE PERINGATAN;
BEGIN
IF N=2 THEN
BEGIN
CLRSCR;
WRITELN('Password Yang Anda Masukkan Salah!!');
WRITE('Ini kesempatan ketiga anda! Jika Password yang anda masukan salah lagi');
WRITELN(' maka program akan tidak berjalan lagi. Dan cobalah beberapa saat lagi!!');

END;
END;

PROCEDURE password;
BEGIN
N:=0;
REPEAT
Writeln;
WRITE('Masukkan Nama Anda = '); READLN(USER);
WRITE('Masukkan Password = '); READLN(M);
BENAR;
SALAH;
PERINGATAN;
UNTIL N = 3;
end;

procedure Program1;
var
a,b:integer;
i:integer;
begin
clrscr;
writeln(' Program Perulangan For');
writeln('---------------------------');
writeln;
write('1. Masukan indeks 1 = ');
readln(a);
write('2. Masukan indeks 2 = ');
readln(b);
writeln;
if a>b then for i:=a downto b do write ('',i)
else for i:=a to b do write(' ',i);
readln;
end;

procedure program2;
var
i:integer;
begin

clrscr;
writeln(' Program Perulangan While Do');
writeln('--------------------------------');
begin
i:=1;
while(i<=20) do

begin
writeln('Perulangan ke-',i);
i:=i+1;
end;
readln;
end;
end;

var
menu:integer;
begin
clrscr;
password;
repeat
clrscr;
writeln('----------------------------------');
writeln('----------------------------------');
writeln('------- ////////////////// -------');
writeln('------- // MENU PROGRAM // -------');
writeln('------- ////////////////// -------');
writeln('----------------------------------');
writeln('----------------------------------');
writeln;
writeln('1. Program Perulangan For ');
writeln('2. Program Perulangan While Do');
writeln('3. Exit');
writeln;
write('Masukan Kode Menu (1,2,3)= ');readln(Menu);
case menu of
1: program1;
2: program2;
3: exit;
end;
until menu =3;
end.

Read User's Comments0

Praktikum 3 - Alpro 1 - Perulangan

14.45 |

Dibawah ini adalah source codenya :
PROGRAM Program_Representasi_Data;
USES wincrt;
VAR kode : Byte;
enter, bin : String;
a1 :real;
Des : longint;
d,sisa,biner,bil,f,n :longint;
b,c,fak, I : longint;
Label Awal;

Begin
Awal: Clrscr;
Repeat;
writeln('|>>> Masukan Kode Konversi yang Diinginkan <<<|');
writeln('| |');
writeln('|== 1. Desimal ke Biner |');
writeln('|== 2. Biner ke Desimal |');
writeln('|== 3. Faktorial |');
writeln('|== 4. Tentang Program |');
writeln('|== 0. Exit |');
writeln('| |');
writeln('|Masukkan Kode: |');
writeln('| |');
writeln('|---------------------------------------------------------------|');
writeln('|------------------------------------------ Muhammad Ripani |');
writeln('|------------------------------------------ J1F113021 |');
writeln('|------------------------------------------ Computer Science 13 |');
writeln('|_______________________________________________________________|');

gotoxy (17,9); write(''); read(kode);

Case kode of
1: Begin
clrscr;
writeln (' Konversi Bilangan Desimal ke Biner ');
writeln;
writeln;
write ('Masukan Bilangan Desimal = '); ReadLn (Des);
Bin := '';
Repeat
Begin
If Des mod 2 = 0 Then Bin := '0' + Bin
Else Bin := '1' + Bin; Des := Des div 2;
End;
Until Des = 0;
WriteLn ('Bilangan Biner = ',Bin);

writeln;
writeln;
write('Tekan Enter untuk Kembali ');
readln;
goto Awal;
End;

2: Begin
clrscr;
writeln (' Konversi Bilangan Biner Ke Desimal ');
writeln;
writeln;
des:=0;
b:=1;
write ('Masukan Bilangan Biner = '); readln(biner);
b:=1;
repeat
sisa:=biner mod 10;
biner:=biner div 10;
des:=des+sisa*b;
b:=b*2;
until biner=0;
write('Bilangan Desimal = ');writeln(des);

writeln;
writeln;
write('Tekan Enter untuk Kembali ');
readln;
goto Awal;
End;

3: Begin
clrscr;
writeln(' Faktorial ');
writeln;
writeln;
write('Masukkan Nilai yang difaktorialkan [B!] = '); readln(b);
write('Masukkan Nilai pembagi = '); readln(c);
fak:=1;
for I := 1 to b do
begin
fak:=fak * I;
end;
writeln('A= ',fak,'');
writeln(' ------');
writeln(' ',c,'');
a1:=fak/c;
writeln('A (Hasil Bagi)= ',a1:2:0,'');

writeln;
writeln;
write('Tekan Enter untuk Kembali');
readln;
goto awal;
readln;
End;

4: Begin
clrscr;
write(' Program ini diberi nama Program Representasi Data. Pada program ini menggunakan Turbo Pascal For Windows 1.5. ');
write('Tujuan dari program ini dibuat agar lebih memudahkan mengkonversi bilangan desimal ke biner, mengkonversi ');
write('bilangan biner ke desimal dan memfaktorialkan bilangan. ');
readkey;
writeln;
writeln;
write(' Untuk program tampilan awal menggunakan inputan kode menu, Dalam program iniTerdapat Lima Menu pilihan, ');
write('Menu Konversi Desimal Ke Biner, Menu Biner Ke Desimal, Menu Faktorial, Menu Tentang Program, Dan Menu Exit. ');
readkey;
writeln;
writeln;
writeln;
write(' Tekan Enter untuk Kembali ');
readln(enter);
readln;
goto Awal;
End;

0: Begin
exit;
End;

End;
readln;
until (kode<-1) and (kode<5);
End.

Read User's Comments0

Praktikum 2 - Alpro 1 - Seleksi

14.43 |

Dibawah ini merupakan source codenya :

PROGRAM Diagnosa_Penyakit_Maag;
USES Wincrt;
VAR kode : Byte;
u : Integer;
enter : String;
a, b, c, d, e, f, g, h, i, j: char;
ha, hb, hc, hd, he, hf, hg, hh, hi, hj, hu: real;
Label Awal;

Begin

Awal: Clrscr;

writeln('==+==+==+==+==+== |<=><=><=><=><=><=><=><=><=>| ==+==+==+==+==+==');
writeln('==+==+==+==+==+== | SELAMAT DATANG | ==+==+==+==+==+==');
writeln('==+==+==+==+==+== | di | ==+==+==+==+==+==');
writeln('==+==+==+==+==+== | RUMAH SAKIT HASANUDIN HST | ==+==+==+==+==+==');
writeln('==+==+==+==+==+== |<=><=><=><=><=><=><=><=><=>| ==+==+==+==+==+==');
writeln('-----------------------------------------------------------------');
writeln('------------------------------ Created by : Muhammad Ripani ');
writeln('------------------------------ NIM : J1F113021 ');
writeln('------------------------------ Hak cipta dilindungi oleh CS_13 ');
writeln('-----------------------------------------------------------------');
writeln('-----------------------------------------------------------------');
writeln('|<>=<>=<>=<>=<>=<>=<> DIAGNOSIS <>=<>=<>=<>=<>=<>|');
writeln('|<>=<>=<>=<>=<>=<>=<> PENYAKIT MAAG <>=<>=<>=<>=<>=<>|');
writeln('|---------------------------------------------------------------|');
writeln('|------------------- Kode Menu ----------------|');
writeln('|---------------------------------------------------------------|');
writeln('| 1. Diskripsi Penyakit Maag |');
writeln('| 2. Diagnosa Penyakit |');
writeln('| 3. Exit |');
writeln('|---------------------------------------------------------------|');
writeln('| |');
writeln('| Masukkan Kode Menu : |');
writeln('| |');
writeln('|---------------------------------------------------------------|');

gotoxy(24,22); write(''); read(kode);

Case kode of
1: Begin
clrscr;
writeln(' Diskripsi Penyakit Maag ');
writeln;
write(' Penyakit maag atau juga yang biasa dikenal nama gastritis merupakan suatu keadaan kesehatan');
write(' dimana terjadi pembengkakan, peradangan atau iritasi pada lapisan lambung. Penyakit ini biasanya');
write(' menyerang tiba-tiba dan berlangsung singkat, namun ada saatnya juga merupakan bagian penyakit kesehatan');
write(' yang serius dan berlangsung cukup lama.');
writeln;
write(' Penyakit maag adalah penyakit yang ditimbulkan oleh kelebihan asam yang diproduksi oleh lambung');
write(' yang menyebabkan iritasi di selaput lendir lambung, dalam kondisi normal asam diperlukan untuk membantu');
write(' pencernaan dalam mengolah makanan yang kita makan, selain dari kelebihan asam lambung sakit maag atau');
write(' radang lambung atau tukak lambung adalah gejala penyakit yang menyerang lambung dikarenakan terjadi luka');
write(' atau peradangan pada lambung yang menyebabkan sakit, mulas, dan perih pada perut selain akibat dari');
write(' radang lambung.');
writeln;
writeln;
writeln;
writeln('Sumber: http://artikesehatan.wordpress.com/maag/ciri-ciri-maag/');
writeln('Sumber: http://penyakitmaag.net/');
writeln;
writeln;
write('Tekan Enter untuk Kembali');
readln(enter);
readln;
goto Awal;
End;

2: Begin
clrscr;
writeln(' Diagnosa Penyakit ');
writeln('');
writeln('');
writeln('============================================================');
writeln('| Tolong Jawab Pertanyaan Berikut ini |');
writeln('| untuk Mengetahui |');
writeln('| Apakah Anda Terkena Penyakit Maag atau Tidak |');
writeln('============================================================');
write ('Usia Anda : ');
readln(u);
write ('1. Apakah anda sering merasa lapar (Y/N) : ');
readln(a);
write ('2. Apakah anda makan secara teratur (Y/N) : ');
readln(b);
write ('3. Apakah anda sering mual dan muntah (Y/N) : ');
readln(c);
write ('4. Apakah anda mengkonsumsi obat/alkohol/rokok (Y/N) : ');
readln(d);
write ('5. Apakah anda merasa nyeri pada bagian dada/perut (Y/N): ');
readln(e);
write ('6. Apakah anda merasa sakit saat buang air besar (Y/N) : ');
readln(f);
write ('7. Apakah anda sering bersendawa (Y/N) : ');
readln(g);
write ('8. Apakah perut anda terasa kembung (Y/N) : ');
readln(h);
write ('9. Apakah pola tidur anda kurang teratur (Y/N) : ');
readln(i);
write ('10.Apakah anda sering dalam kondisi stress (Y/N) : ');
readln(j);

if u<=60 then hu:=1
else hu:=0;
if (a='Y') or (a='y') then ha:=1
else ha:=0;
if (b='Y') or (b='y') then hb:=0
else hb:=1;
if (c='Y') or (c='y') then hc:=1
else hc:=0;
if (d='Y') or (d='y') then hd:=1
else hd:=0;
if (e='Y') or (e='y') then he:=1
else he:=0;
if (f='Y') or (f='y') then hf:=1
else hf:=0;
if (g='Y') or (g='y') then hg:=1
else hg:=0;
if (h='Y') or (h='y') then hh:=1
else hh:=0;
if (i='Y') or (i='y') then hi:=1
else hi:=0;
if (j='Y') or (i='y') then hj:=1
else hj:=0;
writeln;
writeln;
writeln('Kemungkinan anda mengidap penyakit Maag adalah ',(ha+hb+hc+hd+he+hf+hg+hh+hi+hj+hu)/11*100:0:0, '%');
writeln('__________________________________________________________________________');
writeln('Jika persentasi anda mengidap Maag berkisar 1-50% tergolong tahap ringan ');
writeln('Jika persentasi anda mengidap Maag berkisar 51-75% tergolong tahap sedang ');
writeln('Jika persentasi anda mengidap Maag berkisar 76-100% tergolong tahap kronis');
writeln;
writeln('Obat-obatan yang bisa digunakan: ');
writeln('1. Antasida (Menetralisir asam lambung dan menghilangkan rasa nyeri)');
writeln('2. Obat anti sekretorik (Mampu menekan sekresi asam)');
writeln('3. Pankreatin (Membantu pencernaan lemak, karbohidrat, protein)');
writeln('4. Ranitidin (Mengobati tukak lambung)');
writeln('5. Simetidin (Mengobati dispepsia)');
writeln;
writeln;
writeln('http://id.wikipedia.org/wiki/Maag');
writeln;
writeln;
write(' Tekan Enter untuk Kembali ');
readln;
goto Awal;
End;

3: Begin
clrscr;
writeln('=<>= Terima Kasih Anda Telah Mengunjungi Rumah Sakit Hasanudin HST =<>=');
writeln;
writeln;
readln;
End;

End;

Readkey;
end.

Read User's Comments0

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

Praktikum 1 - Alpro 1 - Pengenalan Pascal

Praktikum 4 - Alpro 1 - Procedure Dan Function

Praktikum 3 - Alpro 1 - Perulangan

Praktikum 2 - Alpro 1 - Seleksi

1. Penggunaan Pascal

Tipe data dalam Turbo Pascal

Tugas ~ Pemakaian Case Of