Clipper, Tugas #5

Struktur program percabangan adalah suatu kelompok program dalam suatu fungsi atau prosedur yang mempunyai urutan pemrosesan bercabang, sesuai dengan kondisi yang diberikan. Pernyataan ini selalu dipakai seandainya dihadapkan pada suatu aplikasi yang mengharuskan kita untuk memilih suatu pemrosesan dua data dengan kondisi yang berbeda.
Pernyataan IF .. ENDIF
Berfungsi untuk menjalankan kelompok instruksi tertentu, tergantung dari kondisi yang diberikan, jika kondisi tersebut terpenuhi atau bernilai benar, maka kelompok instruksi tersebut dijalankan
Membuat program dengan menggunakan fungsi percabangan (IF .. ENDIF, DOCASE .. ENDCASE) dan perulangan (DO WHILE .. ENDDO, FOR .. TO.. NEXT)

Contoh file dapat di dowload Tugas#5

Contoh :
isi_nil()
proc isi_nil()
      
        cls
        set date british
        set century on
        do while .t.

        //..mengosongkan variabel..
        store 0 to nil_uji
        nim     :=space(11)
        nm_mhs  :=space(30)
        nil1    :=0
        nil2    :=0
        nil3    :=0
        niluas  :=0
        niluts  :=0
        matkul  :=space(15)
        tg_uji  :=ctod("")
        isi     :=space(1)

        //..tampilan input..
        @05,10 say '----------------------------------------------------'
        @06,10 say '     Input Nilai Mahasiswa    '
        @07,10 say '----------------------------------------------------'
        @08,10 say "NIS              :                  "
        @09,10 say "Nama Mahasiswa   :                  "
        @10,10 say "Nama Mata Kuliah :               "
        @11,10 say "Nilai Tugas 1    :               "
        @12,10 say "Nilai Tugas 2    :               "
        @13,10 say "Nilai Tugas 3    :               "
        @14,10 say "Rata-rata Nilai  :               "
        @15,10 say "Nilai UTS        :               "
        @16,10 say "Nilai UAS        :               "
        @17,10 say "Nilai Akhir      :               "
        @18,10 say "Nilai Huruf      :               "
        @19,10 say "Keterangan       :               "

        @20,10 say '---------------------------------------------------'
        @21,10 say "Apakah mau isi lagi Y/T :        "
        @22,10 say '---------------------------------------------------'

        //..input data..
        @08,28 get nim
        @09,28 get nm_mhs
        @10,28 get matkul
        @11,28 get nil1 pict '999'
        @12,28 get nil2 pict '999'
        @13,28 get nil3 pict '999'
        read
        rata2:=(nil1+nil2+nil3)/3
        @14,28 get rata2 pict '999'
        @15,28 get niluts pict '999'
        @16,28 get niluas pict '999'
        read
        niluji:=(02*nil1)+(0,3*nil2)+(0,5*nil3)
        @17,28 say niluji pict '999'


      
        read
        if nil_uji<50
                huruf:="E"          
        elseif nil_uji<60
                huruf:="D"
        elseif nil_uji<75
                huruf:="C"
        elseif nil_uji<85
                huruf:="B"
        else
                huruf:="A"
        endif
        @18,28 say huruf
        if nil_uji<50
                ket:="TIDAK LULUS"
        elseif nil_uji>=50 .and. nil_uji<=59
                ket:="REMIDI"
        else
                ket:="LULUS"
        endif
        @19,28 say ket

        @21,45 get isi pict '!' valid isi$'YT'
        read
        if isi$'T'
        exit
        endif
        enddo

   return