Freelance Jobs
Freelance Jobs

Cara Mengubah Nilai Angka ke Nilai Huruf Dengan Trubo ascal 7

Posted by Unknown On Sabtu, 18 Agustus 2012 1 komentar

Nilai AngkaNilai Huruf
>= 85A
>= 70, < 85B
>= 60, < 70C
>= 50, < 60D
< 50E


Untuk masalah diatas dapat kita kerjakan dengan contoh script berikut ini:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses wincrt;
var
   nilai : integer;
   grade : char;
begin
   write('Masukkan nilai angka : '); readln(nilai);
   if nilai >= 85 then
      grade := 'A'
   else
      if nilai >= 70 then
         grade := 'B'
      else
         if nilai >= 60 then
            grade := 'C'
         else
            if nilai >= 50 then
               grade := 'D'
            else
               grade := 'E';
   writeln('Grade Nilai Anda adalah ', grade);
end.
Hmmm..... Panjang banget ya??? Adakah cara lainnya??? Ok untuk cara lainnya bisa kita bahas pada artikel berikutnya dengan menggunakan statement case.
Sekarang kita lanjut bagaimana penggunaan statement if tersarang. Statement if tersarang merupakan statement if yang berada didalam statement if lainnya. Sekarang langsung saja kita lihat beberapa contoh bentuk statement if tersarang berikut:
if kondisi1 then
begin
if kondisi2 then
statement1
else
statement2;
end;
Contoh bentuk statement if tersarang lainnya:
if kondisi1 then
if kondisi2 then
statement1
else
statement2
else
statement3;
Dapat juga berbentuk seperti ini:
if kondisi1 then
begin
if kondisi2 then
begin
if kondisi3 then
begin
if kondisi4 then
statement1
else
statement2;
end
end
end;

Begitulah beberapa contoh bentuk struktur if tersarang. 

Semoga artikel Cara Mengubah Nilai Angka ke Nilai Huruf Dengan Trubo ascal 7 bermanfaat bagi Anda.Amin...

Jika artikel ini bermanfaat,bagikan kepada rekan melalui:

+ komentar + 1 komentar

11 Februari 2014 pukul 17.07

nuhun kang

Terimakasih burhan atas Komentarnya di Cara Mengubah Nilai Angka ke Nilai Huruf Dengan Trubo ascal 7

Posting Komentar

Stop Spam,kesopanan juga berlaku di internet bro... berlaku juga di kotak komentar ini.Dukungan dan kritikan untuk kemajuan sangat di perlukan.
Thanks visit IXE-11.Inc....

Bramastana D

Google Translate

English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified