Nilai Final Algoritma dan Pemrograman II

No.
No.
Mhs
Nilai
UTS
Nilai
Final
1. 3055111113 25 C
2. 3095121002 40 B
3. 3105111321 75 A
4. 3105111323 10 D
5. 3105111324 25 C
6. 3105111325 65 A
7. 3105111326 40 B
8. 3105111328 55 B
9. 3105111329 80 A
10. 3105111331 0 C
11. 3105111335 75 A
12. 3105111337 90 A
13. 3105111338 100 A
14. 3105111339 15 C
15. 3105111344 65 A
16. 3105111346 0 D
17. 3105111347 0 D
18. 3105111348 0 D
19. 3105111349 85 A
20. 3105111352 70 A
21. 3105111355 25 C
22. 3105111356 25 C
23. 3105111357 95 A
24. 3105111359 95 -
25. 3105111360 - -
26. 3105111361 0 D
27. 3105111363 0 D
28. 3105111364 0 D
29. 3105111365 20 C
30. 3105111366 85 A
31. 3105111367 25 C
32. 3105111368 25 C
33. 3105111369 65 A
34. 3105111370 65 A
35. 3105111372 25 C
36. 3105111373 0 D
37. 3105111374 75 A
38. 3105111375 50 B
39. 3105111377 25 -
40. 3105111378 65 A
41. 3105111379 80 A
42. 3105111380 55 D
43. 3105111381 65 A
44. 3105111382 75 A
45. 3105111383 40 B
46. 3105111384 75 A
47. 3105111385 50 B
48. 3105111388 45 B
49. 3105111390 45 D
50. 3105111393 65 A
51. 3105111397 65 A
52. 3105111398 25 C
53. 3105111399 25 C
54. 3105111400 50 -
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Tugas Mandiri 2 Pemrograman Dasar Kelas TI (E)


Source Code Program :

type penduduk = record
      NIK   : integer;
      Nama  : string;
      Tmpt  : string;
      jk    : string;
      status: boolean;
           end;
var
  Form1: TForm1;
  dtpend  : array [1..10] of penduduk;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i, n : integer;
