Program Menghitung Grade Nilai dengan Pascal

mina. . baca ndiri ya mimin cape nih. . dah :D Jika kita pintar bahasa pemrograman maka hal yang sulit dapat kita jadikan mudah. Sebut saja contohnya Kalkulator yang didalamnya berisi program operasi matematis sehingga kita dapat dengan mudah melakukan penjumlahan, perkalian, pembagian dan semacamnya yang jika dilakukan secara manual bisa jadi membutuhkan waktu ekstra. Tidak perlu jauh-jauh, Microsoft Word yang kita gunakan untuk mengetik selama ini adalah salah satu bentuk karya tangan seorang programmer.

Sebenarnya banyak sekali bahasa pemrograman yang bisa kita pelajari seperti pascal yang dapat dilanjutkan dengan IDE seperti Delphi atau Lazarus maka jika anda menyukai Delphi, sebaiknya sedari dini untuk memperdalam pascal karena syntax delphi diadopsi sepenuhnya dari Pascal.

Lepas dari itu semua, berikut saya sharing sebuah program sederhana yang mampu melakukan penyeleksian pada nilai yang diinputkan yaitu untuk menghitung Grade nilai. Penyeleksiannya dilakukan dengan menggunakan subrutin percabangan if then. Adapun contoh codingnya adalah sebagai berikut
01program hitungnilai;
02uses wincrt;
03 
04var
05nilai : integer;
06 
07begin
08 
09Write('Masukan Nilai = '); readln(nilai);
10      if (nilai >= 90) then
11      Writeln('nilai = A'else
12      if (nilai > 80) then
13      Writeln('nilai = B+'else
14      if (nilai > 70) then    
15       Writeln('nilai = B'else
16      if (nilai > 61) then
17      Writeln('nilai = C+'else
18      if (nilai > 50) then
19      Writeln('nilai = C'else
20      if (nilai > 30) then
21      Writeln('nilai = D'else
22      if (nilai > 0) then
23      Writeln('nilai = E');
24 
25end.

0 komentar:

Posting Komentar

Diberdayakan oleh Blogger.

Copyright © / dua minggu terahir

Template by : Urang-kurai / powered by :blogger