Contoh Program Pascal Case of Menentukan Indeks Nilai
Program Pascal menentukan indeks nilai program NA_CASE_OF ; uses wincrt; var n,na : integer; begin writeln ('masukkan nilai yang didapat'); readln (n); na:=n div 20; case na of 1: write ('indeks nilai : E'); 2: write ('indeks nilai : D'); 3: write ('indeks nilai : C'); 4: write ('indeks nilai : B'); 5: write ('indeks nilai : A'); end; end. Proses : dari proses diatas akan menghasilkan gambar : FLOWCHAT dari Menentukan Indeks Nilai :