Menentukan nilai Huruf dengan Turbo Pascal 7.0

07/06/11

1 komentar


Program untuk menentukan nilai huruf berdasarkan nilai angka yang kita masukan

ribet banget nich sobat, kami berusaha ngotak ngatik bahasa pemograman di turbo pascal 7.0 untuk
"Program menentukan nilai huruf berdasarkan nilai angka yang kita masukan", karena ini tugas kuliah & merupakan hobi kami jadi gak menyerah dech kami. Banyak salahnya di bandingkan banyak benernya,
 tapi alhamdulilah berkat bantuan teori yang diberikan buk dosen ditambah sedikit bumbu dari paman google akhirnya berhasil juga, dan udah berhasil kamipun
berbagi kepada sobat biar yang tau menjadi tau menambah ilmu :)

OK dech langkah pertam silahkan download aja dulu turbo pascal 7.0  Klik disini
terus di instal dech, dah di instal jalankan dech softwarenya
terus masuk ke menu 'file' terus 'new'
dan masukan tuch rumus yg dah bikin pening kami hehehe
ni bahasa pemogramannya
-----------------------------------------------
program menentukan_nilai_huruf;

uses crt;
var
nilai_angka: integer;
begin
clrscr;
write('masukan nilai angka= ');
readln(nilai_angka);
if nilai_angka<=40 then
   writeln('nilai huruf = E')
else
if (nilai_angka>40)and(nilai_angka<=50)then
   writeln('nilai huruf = D')
else
if (nilai_angka>50)and(nilai_angka<=60)then
   writeln('nilai huruf = C')
else
if (nilai_angka>60)and(nilai_angka<=70)then
   Writeln('nilai huruf = B')
else
   Writeln('nilai huruf = A');
end.

---------------------------------------------------
untuk melihat hasilnya tekan "Ctrl+F9" atau bisa juga masuk ke menu "tool, Output" & terakhir jangan lupa di save ea sobat.
nilai huruf dan angkanya bisa di ubah sesuai dengan sobat jha perlukan, kami buat segitu karena tugas dari buk dosennya gitu. ok sobat.
semoga bermanfaatnya walaupun sedikit ilmu