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

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 :

  COWOK" KERENK,,,

ALGORITMA PENENTUAN HARI : 1. Tentukan hari 2. Tentukan kode hari 3. Masukkan kode hari 4. Jika angka 1= hari senin 5. Jika angka 2 = hari selasa 6. Jika angka 3 = hari rabu 7. Jika angka 4 = hari kamis 8. Jika angka 5 = hari jum’at 9. Jika angka 6 = hari sabtu 10. Jika angka 7 = hari minggu 11. Hasil GAMBAR FLOWCHAT NYA : 

1. Tipe sederhana Tipe sederhana disebut dengan tipe data scalar, yang biasa diartikan bahwa dalam sebuah perubahan hanya dimungkinkan untuk menyimpan sebuah nilai data, dan tipe sderhana terbagi menjadi dua, yaitu tipe ordinal dan tipe real a. Tipe ordinal karakteristiknya adalah : • Semua kemungkinan nilai dari suatu tipe ordinal merupakan himpunan berurutan (ordered set). Dan setiap nilai berkaitan dengan ordinalitasnya. • Fungsi standard ord dapat diterapkan dalam sembarang tipe ordinal untik mengetahui ordinalitasnya • Fungsi standard pred dapat diterapkan untuk mengetahui pendahuluannya • Fungsi standard succ dapat diterapkan untuk mengetahui penerusnya. Turbo pascal memiliki 7 tipe ordinal standard, yaitu integer, shortint, longint, byte, word, boolen dan char i. Tipe integer adalah tipe data yang merupakan bilangan bulat yang mana nilai nya tidak mempunyai titik decimal. Ada 5 data yang termasuk adalam kelompok ini, yaitu integer, shortint, longint, byte, dan word

1. masukkan calon pemilih 2. Warga Negara Indonesia 3. yang telah genap berusia 17 (tujuh belas) tahun atau lebih atau sudah/pernah kawin 4.  terdaftar sebagai pemilih di daerahnya 5. tidak sedang terganggu jiwa/ingatannya 6. Tidak sedang dicabut hak pilihnya berdasarkan keputusan pengadilan yang telah mempunyai hukum tetap 7. hasil pemilih yang telah memenuhi syarat FLOWCHAT NYA :

Buatlah garis lurus 180 derajat membuat sudut 90 derajat Ambil sembarang titik A sebagai pusat pada garis lurus Buatlah busur lingkaran melalui titik pusat sehingga mendapatkan titik B dan C Dari dua buah titik B dan C sebagai pusat dan jari-jarinya tetap sama, buatlah busur lingkaran yang saling berpotongan di suatu titik D Kemudian hubungkan titik A dengan busur lingkarang yg saling berpotongan D, maka besar sudut adalah 90 derajat  3. Membagi sudut dari sudut 90 derajat Dan lukislah garis bagi dari sudut 90derajat, dengan cara membuat busur lingkaran dari titik A sehingga memotong garis AB di E dan AC di F Dari dua buah titik E dan F sebagai pusat dan jari-jarinya tetap sama, buatlah busur lingkaran yang saling berpotongan di suatu titik G Kemudian hubungkan titik A dan G, yang akan membagi dua sudut yang sama, sehingga membentuk sudut 45 derajat, 1/2×90=45 FLOWCHAT NYA :

A. WHAT IS PASCAL ? high level programming language developed by Niklaus Wirth in Zurich in the late 1960s until the early 1970s. Pascal is a structured programming language, so often used as a means of beginning to learn computer programming techniques. Pascal language versions that are widely used artificial Turbo Pascal Borland International, which works in DOS environment. Later, Pascal also developed as a visual programming language in Windows operating system environment with the name of Delphi. B. HISTORY of PASCAL Pascal is based on the ALGOL programming language and named in honor of mathematician and philosopher Blaise Pascal. Wirth subsequently developed the Modula-2 and Oberon, languages similar to Pascal, and earlier, also the language Euler. Initially, Pascal was a language intended to teach students structured programming, and generations of students have "cut their teeth" on Pascal as an introductory language in undergraduate courses. Variants of Pascal are