BUatlah PRogram Record Mengandung Array

Program KRS dan nilai mhs
uses wincrt;
type
     siswa=record
       nim:string[5];
       nama:string[15];
       krs:array[1..4,1..5] of integer;
     end;

type kuliah=array[1..20] of siswa;
var  kul:kuliah;

{--------------------------------------------------------------------}
function huruf(bobot:integer):char;
begin
   case bobot of
   0:huruf:='E';
   1:huruf:='D';
   2:huruf:='C';
   3:huruf:='B';
   4:huruf:='A';
   end;
end;
{--------------------------------------------------------------------}
procedure khs(n:integer;kul:kuliah);
var jumsks,usaha,i,j:integer;
    ipnya:real;
begin
    for i:=1 to n do
    begin
       Writeln('Nim   : ',kul[i].nim);
       Writeln('Nama  : ',kul[i].nama);
       writeln;
       writeln('Kode   sks   nilai');
       jumsks:=0;usaha:=0;
       for j:=1 to 2 do
          begin
          writeln(kul[i].krs[1,j]:3,'   ',kul[i].krs[2,j]:3,' ',huruf(kul[i].krs[4,j]):5);
             jumsks:=jumsks+kul[i].krs[2,j];
             usaha:=usaha + kul[i].krs[2,j]*kul[i].krs[4,j];
          end;

       if jumsks<>0 then
          ipnya:=usaha/jumsks;

       writeln;
       writeln('IP = ',ipnya:0:2);
   
    end;
end;
{--------------------------------------------------------------------}
function bobot(nilai:integer):integer;
begin
    if nilai<40 then bobot:=0
    else
       if (nilai>=40) and (nilai<55) then bobot:=1
       else
          if (nilai>=55) and (nilai<65) then bobot:=2
          else
             if (nilai>=65) and (nilai<76) then bobot:=3
             else
                bobot:=4;
end;
{--------------------------------------------------------------------}
procedure masukdata(var kul:kuliah;var n:integer);
var i,j:integer;
begin
   clrscr;
   write('Banyak mahasiswa = ');readln(n);
   for i:=1 to n do
   begin
       write('Nim    : ');readln(kul[i].nim);
       write('Nama   : ');readln(kul[i].nama);
       writeln;
       for j:=1 to 2 do
       begin
           write('Kode  : ');readln(kul[i].krs[1,j]);
           write('Sks   : ');readln(kul[i].krs[2,j]);
           write('Nilai : ');readln(kul[i].krs[3,j]);
           writeln('Bobot : ',bobot(kul[i].krs[3,j]));
           kul[i].krs[4,j]:=bobot(kul[i].krs[3,j]);
           writeln('huruf : ',huruf(bobot(kul[i].krs[3,j])));
           writeln;
       end;
   end;
end;

var n:integer;
begin
   masukdata(kul,n);
   readkey;
   khs(n,kul);
end.

Waw..!!

JAKARTA, KOMPAS.com — Tim Dokter Rumah Sakit Pusat Pertamina berhasil mengeluarkan benda asing di sekitar paru-paru dan jantung Kepala Kepolisian Resor Kota Cirebon AKBP Herukoco, Senin (18/4/2011). Herukoco merupakan korban bom bunuh diri di Masjid Adz-Dzikro, kompleks Mapolresta Cirebon, Jawa Barat, Jumat (15/4/2011) lalu. Benda-benda asing tersebut berupa logam dan mur.

"Kami sudah melakukan operasi membelah dada dan mengangkat benda asing. Benda asing di paru-paru dan menempel di dekat jantung. Ada serpihan besar di lokasi vital sudah terangkat," ungkap Ketua Tim Dokter yang menangani Heru, dr Agustian Sofian, di Rumah Sakit Pusat Pertamina, Jakarta, Senin (18/4/2011).
Menurutnya, selain operasi tersebut, tim dokter juga melakukan operasi eksplorasi untuk lengan dan punggung dari tubuh AKBP Herukoco. Apalagi, Heru termasuk korban yang paling parah dan paling banyak terkena paku akibat ledakan bom yang dilakukan Muhammad Syarif Astanagarif (32) itu.
"Paling parah dalam dada, siku kanan, punggung kanan, dekat iga. Kami usahakan tidak infeksi. Ada juga butiran halus kayak pasir, tetapi sudah dibersihkan," imbuhnya.
Setelah menjalani serangkaian operasi, kondisi Heru saat ini telah membaik dan dalam masa pemulihan.

