FAUZIE GEMBEL

PASCAL

PEMBELIAN BARANG: TEMPERATUR/SUHU,DERAJAT:

USES WINCRT; USES WINCRT;
VAR VAR
TOTA L : REAL; SUHU : INTEGR;
NAMA : STRING[25]; BEGIN
HARGA : INTEGER; WRITE( ‘SUHU’);
JUMLAH : INTEGER; READ ( SUHU );
BEGIN if suhu <0 then WRITE (‘NAMA BARANG’); write (‘ padat’) READ (NAMA); else WRITE (‘HARGA SATUAN’); if suhu > 0 then
READ (HARGA); if suhu <100 then WRITE (‘JUMLAH BARANG’); write (‘cair’) READ (JUMLAH); else TOTAL : = HARGA * JUMLAH; if suhu > 100 then
WRITE ( TOTAL : 4 : 2); write (‘uap’)
END. else
ABC(3BUAH): write (‘gas’)
USES WINCRT; end.
VAR
A,B,C : INTEGER;
BEGIN
WRITE (‘NILAI A’);
READ (A);
WRITE (‘NILAI B’);
READ (B);
WRITE (‘NILAI C’);
READ (C);
If A>B then
If A>C then
Else
Write (‘C lebih besar ‘)
Else
If B>A then
If B>C then
Write (‘B lebih besar’)
Else
Write (‘C lebih besar’)
end.

ILMU KOMPUTER: Statemen CASE-OF

ILMU KOMPUTER: Statemen CASE-OF

Statemen CASE-OF

Statemen CASE-OF digunakan untuk memilih jika terdapat lebih dari dua kondisi yang setiapnya memerlukan penanganan yang berbeda.
Contoh program:
uses wincrt;
var
harike:integer;
Begin
write(‘Hari ke..=’);
readln(harike);
case harike of
1:Writeln(‘Senin’);
2:Writeln(‘Selasa’);
3:Writeln(‘Rabu’);
4:Writeln(‘Kamis’);
5:Writeln(‘Jumat’);
6:Writeln(‘Sabtu’);
7:Writeln(‘Minggu’);
End;
End.
Hasil eksekusi dari program adalah:
Hari ke..= 4
Kamis
#include
main ()
{
char hari;
cout < < "Masukkan kode hari : "; cin >> hari;
if (hari==’a'||hari == ‘A’){
cout << “Senin”;}
else if (hari==’b'||hari==’B'){
cout << “Selasa”;}
else if (hari==’c'||hari== ‘C’){
cout << “Rabu”;}
else if (hari==’d'||hari== ‘D’){
cout << “Kamis”;}
else if (hari==’e'||hari==’E'){
cout << “Jumat”;}
else if (hari==’f'||hari==’F'){
cout << “Sabtu”;}
else if (hari==’g'||hari== ‘G’){
cout << “Minggu”;}
else
cout << “MAAF KODE HARINYA SALAH”;
return 0;
}


Pascal merupan salah satu program yang terkemuka karena struktur penulisannya yang mengalir seperti algoritma, saat ini kita akan mempelajari perbedaan antara case dan if pada pascal 1.5 (TPW 1.5). sebelum itu perhatikan keterangan berikut ini struktur dasarnya.
Program namaprogram; ? judul program
Var jenis : variable; ? jenis variabel
Begin ; ? memulai program
Clrscr ? membersihkan layar (boleh digunakan dan tidak)
Isi ? isi program
End. ? akhir program
Keterangan
Write ? menapilkan tulisan
Writeln ? menapilkan tulisan pada garis baru
Read ? menginput data
Readln ? manginput data pada garis baru
Var ? variable


