Posted by : Sepraha
Senin, 23 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.
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