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
Kamis, 24 September 2015
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 :
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..
Langganan:
Postingan (Atom)