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) thenbeginpernyataan1 ;pernyataan2 ;…..end; |
01
02
03
04
05
06
07
08
09
10
11
12
| If (kondisi) thenbeginpernyataan1 ;pernyataan2 ;…..endelsebeginpernyataan1 ;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;varalas, tinggi, jejari, luas: Integer;pilih: Integer;beginWriteln('1. Segitiga 2. Lingkaran');Readln(pilih);if pilih = 1 thenbeginReadln(alas, tinggi);luas := 1 / 2 * alas * tinggi;Writeln('Luas Segitiga : ', luas);endelsebeginReadln(jejari);luas := pi * Sqr(jejari);Writeln('Luas Segitiga : ', luas);end;Readln;end. |
Tidak ada komentar:
Posting Komentar