Program nilai_mahasiswa; uses wincrt; Var Nilai : Real ; Grade : Char ; nama : string ; Begin write('NAMA ANDA: ',nama); read(nama); Write('NILAI YANG ANDA PEROLEH : '); Read(Nilai);
Terima Kasih Sobat Sudah: 1. Berkomentar Dengan Sopan 2. Tidak Memasukkan Link Aktif Dalam Form Komentar 3. Berkomentar Sesuai Artikel/Postingan 4. Berilah Informasi Kepada Admin Jika ada script yang Sudah tidak berfungsi 5. komentar Jorok/kasar /berbau Sara/Porno /saya anggap sebagai SPAM Jika Sudah Mematuhi Peraturan diatas Anda Sudah dianggap SOPAN. Thanks EmoticonEmoticon
Terima Kasih Sobat Sudah:
1. Berkomentar Dengan Sopan
2. Tidak Memasukkan Link Aktif Dalam Form Komentar
3. Berkomentar Sesuai Artikel/Postingan
4. Berilah Informasi Kepada Admin Jika ada script yang Sudah tidak berfungsi
5. komentar Jorok/kasar /berbau Sara/Porno /saya anggap sebagai SPAM
Jika Sudah Mematuhi Peraturan diatas Anda Sudah dianggap SOPAN.
Thanks
EmoticonEmoticon