Archive for Februari 2015
Hallo gan ni hari panas bangeeet ya ngomong-ngomong, mumpung lagi on fire *alah saya kebut deh ni ada satu lagi contoh program made in pascal yang bisa dishare lumayan buat ditambul eehe. Game ini terinspirasi dari gambar Meme berikut ini.
Nah begimane programnya? Sebelum itu Saya share juga nih flowchartnya gan biar ga nanggung
lumayan lah ya *lumayan acak-acakan maksudnya, minimal semoga bisa menggambarkan alurnya terlebih dahulu sebelum membuat biar kita tau arah dan tidak tersesat *eaaa hehe. Nah ini baru kodeprogramnya gan. Silahkan di read. Disini cuma make if sama case of dan labelnya pascal #CMIIW.
program ngaranpremananjeun;
uses crt;
label selesai,ulangi,inputtanggal,inputbulan;
var bulan,tanggal,batastangal:integer;
nama,namabulan,lastname,firstname,jawab:string;
begin
ulangi:
clrscr;
writeln('====================================');
writeln('Program Nama Premanmu');
writeln('====================================');
writeln('Tuliskan nama Anda : '); readln(nama);
inputbulan:
writeln('Tuliskan bulan lahir Anda (1-12) : '); readln(bulan);
case bulan of
1 :
begin
namabulan := 'Januari';
lastname := 'Raheut';
batastangal := 31;
end;
2 :
begin
namabulan := 'Februari';
lastname := 'Bedog';
batastangal := 28;
end;
3 :
begin
namabulan := 'Maret';
lastname := 'Karbit';
batastangal := 31;
end;
4 :
begin
namabulan := 'April';
lastname := 'Brikden';
batastangal := 30;
end;
5 :
begin
namabulan := 'Mei';
lastname := 'Najong';
batastangal := 31;
end;
6 :
begin
namabulan := 'Juni';
lastname := 'Robot';
batastangal := 30;
end;
7 :
begin
namabulan := 'Juli';
lastname := 'Jangkung';
batastangal := 31;
end;
8 :
begin
namabulan := 'Agustus';
lastname := 'Lotre';
batastangal := 31;
end;
9 :
begin
namabulan := 'September';
lastname := 'Olab';
batastangal := 30;
end;
10 :
begin
namabulan := 'Oktober';
lastname := 'Poek';
batastangal := 31;
end;
11 :
begin
namabulan := 'November';
lastname := 'Eling';
batastangal := 30;
end;
12 :
begin
namabulan := 'Desember';
lastname := 'Hekter';
batastangal := 31;
end;
else writeln('Bulan Tidak Terdaftar! Silakan ketik ulang');goto inputbulan;
end;{end case of}
inputtanggal:
writeln('Tuliskan Tanggal lahir Anda : '); readln(tanggal);
if (tanggal<0) or (tanggal>batastangal) then
begin
writeln('Tanggal salah! Silahkan ketik ulang');
goto inputtanggal;
end;
case tanggal of
1..5 : firstname:='Asep';
6..10 : firstname:='Yana';
11..15: firstname:='Agus';
16..20: firstname:='Euis';
21..25: firstname:='Ajang';
26..31: firstname:='Udin';
else
begin
writeln('Tanggal salah! Silahkan ketik ulang');
goto inputtanggal;
end;
end;{end case tanggal}
clrscr;
writeln('========================================');
writeln('Hasil ');
writeln('========================================');
writeln('Hallo ',nama,',');
writeln('Anda lahir pada tanggal ',tanggal,' bulan ',namabulan);
writeln('Nama preman Anda adalah "',firstname,' ',lastname,'"');
writeln('========================================');
writeln('');
writeln('Apakah Anda ingin mengulang (y/n)');readln(jawab);
if jawab='y'then
begin
goto ulangi;
end
else exit;
readkey;
end.
Nah itu gan programnya. Semoga bisa bermanfaat. Kalo mau sharing kontak ane gan kali kita *ceilah bisa berbagi ilmu biar bermanfaat hihi Sekian dan Terimakasih
Hallo Agan dan Aganwati yang masih anteng menggeluti dunia pemograman hehe Jumpa lagi bersama mesy disini *loh ngaco haha. Oke langsung aja ya keburu ngantuk dan kriuk bacanya o.O. Disini saya mau ngasih contoh program yang pake Struktur Kontrol Pemilihan atau branching tapi pake bahasa pascal. Ini tuh sebenernya pemecahan dari studi kasus praktikum yang dikasih dosen di kampus hehe awal mulanya dikasih flowchart untuk kemudian dipecahkan bagaimana programnya. Daaaaan tarakdungceees ini dia kodeprogramnya gan.
program praktikum;
uses crt;
label inputbiodata,inputnilai;
var nim,nama,jurusan:string;
tugas,uts,uas:integer;
nilai:real;
grade:char;
begin
inputbiodata:
clrscr;
write('NIM : ');readln(nim);
write('Nama : ');readln(nama);
write('Jurusan : ');readln(jurusan);
if (nim<>'') AND (nama<>'') AND (jurusan<>'') then
begin
goto inputnilai;
end
else
begin
writeln('Isi data kembali');
goto inputbiodata;
end;
inputnilai:
write('Tugas : '); readln(tugas);
write('UTS : '); readln(uts);
write('UAS : '); readln(uas);
nilai := (tugas+uts+uas)/3;
if nilai>90 then
begin
grade := 'A';
end
else if nilai>80 then
begin
grade := 'B';
end
else if nilai>70 then
begin
grade := 'C';
end
else
begin
grade := 'D';
end;
writeln('NIM : ',nim);
writeln('Nama : ',nama);
writeln('Jurusan : ',jurusan);
writeln('Nilai : ',nilai:3:2);
writeln('Grade : ',grade);
readkey;
end.
Oke, itu yang bisa saya share dihari ini, semoga kedepan saya tidak ketemu simalas yang membuat malas. Sekian gan semoga bermanfaat :D