Perkembangan Dunia Hiburan Musik

Program Nilai dan Kuadran

Program ini dubuat untuk pengumpulan tugas
Link download bisa di klik di bawah ini
Nama : Epit Septian Maulana
NIM  : 3105111260
Teknik Informatika D UTY
nama file : Epit_Septian _Maulana_3105111260_TID .RAR

Download

Perbedaan Laptop,Notebook dan Netbook

Wifi VS Wimax Seri ke 2

Sebenarnya perfomansi WiMAX hampir sama dengan WiFi yaitu, keduanya menggunakan “hotspot” atau lingkungan sekitar antenna dimana kita dapat mengakses informasi dengan PDA, Laptop atau gadget lainnya. Perbedaannya adalah pada segi jangkauan radiusnya. Untuk WiFi bisa menjangkau 100 feet atau sekitar radius 30 meter, sedangkan WiMAX memiliki jangkauan 25-30 mile atau sekitar 40-50 Km (maksimal 50 Km). Hal ini berarti bahwa WiMAX dapat digunakan sebagai pengganti broadband tradisional yang masih menggunakan line telepon (seperti, ASDL, ISDN) dan kabel (Internet melalui TV Kabel atau jaringan PLN misalnya). Untuk permulaan, WiMAX ditujukan untuk penggunaan fixed wireless.
Saat ini Memang banyak pebisnis teknologi informasi yakin WiMAX akan segera mendunia. Padahal pengembangan Wi-Fi saja memerlukan waktu 10 tahun. Teknologi ini sebenarnya adalah pengembangan lebih lanjut dari konsep Wi-Fi. Teknologi ini sudah banyak memberikan kemudahan bagi manusia, namun mempunyai kendala terbatasnya kapasitas dan jangkauannya. Sedangkan banyak perusahaan besar di dunia membutuhkan akses jaringan tanpa kabel yang memiliki kapasitas data besar, biaya murah dan bisa diakses dari semua tempat.
Teknologi Wi-Fi memiliki jangkauan yang terbatas, paling jauh sekira 100 meter saja. Bandingkan dengan WiMAX memiliki radius jangkauan sekira 7 sampai dengan 10 km. Tidak salah kalau WiMAX diproyeksikan sebagai teknologi jaringan tanpa kabel untuk daerah perkotaan. Dengan WiMAX kemana pun kita pergi di dalam kota, akses internet dapat dilakukan tanpa biaya yang terlalu mahal. Untuk mencari informasi tidak perlu pergi ke kantor ataupun warung internet, cukup duduk di mobil sambil menunggu lalu lintas yang macet, kemudian membuka notebook. Sedangkan untuk Wi-Fi begitu keluar dari area hotspot, koneksi data langsung mati.
WiMAX memiliki kemampuan menghantarkan data sampai dengan kecepatan 75 megabit perdetik (Mbps), sedangkan Wi-Fi hanya 11 Mbps. Keunggulan lainnya adalah WiMAX bermain pada frekuensi yang cukup rendah dan lebar, yaitu 2 – 6 gigahertz (GHz). Sedangkan Wi-Fi yang diatur dalam protokol 802.11b di 2,4 GHz dan protokol 802.11a di 5 GHz.
Teknologi WiMax diimplementasikan sesuai standar IEEE 802.16, dimana standar ini merupakan pengembangan dari IEEE 802.11 yang merupakan acuan standarisasi WiFi. Jadi dapat dikatakan bahwa teknologi WiMax merupakan pengembangan dari teknologi WiFi.
Pada dasarnya WiFi dan WiMax tidak memiliki banyak perbedaan, akan tetapi WiMax memiliki beberapa keunggulan dibandingkan WiFi. Berikut beberapa perbedaan WiFi dan Wimax :

1. Coverage Area

Apabila WiFi hanya dapat melingkupi coverage area beberpa meter saja, yang hanya dapat mencukupi akses internet hanya pada satu gedung saja. Lain halnya dengan WiMax, yang memiliki cakupan coverage area lebih luas, yaitu sekitar 50 km.

