Berikut adalah bentuk-bentuk dari pernyataan if yang sering digunakan :
If dengan satu pernyataan (statement)
1
| If (kondisi) then pernyataan ; |
1
2
3
4
5
6
| If (kondisi) then begin pernyataan1 ; pernyataan2 ; ….. end ; |
01
02
03
04
05
06
07
08
09
10
11
12
| If (kondisi) then begin pernyataan1 ; pernyataan2 ; ….. end else begin pernyataan1 ; pernyataan2 ; ….. end ; |
Program Sederhana dengan Pernyataan Kendali If.
Berikut contoh program sederhana untuk menghitung luas segitiga dan lingkaran. Yang mana perhitungan luas dua buah bangun tersebut digabung menjadi satu program, dan pemakai dapat memilih masalah mana yang akan dipecahkan.
Sebagaimana diketahui untuk menghitung luas segitiga adalah dengan :
L=1/2 . a . t
Dan luas lingkaran adalah dengan :
L= Π. r. r
Untuk lebih jelasnya salin program berikut :
program segitiga lingkaran; var alas, tinggi, jejari, luas: Integer ; pilih: Integer ; begin Writeln ( '1. Segitiga 2. Lingkaran' ); Readln(pilih); if pilih = 1 then begin Readln(alas, tinggi); luas := 1 / 2 * alas * tinggi; Writeln ( 'Luas Segitiga : ' , luas); end else begin Readln(jejari); luas := pi * Sqr(jejari); Writeln ( 'Luas Segitiga : ' , luas); end ; Readln; end . |
Tidak ada komentar:
Posting Komentar