SILABUS MATEMATIKA DISKRIT

SAP  UTS
1. ALJABAR LINEAR
2. GRAF

SAP  UAS
1. TREE

REF
1. RINALDI MUNIR
2. JONG JEK SIANG

PELAJARI JUGA
- OPERATOR LOGIKA (AND OR NOT)
- TEORI HIMPUNAN
- TEORI BILANGAN
- FUNGSI

REKENING PEMBAYARAN UNINDRA

DAFTAR NILAI STATISTIKA

NPM                   TUGAS1   TUGAS2   UTS      UAS      NILAI ALHIR       GRADE
200643500247          95            100         90          56                74.5                   B
200943500948          90              90         94          88                90.2                   A
200943500949          90              90         96          89                91.3                   A
200943500929          95              90         88          84                86.9                   A-
200943500931          95              95         85          71                 80                     A-
200943500954          95             100        94          71                 83.2                  A-
200943570018        100               90        95          83                 89                     A-
200943500888          95               90        88          48                 68.9                  B-
200943500947          90               95        91          48                 69.8                  B-
200943500885        100               90        83          68                 77.9                  B+
200943500959          90             100        94          63                 78.7                  B+
200943500886          80               95        81          30                 56.8                  C
200943500894          95             100        90          28                 60.5                  C
200943500897          95               90        88          23                 56.4                  C
200943500904          95                           64          63                 60.2                  C
200943500909        100               90        88          28                 59.4                  C
200943500925        100             100        84          23                 56.7                  C
200943500934          95               70        95          25                 57.5                  C
200943500944          90              100       95          28                 61.5                  C
200943500953          95              100       91          25                 59.3                  C
200943500960          80              100       83          33                 59.4                  C
200943500955          95                90       89          36                 63.2                  C+
200943500930          90                80       78          23                 51.9                  D
200943500893                              80       80          21                 42.5                  E
200943500906          90                                                                0.9                  E
200943500915          80                           80                               32                     E
200943500920          90                80       48          20                 41.4                  E
200943500926          90                           80          15                 40.5                  E
200943500932          80                95       40          20                 39.5                  E  
200943500933          90                           45          35                 40                     E
200943500941                                         48          25                 26.9                  E
200943500943        100                           58          25                 39.9                  E
200943500945                              95       30          22                  29.5                 E
200943500946          90                           51          20                  34.3                 E
200943500956          85                           48         15                   30.4                 E
200943500957                            100       56         28                   40.8                 E
200943500958                                         48         10                  19.4                  E

PR LOGIKA MATEMATIKA (DIKUMPULKAN PAS UAS)

1. Tulislah dalam set-builder form (notasi pembentuk himpunan) dari :
    a. C berisi propinsi-propinsi di pulau Jawa
    b. B = {2,4,6,8,...}
2. Diket A={a,b,c,d,e}   B={a,b,d,f,g}  C={b,c,e,g,h}   D={d,e,f,g,h}
    a. B -(CUD)
    b. A n(BUD)
3. Tentukan semua subset dari
    a. F={0,1,2}
    b. A={a,b,c,d}
4. Di dalam diagram venn berikut, arsirlah :
   a. W'
   b. W - V
5. Diket himpunan A={1,2,3,4,5,,6,7}
  a. R1 sebagai "x + 2 lebih dari y"
  b. R2 sebagai "x + y adalah bilangan prima"
6. Diket relasi-relasi pada himpunan  A={1,2,3,4} sebagai berikut :
  a. R1 ={(1,1),(2,2),(3,3),(1,4),(4,1)}
  b. R2= {(1,1),(2,2),(3,3),(4,4),(1,3),(3,4),(1,4)}
gambar diagraf masing2 relasi, lalu tetatpkan apakah relasi refleksif, simetris, transitif dan anti simetris.
7. Misalkan R adalah relasi pada A={1,2,3,4}; R={(1,3),(1,4),(3,2),(3,3),(3,4)}
  a. Carilah matriks MR dari R
                    -1
  b. Carilah R