1. Standar yang digunakan

WiFi menggunakan standar IEEE 802.11 dan ETSI HiperLAN sedangkan WiMax menggunakan standar IEEE 802.16 dan ETSI HiperMAN.

1. Fitur

WiMax memiliki lebih banyak fitur dibandingkan dengan WiFi, sehingga sebuah BTS dapat melayani lebih banyak user untuk akses interenet.

1. Frekuensi

WiFi menggunakan frekuensi 5,8GHz, sedangkan WiMax selain menggunakan frekuensi 5,8GHz, juga menggunakan frekuensi 2,5GHz and 3,5GHz.

1. LoS (Line of Sight)

Standar WiMax memberikan koneksi tanpa memerlukan LoS, sedangkan WiFi tidak.
Lain WiFi, lain juga dengan WiMAX. Beberapa aplikasi yang bisa dicapai dengan memanfaatkan WiMAX adalah sebagai berikut :

1. Aplikasi Backhaul

Untuk aplikasi backhaul maka WiMAX dapat dimanfaatkan untuk backhaul WiMAX itu sendiri, backhaul Hotspot dan backhaul teknologi lain.

1. Backhaul WiMAX

Dalam konteks WiMAX sebagai backhaul dari WiMAX aplikasinya mirip dengan fungsi BTS sebagai repeater yang bertujuan untuk memperluas jangkauan dari WiMAX.

1. Backhaul Hotspot

Pada umumnya, hotspot banyak menggunakan saluran ADSL sebagai backhaul-nya untuk menyambungkan ke sisi koneksi internet. Dengan keterbatasan jaringan kabel, maka WiMAX juga bisa dimanfaatkan sebagai backhaul hotspot.

1. Backhaul Teknologi Lain

Sebagai backhaul teknologi lain, WiMAX dapat digunakan untuk backhaul seluler. Gambar berikut mengilustrasikan WiMAX untuk menghubungkan MSC/BSC ke BTS seluler.

1. Akses Broadband

WiMAX dapat digunakan sebagai ”Last Mile” teknologi untuk melayani kebutuhan broadband bagi pelanggan. Dengan kemampuan lebih di sisi QoS (Quality of Service) maka WiMAX dapat dimanfaatkan untuk melayani pelanggan perumahan maupun bisnis dengan service yang berbeda.

1. Personal Broadband

WiMAX sebagai penyedia layanan personal broadband, dapat dibedakan menjadi 2 pangsa pasar yaitu yang bersifat nomadic dan mobile. Gambaran detilnya sebagai berikut :

1. Nomadic
   Untuk solusi nomadic, maka biasanya tingkat perpindahan dari user WiMAX tidak sering dan kalaupun pindah dalam kecepatan yang rendah. Perangkatnya pun biasanya tidak sesimpel untuk aplikasi mobile.
2. Mobile
   Untuk aplikasi mobile, maka user WiMAX layaknya menggunakan terminal WiFi seperti notebook, PDA atau smartphone. Perpindahan/tingkat mobilitasnya sama dengan WiFi. Bedanya kalau menggunakan WiMAX maka digunakan WiMAX card yang dipasang di terminal.

Bila dilihat dari penjelasan mengenai aplikasi WiFi dan WiMAX di atas, maka secara garis besar keduanya dapat diintegrasikan dan overlay (saling melapisi). Kalau integrasi berarti antara WiMAX dan WiFi akan saling mendukung. Keduanya akan saling bersinergi untuk melayani pelanggan yang lebih besar dan lebih banyak. Namun bila sifatnya overlay atau overlap dari sisi coverage, maka dapat difungsikan saling mendukung (bila satu operator) dan juga akan saling berlawanan bila berbeda operator.

Hindari Nyolog data dengan M File....Ante copet....

Topik pencolongan data memang tak pernah habis dan selalu mengundang perhatian buanyak kalanganhhh....TErlebih bgi pra profesional yg mmliki byk dta pentingh spnting upil hahaha...Beberapa metode unthuk melindungi daa dari pencuriyan sudah byq dperkenalkan...Namun ada satu softwware ok yg mampu melakukannya yaithu....M File Anti-Copy...

mau download..nang ngisor di klik
download