Const

Radian = 0.017453203;

Faktor = 0.7071067;

Var

S1, C1 : integer;

Procedure KurvaKoch(Arah, Panjang : Real; Orde: integer);

Var

S, C :integer;

Begin

if Orde > 0 then

Begin

KurvaKoch(Arah,Panjang/3,Orde-1);

Arah:=Arah+90;

KurvaKoch(Arah,Panjang/3,Orde-1);

Arah:=Arah-90;

KurvaKoch(Arah,Panjang/3,Orde-1);

Arah:=Arah-90;

KurvaKoch(Arah,Panjang/3,Orde-1);

Arah:=Arah+90;

KurvaKoch(Arah,Panjang/3,Orde-1);

End

Else

Begin

S:=Round(Panjang*Sin(Radian*Arah));

C:=Round(Panjang*Cos(Radian*Arah));

Form1.Image1.Canvas.LineTo(C+C1,S+S1);

C1:=C+C1;

S1:=S+S1;

End;

End;

procedure TForm1.Button1Click(Sender: TObject);

begin

C1 := 505;

S1 := 250;

Form1.Image1.Canvas.MoveTo(C1,S1);

KurvaKoch(180,300,4);

end;

Kode program soal UAS Praktikum Grafika Komputer Kelompok B:

procedure TForm1.Button1Click(Sender: TObject);

var

sx,sy,tx,ty :Real;

xsc1,ysc1,xsc2,ysc2:Integer;

begin

sx:=(500-50)/(80-20);

sy:=(400-20)/(60-10);

tx:=((50*80)-(20*500))/(80-20);

ty:=((20*60)-(10*400))/(60-10);

xsc1:=round((sx*25)+tx);

ysc1:=(400-20)-round((sy*20)+ty);

xsc2:=round((sx*75)+tx);

ysc2:=(400-20)-round((sy*50)+ty);

Image1.Canvas.MoveTo(xsc1,ysc1);

Image1.Canvas.LineTo(xsc2,ysc2);

end;

Kode program soal UAS Praktikum Grafika Komputer Kelompok C:

procedure TForm1.Button1Click(Sender: TObject);

begin

Image1.Canvas.MoveTo(Round(100/(1-(0/1000))),Image1.Height-Round(200/(1-(0/1000))));

Image1.Canvas.LineTo(Round(300/(1-(0/1000))),Image1.Height-Round(200/(1-(0/1000))));

Image1.Canvas.LineTo(Round(300/(1-(300/1000))),Image1.Height-Round(200/(1-(300/1000))));

Image1.Canvas.LineTo(Round(100/(1-(300/1000))),Image1.Height-Round(200/(1-(300/1000))));

Image1.Canvas.LineTo(Round(200/(1-(200/1000))),Image1.Height-Round(400/(1-(200/1000))));

Image1.Canvas.LineTo(Round(100/(1-(0/1000))),Image1.Height-Round(200/(1-(0/1000))));

Image1.Canvas.MoveTo(Round(300/(1-(0/1000))),Image1.Height-Round(200/(1-(0/1000))));

Image1.Canvas.LineTo(Round(200/(1-(200/1000))),Image1.Height-Round(400/(1-(200/1000))));

Image1.Canvas.LineTo(Round(300/(1-(300/1000))),Image1.Height-Round(200/(1-(300/1000))));

end;

atau

http://www.ziddu.com/download/10444849/PEMBAHASANSOALQUIZIIPENGOLAHANCITRADIGITAL.doc.html

Berdasarkan topologi diatas konfigurasi masing-masing PC Router dengan sistem operasi Linux CentOS 5.4 dengan ketentuan berikut:

1. Buat interface alias eth0:0 dan eth0:1
2. Konfigurasi pengalamatan pada masing-masing interface.
3. Konfigurasi routing statik menggunakan utilitas “route” atau secara permanen menggunakan format penulisan argumen perintah IP atau directive network/netmask.
4. Konfigurasi masing-masing PC Router sebagai server DNS menggunakan paket aplikasi BIND sesuai dengan nama domain yang telah ditentukan.

Semoga membantu. Terimakasih atas perhatian & kerjasamanya.