8. Tentukan disjungsi inklusif atau disjungsi eklusif dari :
  a. Pengetahuan logika diperlukan atau pengetahuan geometri ruang diperlukan
  b. Hari ini hari senin atau hari ini hari selasa
9. Buktikan :
  a. Apakah (p^q) → (pv) adalah tautologi
  b. apakah  -(p → q) ekivalen dengan p^-q
10. Tentukan negasi dari pertanyaan-pertanyaan berikut :
  a. U x p(x) ^ U y q (y)
  b.  Эx p(x) → Эy q(y)

TUGAS ALGORITMA

1. ELEMEN ARRAY A[2,5,6,1,3,7]
    Jelaskan langkah2nya dan buat algoritmanya berdasarkan sorting Gravitasi & Selection

2. Buat algoritma dari OUTPUT dibawah :
    *****
    ****
    ***
    **
    *

3. Jelaskan Procedure dan Fungsi menurut anda!!

Tugas dikirim ke alamat julizal.ram@gmail.com

Selamat mengerjakan...!!!!

p

TUGAS KOM-DAT

TEMA WOLEH PILIH SALAH SATU :

1. KOMUNIKASI DATA
2. JARINGAN KOMPUTER
3. HARDWARE & SOFTWARE

-> MINIMAL 20 HALAMAN
-> DIPRINT DAN DIJILID PADA KERTAS A4/KUARTO
-> MAKSIMAL 2 ORANG 1 MAKALAH

DIKUMPULKAN PALING LAMBAT TGL. 7 JULI 2010

SELAMAT MENGERJAKAN...!!!!!!!!!


UPS.........

JANGAN LUPA MINGGU DEPAN 30-JUNI-2010 QUIZ KOMDAT...

-

-

PR PROGRAM PASCAL(SORTING)

{Program Buble Sort}

uses crt;
var i,j,k,temp,n :integer;
a,b,c :array[1..100] of integer;
begin
clrscr; textcolor(12);
write('Banyaknya elemen Array : ');readln(n);
{input data}
for i:=1 to n do a[i]:=random(1000);
    {cetak array sebelum urut}
    writeln;textcolor(15);write('Sebelum diurutkan: ');
    for i:=1 to n do write (a[i],' ');
        writeln;
        textcolor(15);writeln('process pengurutan bubble : ');
        for i:=1 to n-1 do begin
             for j:=n downto i+1 do begin
                  if a[j-1]>a[j] then begin
                        temp:=a[j-1]; a[j-1]:=a[j]; a[j]:=temp;
                  End;
             end;
             {cetak array tiap langkah pengurutan}
             writeln;write('hasil akhir langkah ke - ',i,' : ');
             for k:=1 to n do write(a[k],' ');
         end;
         {cetak array setelah pengurutan}
          writeln;writeln;
         textcolor(15);write('hasil pengurutan bubble : ');
         for i:=1 to n do write (a[i],' ');
         readln;
end.

=======================================================

{Program Sort Gravitasi)
uses crt;

var i,j,k,temp,n :integer;
a,b,c :array[1..100] of integer;
begin
clrscr; textcolor(12);
write('Banyaknya elemen Array : ');readln(n);
{input data}
for i:=1 to n do begin
write('elemen ke - ',i,' ');readln(a[i]);
end;
{cetak array sebelum urut}
writeln;textcolor(15);write('Sebelum diurutkan: ');
for i:=1 to n do
write(a[i],' ');
writeln;
textcolor(15);
writeln;;writeln('process pengurutan Gravitasi : ');
for i:=1 to n-1 do begin
for j:=1 to n-i do begin
if a[j]>a[j+1] then begin
temp:=a[j+1];
a[j+1]:=a[j];
a[j]:=temp;
end;
end;
writeln; textcolor(i);
{cetak array tiap langkah pengurutan}
write('hasil akhir langkah ke - ',i,' : ');
for k:=1 to n do write(a[k],' ');
end;
{cetak array setelah pengurutan}
writeln;writeln;
textcolor(15);write('hasil pengurutan Gravitasi : ');
for i:=1 to n do
write (a[i],' ');
writeln;writeln;textcolor(10);
write('sudah terurut dengan benar khan..?');
readln;
end.

