Home
»
Programmer
»
Cara Mengubah Nilai Angka ke Nilai Huruf Dengan Trubo ascal 7
Cara Mengubah Nilai Angka ke Nilai Huruf Dengan Trubo ascal 7
Nilai Angka | Nilai Huruf |
>= 85 | A |
>= 70, < 85 | B |
>= 60, < 70 | C |
>= 50, < 60 | D |
< 50 | E |
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...
+ komentar + 1 komentar
nuhun kang
Terimakasih burhan atas Komentarnya di Cara Mengubah Nilai Angka ke Nilai Huruf Dengan Trubo ascal 7Posting 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