Sekarang, banyak sekali jenis game online bertebaran. Mulai MMORPG sampai dengan Game Simulation atau yang lebih familiar dikenal game simulator. Belakangan yang banyak dimainkan adalah game simulator yang menawarkan pengalaman melakukan aktivitas dengan simulasi. Ada yang life-simulation games, vehicle simulation, dan masih banyak lagi lainnya. Tahun 2020 ini juga banyak bermunculan game simulator yang tidak kalah seru dari sebelum-sebelumnya. Bagi yang sedang mencari rekomendasi, berikut ini akan adalah daftar game simulator patut dicoba yang pertama, Bus Simulator Indonesia Pertama datang dari Tanah Air ada yang namanya Bus Simulator Indonesia atau biasa disingkat BUSSID. Game ini cocok sekali bagi yang ingin merasakan sensasi supir bus Indonesia apalagi bila menginstall mod yang didapat dari anonytun.com, di sana Anda bisa mendapatkan banyak pilihan bus, truk dan mobil yang seru secara gratis. A da simulasi bus antarkota, antarprovinsi, bahkan antar pulau. Karena ada fi...
Hallo sobat Blog Fakhri, di kesempatan kali ini saya akan memposting artikel tentang Program Case Of Pascal. Fungsi case of pada pascal itu sendiri kalau di artikan satu persatu itu maksudnya jadi "kasus atau perkara dari ..." jadi, seperti semacam pembuatan opsi logika, hampir mirip dengan fungsi IF Else namun dengan fungsi yang lebih kompleks.
Okeh langsung saja kita masuk ke Source Code nya dari pada panjang lebar :
1. Case Of Nilai Huruf
Program nilai_huruf;
Uses wincrt;
Var
nilai : char;
Begin
Clrscr;
Writeln('====================================');
Writeln(' PRAK. ALGORITMA ');
Writeln(' UNIVERSITAS MUHAMMADIYAH SORONG ');
Writeln('====================================');
Writeln(' Nama : La Jupriadi Fakhri');
Writeln(' Nim : 201555202127');
Writeln('====================================');
Writeln;
Writeln('Silahkan Anda Memilih Huruf A/B/C/D/E');
Writeln;
Write ('Masukkan Nilai Huruf : ');
Readln(nilai);
Case nilai of
'a': Write('Sangat Baik');
'b': Write('Baik');
'c': Write('Kurang');
'd': Write('Sangat Kurang');
'e': Write('Buruk Sekali');
End;
Readln;
End.
2. Case Of Umur
Program case_of_umurku;
Uses wincrt;
Var
predikat:string;
umur:byte;
Begin
Clrscr;
Writeln('====================================');
Writeln(' PRAK. ALGORITMA ');
Writeln(' UNIVERSITAS MUHAMMADIYAH SORONG ');
Writeln('====================================');
Writeln(' Nama : La Jupriadi Fakhri');
Writeln(' Nim : 201555202127');
Writeln('====================================');
Writeln;
Write('Masukkan Usia Kamu = ');
Readln(umur);
Writeln;
Case umur of
0..1 :predikat:='Bayi';
2..11 :predikat:='Bocah';
12..17:predikat:='Cabe-cabean';
18..23:predikat:='Abg';
24..39:predikat:='Dewasa';
40..54:predikat:='Bapak-bapak';
55..64:predikat:='Bangkotan';
Else
predikat:='old';
End;
Write('Usiamu Bisa Dibilang = ',predikat);
Readln;
End.
Mungkin ini dulu yang saya bisa share hari ini, Sekian dan Terima Kasih telah mengunjungi Blog Fakhri, apabila ada pertanyaan silahkan tinggalkan pesan di kontak komentar atau bisa juga langsung chat di akun Facebook saya.
Komentar
Posting Komentar