===========================================
 
{Program Sort Seleksi}
uses crt;

var i,j,k,temp,imax,n :integer;
a,b,c :array[1..100] of integer;
begin
clrscr; textcolor(12);
write('Banyaknya elemen Array : ');readln(n);
{input data}
for i:=1 to n do begin
write('elemen ke - ',i,' ');readln(a[i]);
end;
{cetak array sebelum urut}
writeln;textcolor(15);write('Sebelum diurutkan: ');
for i:=1 to n do
write(a[i],' ');
writeln;writeln;
textcolor(15);
Writeln;;writeln('process pengurutan Seleksi : ');
for i:=1 to n-1 do begin
imax:=i;
for j:=i+1 to n do
if a[j]
{tukar a[j] dengan a[imax]}
temp:=a[imax];a[imax]:=a[i];a[i]:=temp;
writeln;textcolor(i);
{cetak array tiap langkah pengurutan}
write('hasil akhir langkah ke - ',i,' : ');
for k:=1 to n do write(a[k],' ');
end;
{cetak array setelah pengurutan}
writeln;writeln;
textcolor(15);write('hasil pengurutan Seleksi : ');
for i:=1 to n do
write (a[i],' ');
readln;
end.

==============================================
{Program Sort Insertion}

uses crt;
var i,j,k,temp,imax,n :integer;
a,b,c :array[1..100] of integer;
begin
clrscr; textcolor(12);
write('Banyaknya elemen Array : ');readln(n);
{input data}
for i:=1 to n do begin
write('elemen ke - ',i,' ');readln(a[i]);
end;
{cetak array sebelum urut}
writeln;textcolor(15);write('Sebelum diurutkan: ');
for i:=1 to n do
write(a[i],' ');
writeln;
textcolor(15);
writeln;writeln('process pengurutan Insertion : ');
for i:=2 to n do begin
temp:=a[i];j:=i-1;
while (temp0) do j:=J-1;
for k:=i downto j+1 do a[k]:=a[k-1];
a[j+1]:=temp;
writeln;textcolor(i);
{cetak array tiap langkah pengurutan}
write('hasil akhir langkah ke - ',i-1,' : ');
for k:=1 to n do write(a[k],' ');
end;
{SETAK SETELAH PENGURUTAN}
writeln;writeln;
textcolor(15);write('hasil pengurutan INSERTION : ');
for i:=1 to n do
write (a[i],' ');
readln;
end.

=================================================
{Program Sort Insertion}

 Uses crt;
var i,j,k,temp,imax,n :integer;
a,b,c :array[1..100] of integer;
begin
clrscr; textcolor(12);
write('Banyaknya elemen Array : ');readln(n);
{input data}
for i:=1 to n do begin
write('elemen ke - ',i,' ');readln(a[i]);
end;
{cetak array sebelum urut}
writeln;textcolor(15);write('Sebelum diurutkan: ');
for i:=1 to n do
write(a[i],' ');
writeln;
textcolor(15);
writeln;writeln('process pengurutan Swap Insertion : ');
for i:=1 to n-1 do begin
j:=i+1;
while (a[j]1) do begin
temp:=a[j-1];
a[j-1]:=a[j];
a[j]:=temp;
j:=j-1;
end;
writeln;textcolor(i);
{cetak array tiap langkah pengurutan}
write('hasil akhir langkah ke - ',i,' : ');
for k:=1 to n do write(a[k],' ');
end;
{SETAK SETELAH PENGURUTAN}
writeln;writeln;
textcolor(15);write('hasil pengurutan SWAP-INSERTION : ');
for i:=1 to n do
write (a[i],' ');
readln;
end.