Kamis, 24 September 2015

Materi dan Tugas Praktikum Dasar Pemrograman Jurusan Teknik Informatika UIN SGD Bandung

File Materi dan Tugas dari pak Agus Andri Putra,ST dapat di download di sini.

Pesan dari Bapak Agus Andri Putra,ST :


Assalamualaikum, 


kawan-kawan mahasiswa,

berikut saya sampaikan materi praktikum dasar pemrograman pertemuan ke III, tolong semua anggota mahasiswa kelas IF-B, IF-C, IF-D, IF-I yang di ajar oleh saya Agus andri putra, dimohon semuanya mendapatkan file tersebut agar minggu depan kita bahas bersama tanpa ada yang blank sama sekali

Terima kasih. Selamat Berlibur 


Nb: Jangan lupa daging sate/gule nya

Rabu, 23 September 2015

Program Sederhana Pascal dengan materi :"penyeleksian kondisi case"

  Haloo agan agan....., postingan saya kali ini membahas tentang membuat program sederehana yang materi nya adalah tentang percabangan "case".
  Langsung saja ke materi, di postingan ini saya akan membahas pembuatan program pengkonversi kode angka ke hari, Program ini dibuat dengan menggunakan software Dev-Pascal 1.9.2, program ini di buat untuk mengkonversi angka 1 sampai 7 menjadi nama hari, dengan keterangan sebagai berikut :
·         1  =  Senin
·         2  =  Selasa
·         3  =  Rabu
·         4  =  Kamis
·         5  =  Jumat
·         6  =  Sabtu
·         7  =  Minggu
·         Lebih dari 7 = Pesan Peringatan                                                                                                                                                                                                                                                                                          kode program :                                                                                                                                                program bagus_enggar;
uses crt;
var a:integer;
    b:char;
begin
repeat
     clrscr;
     writeln('Program Konversi angka ke hari');
     writeln('');
     writeln('Masukan Kode hari yang di inginkan (1 sampai 7) : ');readln(a);
     writeln('');
     case a of
          1: begin
             writeln('Anda Memasukan kode hari : ',a);
             writeln('Hari ke ',a,' adalah Hari Senin');
              end;
           2: begin
             writeln('Anda Memasukan kode hari : ',a);
             writeln('Hari ke ',a,' adalah Hari Selasa');
             end;
          3: begin
             writeln('Anda Memasukan kode hari : ',a);
             writeln('Hari ke ',a,' adalah Hari Rabu');
             end;
          4: begin
             writeln('Anda Memasukan kode hari : ',a);
             writeln('Hari ke ',a,' adalah Hari Kamis');
             end;
          5: begin
             writeln('Anda Memasukan kode hari : ',a);
             writeln('Hari ke ',a,' adalah Hari Jumat');
             end;
          6: begin
             writeln('Anda Memasukan kode hari : ',a);
             writeln('Hari ke ',a,' adalah Hari Sabtu');
             end;
          7: begin
             writeln('Anda Memasukan kode hari : ',a);
             writeln('Hari ke ',a,' adalah Hari Minggu');
             end;
     else
             begin
             writeln('Anda Memasukan kode hari : ',a);
             writeln('Pastikan Anda Memasukan kode hari hanya dari 1 sampai 7');
             end;
     end;
     writeln('');
     writeln('Anda ingin Mencoba Lagi ? (y/n)');readln(b);
until Upcase(b) <> 'Y';
end.

 Setelah menuliskan kode program tersebut di Dev-Pascal 1.9.2, jalan kan program tersebut.
 Jika berhasil maka program akan jalan sebagai berikut :

Gambar 1 :


Keterangan Gambar : User menginput angka 3, maka program mengkonversi nya menjadi Hari Rabu.

Gambar 2 :


Keterangan Gambar : User menginput angka 9, maka program member pesan peringatan yaitu : “Pastikan Anda Memasukan kode hari hanya dari 1 sampai 7”.

Selamat Mencoba, Semoga Bermanfaat..