TP 8 ALPRO : About case of (Program pilihan)

Tugas Pendahuluan 8.

PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN

 

OLEH

LUH PUTU SUCI VANDASARI

F1A113054

KELAS A

JURUSAN MATEMATIKA

PROGRAM STUDI MATEMATIKA

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS HALU OLEO

2014

 

SOAL.

1.      Buat program untuk menentukan nilai max dan min deari n-buah data yang dimasukkan (tanpa array)!

2.      Buat program dengan (case of)

Hasil run

Masukkan jenis HP(BB/SAMSUNG/I-PHONE)

Masukkan banyaknya barang=

Jadi jumlah yang harus dibayar =

Ketentuan

BB = 2.000.000

SAMSUNG= 2.500.000

I-PHONE= 3.000.000

3.      Buat program chanel TV (case of)!

PENYELESAIAN.

1.      Program menentukan nilai maksimum dan minimum (tanpa array).

program maksimum_minimum;

uses crt;

var S,U,C,I : integer;

    max, min: longint;

begin

textbackground(5);

textcolor(15);

clrscr;

writeln('*=* PROGRAM MENENTUKAN NILAI MAKSIMUM DAN MINIMUM *=*');

writeln;

writeln;

write('Masukkan Banyak Data Yang Anda Inginkan = ');readln(S);

writeln;

min:=9999;

max:=-9999;

for U:=1 to S do

begin

write('Data ke-',U,' = ');readln(C);

if C<=min then min:=C;

if C>=max then max:=C;

end;

writeln;

writeln;

writeln('Nilai Maksimum Dari ',S,' Data Tersebut Adalah = ',max);

writeln('Nilai Minimum Dari ',S,' Data Tersebut Adalah  = ',min);

readln;

end.

Setelah di-run, berikut tampilannya.

2.      Program jenis HP.

uses crt;

label ulang;

var HP, s   : char;

    u     : integer;

begin

textbackground(1);

clrscr;

ulang:

writeln('====== PROGRAM JENIS HP ======');

writeln;

writeln;

writeln('    DAFTAR JENIS HP');

writeln;

writeln('B/b : Black Berry');

writeln('S/s : Samsung');

writeln('I/i : I-Phone');

writeln;

write('Masukkan Jenis HP  : ');readln(HP);

writeln;

case HP of

'B','b':begin

     write('Masukkan banyak barang yang anda inginkan = ');readln(u);

     writeln('Harga satuan HP BLACK BERRY adalah       = Rp 2000000');

     writeln('jadi jumlah yang harus anda bayar adalah = Rp ',u*2000000);

          end;

'S','s':begin

     write('Masukkan banyak barang yang anda inginkan = ');readln(u);

     writeln('Harga satuan HP SAMSUNG adalah           = Rp 2500000');

     writeln('jadi jumlah yang harus anda bayar adalah = Rp ',u*2500000);

          end;

'I','i':begin

    write('Masukkan banyak barang yang anda inginkan = ');readln(u);

    writeln('Harga satuan HP I-PHONE adalah           = Rp 3000000');

    writeln('jadi jumlah yang harus anda bayar adalah = Rp ',u*3000000);

        end;

else

clrscr;

begin

textcolor(14);

writeln;

writeln('MAAF, JENIS HP YANG ANDA INGINKAN BELUM TERSEDIA.');

textcolor(15);

end;

end;

writeln;

writeln;

write('Apakah anda ingin mengulang program ini? [Y/N] : ');readln(s);

clrscr;

if (s='Y') then

goto ulang

end.

Setelah di-RUN, berikut tampilannya.

3.      Program chanel TV (case of).

program chanel_TV;

uses crt;

label start;

var a : integer;

    b : char;

begin

textbackground(1);

clrscr;

while a <>5 do

begin

start:

writeln('----------------------------------------------------------');

writeln('|                DAFTAR PILIHAN CHANEL TV                |');

writeln('|--------------------------------------------------------|');

writeln('| 1 | RCTI                                               |');

writeln('| 2 | SCTV                                               |');

writeln('| 3 | GLOBAL TV                                          |');

writeln('| 4 | INDOSIAR                                           |');

writeln('| 5 | NET                                                |');

writeln('|--------------------------------------------------------|');

writeln('| Masukkan Chanel Pilihan Anda                   |       |');

writeln('|--------------------------------------------------------|');

writeln('|                                                        |');

writeln('|                                                        |');

writeln('|--------------------------------------------------------|');

gotoxy(52,10);readln(a);

gotoxy(3,13);write('Tekan Enter Untuk Melihat Tayangan chanel  ',a);

readln;

case a of

1:begin

  gotoxy(48,13);write('RCTI');

  readln;

  textbackground(0);

  textcolor(14);

  clrscr;

  gotoxy(3,2);write('---------------------------------------------------- ');

  gotoxy(55,2);write('RCTI');

  readln;

  textbackground(1);

  clrscr;

  textcolor(15);

  end;

2:begin

  gotoxy(48,13);write('SCTV');

  readln;

  textbackground(0);

  textcolor(14);

  clrscr;

  gotoxy(3,2);write('---------------------------------------------------- ');

  gotoxy(55,2);write('SCTV');

  readln;

  textbackground(1);

  clrscr;

  textcolor(15);

  end;

3:begin

  gotoxy(48,13);write('GLOBAL TV');

  readln;

  textbackground(0);

  textcolor(14);

  clrscr;

  gotoxy(3,2);write('---------------------------------------------------- ');

  gotoxy(55,2);write('GLOBAL TV');

  readln;

  textbackground(1);

  clrscr;

  textcolor(15);

  end;

4:begin

  gotoxy(48,13);write('INDOSIAR');

  readln;

  textbackground(6);

  textcolor(14);

  clrscr;

  gotoxy(3,2);write('---------------------------------------------------- ');

  gotoxy(55,2);write('INDOSIAR');

  readln;

  textbackground(1);

  clrscr;

  textcolor(15);

  end;

5:begin

  gotoxy(48,13);write('NET');

  readln;

  textbackground(5);

  textcolor(14);

  clrscr;

  gotoxy(3,2);write('---------------------------------------------------- ');

  gotoxy(55,2);write('NET');

  readln;

  textbackground(1);

  clrscr;

  textcolor(15);

  end;

else

clrscr;

begin

  textbackground(0);

  textcolor(14);

  clrscr;

  gotoxy(35,15);writeln('SALURAN PRABAYAR!');

  gotoxy(25,17);write('SILAHKAN BERLANGGANAN TERLEBIH DAHULU.');

  gotoxy(21,19);write('TEKAN " ENTER" UNTUK MELANJUTKAN PILIHAN ANDA.');

  readln;

  textbackground(1);

  clrscr;

  textcolor(15);

  end;

end;

end;

writeln('KETERANGAN : Y = Yes/Iya');

writeln('             N = No/Tidak');

writeln;

write('Apakah Anda Ingin Mengulang Program Ini? [Y/N] : ');readln(b);

clrscr;

if (b='Y') then

goto start

end.

Setelah di-run, berikut tampilannya.