CASE
program case1;
uses wincrt;
var nip,nama : string;
pendapatan,pajak : real;
gol : char;
begin
clrscr;
writeln(‘——— DAFTAR PAJAK ———-’);
writeln(‘_________________________________’);
write (‘NIP : ‘);readln(nip);
write (‘Nama Karyawan : ‘);readln(nama);
write (‘Golongan [A,B,C] : ‘);readln(gol);
write (‘Pendapatan : ‘);readln(pendapatan);
case upcase(gol) of
‘A’ : begin
writeln(‘Golongan ini bebas pajak’);
pajak := 0;
end;
‘B’ : pajak := 0.1 * pendapatan;
‘C’ : pajak := 0.2 * pendapatan;
else write(‘Salah melakukan Penginputan data ‘);
end;
writeln(‘Pajak : Rp. ‘,pajak:9:2);
end.
Tampilan saat case Di running
Sedangkan untuk program IF
program if1;
uses wincrt;
var nip,nama : string;
pendapatan,pajak : real;
gol : char;
begin
clrscr;
writeln(‘——— DAFTAR PAJAK ———-’);
writeln(‘_________________________________’);
write (‘NIP : ‘);readln(nip);
write (‘Nama Karyawan : ‘);readln(nama);
write (‘Golongan [A,B,C] : ‘);readln(gol);
write (‘Pendapatan : ‘);readln(pendapatan);
if (gol = ‘A’ )or (gol = ‘a’) then
pajak := 0
else if (gol = ‘B’) or (gol = ‘b’) then
pajak := 0.1 * pendapatan
else if (gol = ‘C’) or (gol = ‘c’) then
pajak := 0.2 * pendapatan
else write(‘Salah melakukan Penginputan data ‘);
writeln(‘Pajak : Rp. ‘,pajak:9:2);
end.
Contoh Case Of Pascal


Contoh Case …Of perhitungan berat dan harga barang




Ketentuan soal :
1. Kualitas Barang di masukkan
Kualitas Harga Per Kg
A/a 1000
B/b 750
C/c 500


Uses crt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg berat yang di beli : ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;


Harga:=hargaperkg*berat;
Writeln(‘ Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.Statemen CASE-OF

program pembayaran

Pembayaran
Masalah : buatlah suatu program dengan design dibawah ini kemudian saat di klik Komputer pada Combobox akan tampil harga secara otomatis di textharga, dengan ketentuan sebgai berikut:
Keyboard : Rp 15.000,-
Monitor : Rp 800.000,-
Mouse : Rp 30.000,-
Jika di klik tombol bayar maka akan timbul angka pada text bayar, potongan, total bayar tapi ingat Jumlah barang harus sudah terisi lho.. Gunakan Perintah If
1. Buatlah designnya seperti gambar disamping kemudian beri nama pada Properties bagian (name) dengan nama yang tertera dibawah tetapi caption di kosongkan saja (INGAT pada name bukan caption)
2. Klik cbojenis dan isi pada list klik segitiga bawah di bagian properties Dengan Kata Monitor, Mouse, Keyboard saat mengisi Kayboard kemudian tekan enter
3. Kemudia pada cbojenis klik 2 kali dan isikan
Private Sub cboJenis_Click()
If cboJenis = “Keyboard” Then
txtharga = 15000
ElseIf cboJenis = “Monitor” Then
txtharga = 800000
ElseIf cboJenis = “Mouse” Then
txtharga = 30000
End If
txtjumlah.SetFocus
End Sub
4. Kemudia pada txtbayar klik 2 kali dan isikan
Private Sub cmdBayar_Click()
txtbayar = Val(txtharga) * Val(txtjumlah)
If txtjumlah >= 20 Then
txtpotong = 0.1 * txtbayar
ElseIf (txtjumlah = 10) Then
txtpotong = 0.05 * txtbayar
ElseIf txtjumlah < 10 Then
txtpotong = 0
End If
txttotal = Val(txtbayar) – Val(txtpotong)
End Sub
Private Sub cmdKeluar_Click()
End
End Sub
A. Operasi Matematik
Masalah :
Jika diisi nilai pada nilai1 dan nilai2 kemudian dipilih operatornya maka hasilnya akan timbul di Hasil. Gunakan Printah Case
1. Buatlah designnya seperti gambar disamping kemudian beri nama pada Properties bagian (name) dengan nama yang tertera dibawah tetapi text di kosongkan saja (INGAT pada name bukan text)
2. Klik 2 kali pada list1(atau * / + – ) dan isikan
Private Sub List1_Click()
Select Case List1
Case Is = “*”
txtHasil = Val(txtN1) * Val(txtN2)
Case Is = “/”
txtHasil = Val(txtN1) / Val(txtN2)
Case Is = “+”
txtHasil = Val(txtN1) + Val(txtN2)
Case Is = “-”
txtHasil = Val(txtN1) – Val(txtN2)
End Select
End Sub