Mat Multi Med

Program Menentukan Bilangan Terkecil Program Fungsi; uses wincrt; function kecil (A,B : integer): integer; begin if A kecil := A else kecil := B; end; var A,B: integer; begin clrscr; write('Nilai Bilangan 1 = '); readln(A); write('Nilai Bilangan 2 = '); readln(B); writeln; write('Bilangan Terkecil = ', kecil (A,B):5); readln; end. HASIL PROGRAM  

Menentukan Bilangan Prima Dari Hasil Perkalian Dua Bilangan Program Mencari_Bilangan_Prima_dari perkalian_dua_bilangan; Uses winCrt; Var Prima : Array[1..100] of Integer; i,j,a,b,c : Integer; bil : Integer; Begin ClrScr; write('Masukkan angka 1 = ');readln(a); write('Masukkan angka 2 = ');readln(b); c:=a*b; writeln('Hasil= ',c); For i := 2 to c Do Begin Prima[i]:=i; For j:= 2 to i-1 Do Begin bil := (i mod j); If bil = 0 then Prima[i]:=0; End; If Prima[i] <> 0 Then Write(Prima[i],' '); End; Readln; end. HASIL PROGRAM 

program pascal dibawah ini: program kombinasi_permutasi; uses wincrt; var fn,fk,fn_k,Kombinasi,permutasi:real; i,n,k:integer; begin writeln('MENGHITUNG PERMUTASI DAN KOMBINASI:') ; write('Masukkan bilangan n =');readln(n); write('Masukkan bilangan k =');readln(k); fn:=1; fk:=1; fn_k:=1; for i:= 2 to n do fn:=fn*i; for i := 2 to k do fk:=fk*i; for i:= 2 to (n-k) do fn_k:=fn_k*i; kombinasi:=fn/(fk*fn_k); permutasi:=fn/(fn_k); writeln(n,' Kombinasi ',k, ' = ',Kombinasi:0:0); writeln(n,' Permutasi ',k, ' = ',Permutasi:0:0); end. hasil dari program diatas akan menghasilkan SMOGA DAPAT MEMBANTU