Mat Multi Med

program menghitung_faktorial; uses wincrt; var i,n,fak: integer; begin writeln ('program menghitung faktorial'); write('n= '); readln(n); fak:= 1; for i := n downto 1 do fak:=fak*i; writeln(n,'!= ',fak); readln; end. PROSES HASIL : Algoritma Menghitung Nilai Faktorial : Tentukan angka Tuliskan rumus fak*i maka i = n down to 1   Masukkan angka pada rumus Hasil.

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 :