begin
  i:=strtoint(edit1.text);
  for n:=1 to i do
    begin
      dtpend[n].NIK:=StrToInt(InputBox('Data Penduduk','Masukan NIK ke-'+IntToStr(n)+':',''));
      dtpend[n].nama:=InputBox('Data Penduduk','Masukan Nama :','');
      dtpend[n].tmpt:=InputBox('Data Penduduk','Masukan Tempat Lahir :','');
      dtpend[n].jk:=inputBox('Data Penduduk','Masukan Jenis Kelamin :','');
      dtpend[n].status:=StrToBool(InputBox('Data','Masukan Status perkawinan :',''));
    end;
  for n:=1 to i do
  begin
    memo1.Lines.Add('------- Data Penduduk ke-'+IntToStr(n)+' -------');
    memo1.Lines.Add('NIK '+#9#9+': '+IntToStr(dtpend[n].NIK));
    memo1.Lines.Add('Nama '+#9#9+': '+dtpend[n].Nama);
    memo1.Lines.Add('Tempat Lahir '+#9+': '+dtpend[n].Tmpt);
    memo1.Lines.Add('Jenis Kelamin '+#9+': '+dtpend[n].jk);
    if (dtpend[n].status=true) then
      memo1.Lines.Add('Status '+#9#9+': '+'Menikah')
    else
      memo1.Lines.Add('Status '+#9#9+': '+'Belum Menikah');
      memo1.Lines.Add('');
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Application.MessageBox('Do you want to close this program?',
  '==> Warning <==',MB_OKCANCEL+MB_ICONWARNING)=mrok then
  close;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
    edit1.SetFocus;
end;
end.


Hasil Running Program :


Yeni Rosiana
3105111325
TI (E)


  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Tugas Mandiri 1 Pemrograman Dasar Kelas TI (E)

Tugas Pemrograman Dasar TI (E)
1. Tugas mengimplementasikan sebuah program yang menerima inputan nilai (dalam range 0 sampai 100) dan menghasilkan output berupa "keterangan nilai". 

IPK
KETERANGAN
0 – 15
Nilai E
16 – 40
Nilai D
41 – 60
Nilai C
61 – 80
Nilai B
81 - 100
Nilai A

2. Implementasikan program yang menerima input berupa koordinat x dan y dari suatu titik pada bidang cartesian, serta menghasilkan output berupa posisi kuadran dari titik input. Soal No. 1 dikerjakan dengan menggunakan case..of dan soal No. 2 dengan menggunakan if..then..else. 




  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Perbedaan Antara Wifi dengan Wimax

Wi-Fi
Seiring dengan perkembangan teknologi jaringan, kita mengenal 2 jenis jaringan yang sering kita jumpai. Jaringan tersebut adalah :
1. Jaringan  kabel
2. Jaringan nirkabel
Namun dalam bahasan kali ini, saya akan membahas mengenai jaringan nirkabel yakni wifi dan wimax. Sebelum kita mengetahui perbedaan diantara keduanya, terlebih dahulu saya akan memberikan uraian mengenai pengertian dari masing - masing jaringan nirkabel.

Wi-Max
  1. Wifi
    Wifi yang merupakan kependekan dari Wireless Fidelity adalah teknologi jaringan nirkabel yang bekerja pada local area network (LAN) dengan frekuensi 2.4 GHz dan menggunakan standarisasi IEEE 802.11.
  2. WiMax
    WiMAX (Worldwide Interoperability for Microwave Access) adalah sebuah tanda sertifikasi untuk produk-produk yang lulus tes cocok dan sesuai dengan standar IEEE 802.16. WiMAX merupakan teknologi nirkabel yang menyediakan hubungan jalur lebar dalam jarak jauh dan bekerja dengan frekuensi 5.3 GHz.
Dari kedua jenis jaringan nirkabel tersebut, memiliki beberapa perbedaan diantaranya :

PembedaWifiWimax
Jarak100 Meter50 Km
Frekuensi2.4 GHz5.3 GHz
Protocol IEEE802.11802.16
Kekuatan SinyalSinyal melemah ketika adanya
halangan antara pemancar wifi
dengan komputer penerima.
Sinyal tetap stabil meskipun
terhalang gedung.
Jaringan KomputerLocal Area NetworkWide Area Network
BiayaMurah, karena digunakan
pada level W-LAN.
Mahal, larena digunakan
untuk jaringan wide area network
(jaringan luas).

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Klarifikasi Artav Terhadap Moh Aly Shodiqin

        Al Antivirus adalah antivirus buatan Moh Aly Shodiqin. Baru - baru ini di dunia maya ramai diberitakan bahwa source code antivirus milik Moh Aly Shodiqin dijiplak oleh seorang anak smp yakni Ival Dwi Sentosa. Ival membuat sebuah antivirus yang diberi nama Artav. Source code antivirus Artav tenyata diambil dari Al Antivirus Scan yang sebenarnya dimiliki oleh Moh Aly Shodiqin.Ival sendiri telah mengucapkan permintaan maafnya kepada pembuat Al Anti Virus Scan yaitu Moh Aly Shodiqin pada tanggal 16 februari 2011, dia juga memberikan klarifikasi bahwa jika pada ARTAV Antivirus tidak mencantumkan credit title Moh Aly Shodiqin (pembuat al Virus Scan). Selain itu Ival juga memberikan penjelasan bahwa dalam ARTAV Antivirus dia menggunakan fitur Quarantine, Registry Tweak dan Sound Warning dari Al  Virus Scan.
        Ival berjanji bahwa nanti di versi ARTAV Antivirus yang terbaru akan dicantumkan credit title Moh Aly Shodiqin (pembuat Al Anti virus Scan) di program ARTAV. Ival berterimakasih pada Moh Aly Shodiqin yang sudah memberikan izin fitur quarantine dan support kepadanya untuk tetap mengembangkan ARTAV Antivirus. Begitupun dengan pembuat Al Anti Virus Scan yaitu Moh Aly Shodiqin, dia telah memaafkan Ival atas tindakannya yang sekarang mendapat pro dan kontra di dunia maya. Tepatnya tanggal 17 februari 2011 selang waktu satu hari setelah Ival meminta maaf, Aly memberikan respon yang baik dan telah memaafkan siswa SMP ini. Aly bangga serta salut dengan adanya Anti Virus yang bernama ARTAV dan berharap semoga bisa bermanfaat bagi semua.
        Jika dilihat dari fitur, scanning system, tweek registry, proses scanning, virus data base dan sound warning memang terdapat kesamaan. Salah satu yang paling mudah diketahui ketika Al-virus mendeteksi adanya virus, maka akan berbunyi tembakan, hal ini sama juga seperti Artav. Untuk membuktikannya silahkan download Al Anti Virus disini dan Artav Anti Virus disini

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Menentukan bilangan terbesar dari 3 buah bilangan dengan pascal

uses wincrt;
type larik = array [1..10] of integer;
var data   : larik;
    n,i,max: integer;
begin
     write('banyak data =....');
     readln(n);
     for i:=1 to n do
     begin
          write('data ke ',i,' = ');
          readln(data[i]);
     end;
     max:=data[1];
   
     for i:=2 to n do
         if data[i]>max then
            max:=data[i];
     write('data =');
     for i:=1 to n do
     begin
          write(data[i],' ');
     end;
     writeln(' ');
     writeln('bilangan terbesar =',max);
     readln;
end.
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS

Jadwal Kuliah Semester 2 TI E



Jadwal Kuliah Kelas TI E

Hari Jam Ruang Mata Kuliah
Senin 08.50-10.30 C.3.2 Pengantar Teknologi Informasi
Senin 14.10-15.50 C.3.1 Algoritma & Pemrograman II
Selasa 08.50-10.30 B.0.3 Bahasa Inggris II
Rabu 08.50-11.20 C.3.1 Statistika Teknik
Rabu 13.20-15.00 B.0.3 Mikroprosesor
Kamis 12.30-15.00 C.3.2 Kalkulus II
Jum'at 09.40-11.20 C.3.1 Pendidikan Kewarganegaraan
Jum'at 12.30-14.10 B.0.3 Pemrograman Dasar
Jum'at 15.50-17.30 B.2.3 Pengembangan Kepribadian
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • Twitter
  • RSS
Copyright 2009 Cameh Site
Free WordPress Themes designed by EZwpthemes
Converted by Theme Craft
Powered by Free Website Templates
Free Website templateswww.seodesign.usFree Flash TemplatesRiad In FezFree joomla templatesAgence Web MarocMusic Videos OnlineFree Wordpress Themeswww.freethemes4all.comFree Blog TemplatesLast NewsFree CMS TemplatesFree CSS TemplatesSoccer Videos OnlineFree Wordpress ThemesFree CSS Templates Dreamweaver