Alpro [PDF]

Citation preview

Tugas 4 Mata Kuliah Algoritma Pemrograman Sekolah Tinggi Ilmu Statistik Th Ajaran 2014-2015



Oleh: Nafiah Rafiqah Rahayu / 1L 24 14.8281 Soal: 1. Sebuah program mempunyai menu sebagai berikut: MENU 1. Baca data 2. Cetak data 3. Ubah data 4. Hapus data 5. Keluar program Buatlah algoritma dan program Pascal yang mencetak menu tersebut dan membaca nomor pilihan menu. Untuk nomor menu yang dipilih, tuliskan pesan seperti contoh berikut: Anda memilih menu nomor Yang dalam hal ini adalah nomor yang dipilih oleh user program. Algoritma 1. 2. 3. 4. 5. 6.



Mencetak Menu Membaca Pilihan Menu Membuat Pilihan menu dengan Case of Menjalankan aksi Menampilkan output Selesai.



Script:program pilihan_menu; Uses Crt;



Var Pilihan :integer; Begin Clrscr ; writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~'); writeln('|



Tugas AlPro 4 oleh 14.8281



writeln('|



Pilihan Menu



|'); |');



writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~'); GotoXY(10,2) ; writeln('Pilihan Menu'); GotoXY(10,4) ; writeln('1. Baca Data'); GotoXY(10,6) ; writeln('2. Cetak data'); GotoXY(10,8) ; writeln('3. Ubah data'); GotoXY(10,10) ; writeln('4. Hapus data'); GotoXY(10,12) ; writeln('5. Keluar program'); GotoXY(10,16);write('Pilih Menu Nomor[1-5]= ' ); readln(Pilihan); Case Pilihan of 1 :Begin



Writeln('1.Baca Data'); Writeln('Anda memilih menu nomor 1 yaitu Baca Data'); end; 2 : Begin Writeln('2. Cetak Data'); Writeln('Anda memilih menu nomor 2 Cetak Data'); End; 3 : Begin Writeln('3. Ubah Data'); Writeln('Anda memilih menu nomor 3 Ubah Data'); End; 4: Begin Writeln('4. Hapus Data'); Writeln('Anda memilih menu nomor 4 Hapus Data'); End; 5: begin Writeln('5. Keluar Data'); Writeln('Anda memilih menu nomor 5 Keluar Data'); End; Else Writeln ('Nomor Menu yang anda pilih tidak tersedia'); Writeln ('silahkan ulangi lagi');



End; readln;



Cases:



2. Simulasikan sebuah kalkulator sederhana untuk melakukan operasi aritmatika sebagai berikut: dibaca operand 1, operator, dan operand 2. Tentukan hasil operasi aritmatika: operand1



operator



operand2



Dan cetak hasilnya ke piranti keluaran! Misalnya, bila dibaca 8, ‘+’, 7, maka hasilnya = 15 (yaitu 8+7) bila dibaca 6, ‘*’, 5, maka hasilnya = 30 (yaitu 6 x 5) Algoritma 1. Membuat input 2. Membaca pilihan



3. Membuat pilihan operasi matematika dengan case of 4. Khusus operasi pembagian terdapat percabangan , bila operand 2 = 0 maka hasil error 5. Menjalankan aksi 6. Menampilkan keluaran 7. Selesai.



Script:PROGRAM KalkulatorSederhana; Uses Crt; Var operand1, operand2:integer; hasil:real; oprt: char; Begin Clrscr ; writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~'); writeln('|



Tugas AlPro 4 oleh 14.8281



writeln('|



Kalkulator Sederhana



|'); |');



writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~');



writeln('Masukkan Perhitungan Anda: '); gotoxy(5,10);write('angka pertama:');readln(operand1);



gotoxy(5,12);write('simbol aritmatika ( + - * / ): ');readln(oprt); gotoxy(5,14);write('angka kedua:'); readln(operand2); case oprt of '+':begin Hasil:=operand1 + operand2; gotoxy(5,16); Writeln('Hasil Perhitungan anda adalah ',hasil:0:2); end; '-':begin Hasil:=operand1 - operand2; gotoxy(5,16); Writeln('Hasil Perhitungan anda adalah ',hasil:0:2); end; '*':begin Hasil:=operand1 * operand2; gotoxy(5,16); Writeln('Hasil Perhitungan anda adalah ',hasil:0:2); end; '/':begin if operand2 0 then hasil:=(operand1/operand2); gotoxy(5,16); Writeln('Hasil Perhitungan anda adalah ',hasil:0:2); if operand2 = 0 then write ( 'Error!' ); end; end; readln; End.



Cases:



3. Buatlah program yang membaca sebuah integer, dari 1 sampai dengan 7, dan menuliskan nama hari yang bersesuaian dengannya di layar.Integer 1 bersesuaian dengan hari Ahad, integer 2 dengan hari Senin, dan seterusnya.!! Analisis: Dari soal di atas dapat ditarik simpulan bahwa terdapat 7 kasus denga penanganan yang berbeda. Yaitu masukan 1, 2, 3, dan seterusnya sampai 7. Analisis: dengan 7 kasus yg berbeda lebih mudah dengan program dengan CASE of Algoritma 1. Memasukkan Input 2. Membaca Pilihan



3. 4. 5. 6.



Membuat Pilihan hari dengan case of Menjalankan aksi Menampilkan output Selesai.



Script:Program nama_Hari; uses crt; var AngkaHari: integer; Begin clrscr; writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~'); writeln('| writeln('|



Tugas AlPro 4 oleh 14.8281 Nama-Nama Hari



|'); |');



writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~');



write('Masukkan angka Hari (1-7): '); Readln(AngkaHari); case AngkaHari of 1 : writeln('1 adalah hari Ahad'); 2 : writeln('2 adalah hari Senin'); 3 : writeln('3 adalah hari Selasa') ;



4 : writeln('4 adalah hari Rabu') ; 5 : writeln('5 adalah hari Kamis') ; 6 : writeln('6 adalah hari Jumat') ; 7 : writeln('7 adalah hari Sabtu') ; else gotoxy(5,7);writeln('Bukan Angka Hari yang benar'); end; gotoxy(5,8);write('Selamat menghafal nama-nama hari:))'); readln; End.



Cases:



\