Buat konfigurasi routing statik pada masing-masing PC Router R1-R8 yang menggunakan sistem operasi Linux CentOS 5.4 berdasarkan topologi jaringan diatas. Penulisan konfigurasi routing statik dapat menggunakan perintah “route add” atau menggunakan format “argumen perintah IP” yang disimpan pada direktori /etc/sysconfig/network-scripts dengan konvensi penamaan file route-interface.

Tugas dibuat perorangan & dikumpulkan paling lambat pada perkuliahan teori mata kuliah Jaringan Komputer 2, hari kamis, 8 April 2010.

Tidak ada toleransi bagi mahasiswa yang terlambat mengumpulkan tugas. Lebih cepat, lebih baik

Informasi lebih lanjut, silakan menghubungi via email, handphone atau langsung mengunjungi Ruang Pusat Teknologi Informasi & Komunikasi (PusTIK).

Terimakasih atas perhatian & kerjasamanya.

Your project structure is belowing format.

Cover
1 Judul
2 Nama dan NIM
3 Identitas Program studi
Abstrak
Daftar Isi
Bab 1. Pendahuluan
1 Ilustrasi topik dan obyek bahasan / latar belakang masalah
2 Perumusan masalah
3 Tujuan
4 Hasil akhir yang diharapkan
5 Hipotesa
Bab 2. Pendekatan dan Landasan Teori
Bab 3. Pendekatan Sistem (system thinking)
1 Identifikasi sistem yang dimodelkan
2 Mekanisme sistem (masukan, prosedur, proses, keluaran)
3 Pembatasan sistem sesuai dengan pembahasan
Bab 4. Pembangunan Model
1 Analisa dan asumsi sistem yang dimodelkan / dibahas
2 Formulasi model dan Penyusunan elemen / komponen
3 Parameteriasi atau penyusunan model matematis dan diagramnya
4 Validasi model
5 Penyesuaian model / justifikasi model
Bab 5. Penyusunan Simulasi
1 Integrasi model ke dalam algoritma
2 Pembangunan (aplikasi) simulasi komputer
Bab 6. Hasil dan Diskusi
1 Hasil / keluaran implementasi simulasi
2 Diskusi dan analisa hasil simulasi
Bab 7. Penutup
1 Simpulan
2 Saran dan alternatif pengembangan
Daftar Referensi
Lampiran
1 Pengkodean
2 Hasil lengkap eksekusi program simulasi dan keluarannya
3 Dokumen-dokumen yang mendukung

• LAN A terdiri dari 6 komputer menggunakan alamat network 172.30.0.0.
• LAN B terdiri dari 8 komputer menggunakan alamat network 172.31.0.0.
• Tuliskan Class IP, alamat IP Pertama, IP Terakhir, dan IP Broadcast serta Default Subnetmask dari alamat network yang digunakan pada masing-masing LAN pada desain jaringan yang dibuat.
• Komputer-komputer pada LAN A & LAN B dapat saling berkomunikasi, sehingga diperlukan peralatan perantara sebagai jembatan komunikasi antar LAN yaitu Router. Alamat IP Pertama dari masing-masing alamat Network dialokasikan sebagai alamat IP untuk Router.
• Alokasi alamat IP untuk 6 komputer di LAN A menggunakan 6 alamat IP Terakhir.
• Alokasi alamat IP untuk 8 komputer di LAN B menggunakan 8 alamat setelah IP Pertama yang dicadangkan sebagai alamat IP Router.
• Tuliskan alamat default gateway dari masing-masing LAN.

Tugas dibuat perorangan & dikumpulkan paling lambat saat praktikum sesuai dengan kelompok masing-masing pada minggu ketiga Oktober (Kelompok A – 22 Oktober 2009, Kelompok B – 23 Oktober 2009).

Tidak ada toleransi bagi mahasiswa yang terlambat mengumpulkan tugas. Lebih cepat, lebih baik

Berikut adalah contoh desain jaringan 2 LAN dengan masing-masing LAN terdiri dari 3 komputer yang menggunakan alamat jaringan untuk LAN A 192.168.1.0 dan LAN B 192.168.2.0. Alamat IP Terakhir dari masing-masing LAN dicadangkan sebagai alamat IP yang digunakan oleh Router yang menghubungkan LAN A dan LAN B.

Informasi lebih lanjut silakan menghubungi via email, handphone, atau langsung mengunjungi Ruang Pusat Teknologi Informasi & Komunikasi (PusTIK).

Terimakasih atas perhatian & kerjasamanya.