berikut 10 mesjid terbesar di dunia :
10. Masjid Baitul Mukarram – Dhaka, Bangladesh
Masjid ini berada tepat di jantung ibukota Bangladesh Dhakka, masjid yang selalu penuh sesak terutama saat solat utama dan di bulan suci Ramadhan, masjid ini dibina sekitar tahun 1960-an dengan kapasiti semula 30 ribuan umat, namun dalam perkembangannya ditambah menjadi 40 ribuan umat.
9. Masjid Jama / Jami “- Delhi, India
Masjid yang berada di kota lama India Delhi ini termasuk sebuah masjid yang berumur tua, Masjid yang pembangunannya di Mulakan oleh pembuat Taj Mahal Maharaja Mughal Shah Jahan dibina pada tahun 1656 Masihi. Puluhan ribu jemaah setiap Solat Jumaat selalu memenuhi seluruh ruang dalam bahkan keluar masjid.
8. Masjid Sheikh Zayed – Abu Dhabi, UAE
Nama Masjid ini diambil dari nama Presiden pertama Uni Emirat Arab Sheikh Zayed bin Sultan Al Nahyan dan mulai digunakan oleh umat tahun 2007. Makam Sheikh Zayed pun terdapat masih dalam area Masjid terbesar di UEA tersebut.
7. Badhshahi Masjid – Lahore, Pakistan
Juga dikenali dengan nama lain Masjid Sultan, Masjid ini pernah menjadi Masjid terbesar di Asia Selatan dan mempunyai kapasiti sehingga 100 ribuan lehih umat berada tepat di tengah bandar Lahore Pakistan.
6. Masjid Faisal – Islamabad, Pakistan
Masjid Faisal ini saat ini merupakan masjid terbesar di Asia Selatan dan sebelum Masjidil Haram di Mekah diubahsuai. Masjid ini pernah menyandang predikat menjadi Masjid Terbesar di dunia tempoh 1986-1993. Masjid yang menjadi masjid kebangsaan Pakistan ini mempunyai kapasiti 300 ribuan jemaah.
5. Masjid Hasan II – Pastor Paroki
Masjid yang berada di Casablanca ini direka oleh arkitek dari Perancis Michel Pinseau dengan memiliki menara masjid tertinggi di dunia lebih dari 200 meter, menghadap langsung ke Samudera Atlantik.
4 Masjid Istiqlal – Jakarta, Indonesia
Sampai juga ke tanah air tercinta Indonesia, Masjid yang dibina di era orde lama saat pemerintahan Presiden Soekarnao ini hingga kini masih menyandang sebagai Masjid Terbesar di Asia Tenggara, walau banyak masjid-masjid baru bermunculan dan megah namun secara keseluruhan belum bisa menandingi kebesaran Masjid Istiqlal ini . Istiqlal yang bererti kemerdekaan merupakan anugerah atas kemerdekaan yang diraih Indonesia melepaskan diri dari belenggu penjajahan.
3. Masjid Imam Reza Shrine – Mashad, Iran
Imam Reza Shrine di Masyhad, Iran adalah sebuah kompleks yang berisi makam Imam Ridha, Imam kedelapan Syi’ah Imamiyah dan dikenal sebagai masjid terbesar ketiga di dunia. Juga terdapat dalam kompleks Masjid meliputi: Masjid Goharshad, museum, perpustakaan, empat seminari, kuburan, Universitas Islam Razavi Ilmu, sebuah ruang makan untuk peziarah, dan bangunan lainnya.
2. Masjid Al-Nabawi – Madinah
Semua umat Islam di dunia pasti kenal Masjid ini, kerana Masjid Nabawi merupakan salah satu masjid utama bagi muslim selain Masjidil Haram di Mekah dan Masjid Aqsa di Baitulmuqaddis. Merupakan tempat peristirahatan terakhir dari Nabi Muhammad SAW. Setiap umat Islam yang menjalankan ritual ibadah haji juga dipastikan akan melawat masjid terbesar ke-2 di Saudi Arabia bahkan di dunia ini.
1. Masjidil Haram – Mekkah
Masjidil Haram di Mekah ini merupakan masjid terbesar di seluruh dunia dimana di tengahnya terdapat bangunan Ka’bah yang menjadi pusat arah (kiblat) shalat seluruh umat Islam di dunia. Memiliki luas 4.008.020 meter persegi (990,40 hektar) dan mampu menampung lebih dari 4 juta jemaah baik di dalam ruangan maupun di luar. Masjid yang tidak pernah sepi dan setiap saat selama 24 jam selalu ada umat yang beribadah, baik shalat maupun melakukan tawaf (berjalan mengitari Ka’bah). Masjidil Haram paling ramai dikunjungi umat Islam dari seluruh dunia saat puncak ritual ibadah haji setiap tahunnya.
Minggu, 06 November 2011
Selasa, 01 November 2011
Super Komputer
Super Komputer Canggih Milik NASA [ Full Pic]
Superkomputer yang dibuat di Naval Oceanographic Office Major Shares Resource Center, Mississippi ini menggunakan 3.000 mikroprosesor 64 bit dengan kemampuan setara 368 buah komputer desktop yang digabung menjadi satu.
“Kalau sudah selesai, superkomputer yang menggunakan operating system (OS) Unix IBM alias AIX ini akan memiliki kecepatan 20 teraflop atau setara dengan 20 triliun penghitungan matematik per detik,” terang Debra Goldfard, wakil presiden produk IBM. “Kemampuannya itu seperti kuda yang sedang berlari kencang,” imbuhnya. Dengan kecepatan itu, kita bisa menghitung deretan angka yang bila dilakukan dengan kalkulator makan waktu 1,2 juta tahun. Sedangkan dengan superkomputer ini, hanya butuh waktu 1 detik.
Sementara itu, para ilmuwan NASA menggandeng perusahaan dari Lembah Silikon untuk menciptakan superkomputer dengan OS Linux. Kalau sudah selesai nanti, superkomputer berjulukan Space Exploration Simulator itu akan mempunyai kemampuan mengolah informasi 10 kali lebih cepat dibanding superkomputer yang saat ini dimiliki oleh NASA.
“Superkomputer baru ini nantinya memungkinkan para ilmuwan menjalankan simulasi model komputer yang rumit. Seperti penelitian formasi planet atau fisika matahari, atau perhitungan pesawat ulang-alik yang kembali ke bumi,” terang Walter Brooks, kepala divisi NASA Advanced Supercomputing (NAS).
Ames Research Center NASA di Mountain View, California yang menjadi markas besar NAS tengah membuat superkomputer baru sebagai bagian kerjasama Project Columbia yang dibantu Silicon Graphics, Inc. (SGI) dan produsen ternama prosesor komputer Intel.
Superkomputer ini akan menghubungkan 20 komputer canggih SGI Altix, yang masing-masing memiliki 512 prosesor, dilengkapi dengan 500 terabyte media penyimpan (storage) lokal. Setelah semua komputer tersebut dihubungkan, sejumlah 10.240 prosesor Intel Itanium 2 akan mentenagai superkomputer Space Exploration Simulator ini untuk melakukan berbagai penelitian. Seperti pemodelan pesawat ulang-alik, perubahan iklim, keselamatan penerbangan luar angkasa dan aeronautika.
“Ini memungkinkan NASA memproses misi kritis penerbangan yang kembali ke bumi atau pergi, sembari membangun pondasi kokoh eksplorasi ruang angkasa masa depan,” terang Administrator NASA Sean O’Keefe.
Saat menyelidiki penyebab kecelakaan pesawat ruang angkasa Columbia misalnya. Aktivitas tersebut hampir mengambil sebagian besar kemampuan pemrosesan superkomputer NASA sehingga penelitian sains luar angkasa dan bumi sempat terpinggirkan.
Dengan superkomputer baru ini, tugas penanganan keselamatan pesawat ulang-alik dan riset sains bisa dilakukan sekaligus oleh superkomputer. Bahkan, NASA merencanakan memberi porsi akses tertentu kepada komunitas ilmuwan dan insinyur di luar NASA untuk melakukan penelitian mereka sendiri dengan menggunakan superkomputer Space Exploration Simulator.
Spesifikasi:
Manufacturer – SGI
Nodes Type Speed Cache
1 Altix 4700 (512 cores) Montecito 1.6 GHz 9MB
1 Altix 4700 (2048 cores) Montecito 1.6 GHz 9MB
2 Altix 4700 (1024 cores) Montvale 1.6 GHz 9MB
4 Total Compute Nodes (4,608 Total Cores)
System ArchitectureNodes Type Speed Cache
1 Altix 4700 (512 cores) Montecito 1.6 GHz 9MB
1 Altix 4700 (2048 cores) Montecito 1.6 GHz 9MB
2 Altix 4700 (1024 cores) Montvale 1.6 GHz 9MB
4 Total Compute Nodes (4,608 Total Cores)
* 40 compute node cabinets
* 30 teraflop/s theoretical peak (Original 10,240 system – 63 Tflop/s)
Subsystems
* 2 front-end nodes
Memory
* Type – double data rate synchronous dynamic random access memory (DDR SDRAM)
* Per Processor (core) – 2GB
* Total Memory – 9TB
Interconnects
* NUMALink interconnected single-system image compute nodes
* Internode
o InfiniBand – 4x (Single Data Rate, Double Data Rate)
o 10Gb Ethernet LAN/WAN interconnect
o 1Gb Ethernet LAN/WAN interconnect
Storage
* Online – DataDirect Networks & LSI RAID, 1PB (raw)
o 1 SGI CXFS domains
o Local SGI XFS fileystems
* Archival – Attached to high-end computing SGI CXFS SAN filesystem
Operating Environment
* Operating system – SUSE Linux Enterprise
* Job Scheduler – PBS
* Compilers – Intel Fortran, C, SGI MPT
Rabu, 12 Oktober 2011
membuat database pada pascal
program penjualan;
uses crt ;
type
data=record
no,jumlah:integer;
nama_barang:string;
harga,harga_barang:real;
end;
var
rdata:array[1..100]of data;
filedata:file of data;
f:data;
nomor:integer;
datacari:string;
procedure judul;
begin
writeln(' KOPERASI MAHASISWA "KHARISMA KARAWANG"');
writeln(' jl. Pangkal Perjuangan KM.1 By Pass');
writeln(' KARAWANG');
writeln('******************************************************************');
writeln;
end;
procedure tambah;
var
i:integer;
lagi:char;
begin
clrscr;
judul;
writeln('Masukan data tambahan');
assign(filedata,'jual.dat');
reset(filedata);
seek(filedata,filesize(filedata));
write('Nama barang : ');
readln(f.nama_barang);
write('harga:');
readln(f.harga);
write('jumlah :');
readln(f.jumlah);
f.harga_barang:=f.harga*f.jumlah;
write(filedata,f);
close(filedata);
end;
procedure hapus;
var
i,j:integer;
nm:string;
begin
assign(filedata,'jual.dat');
reset(filedata);
j:=0;
while not Eof(filedata) do
begin
inc(j);
read(filedata,rdata[j]);
end;
writeln('Masukan nama barang yang di hapus :');
readln(nm);
i:=1;
while(i<=j)and (rdata[i].nama_barang<>nm) do
inc(i);
if nm=rdata[i].nama_barang then
begin
dec(j);
for i:=i to j do
rdata[i]:=rdata[i+1];
rewrite(filedata);
for i:=1 to j do
write(filedata,rdata[i]);
writeln(' Tekan enter untuk memulai menghapus');
readln;
writeln(' S U K S E S ');
end
else
writeln('MAAF data tidak di temukan ');
readln;
close(filedata);
end;
procedure edit_data;
var
i,p:integer;
lagi:char;
dataedit:string;
begin
assign(filedata,'jual.dat');
reset(filedata);
writeln('masukan nama data yang akan di edit [tulis dengan huruf kecil] : ');
readln(dataedit);
i:=1;
while not Eof(filedata) do
begin
read(filedata,rdata[i]);
begin
if dataedit = rdata[i].nama_barang then
begin
p:=filepos(filedata);writeln(p);
p:=p-1;
seek(filedata,p);
writeln('input data pengganti :');
writeln('no ',i:2);
write('nama barang :');read(rdata[p].nama_barang);
write('harga :');read(rdata[p].harga);
write('jumlah :');read(rdata[p].jumlah);
rdata[p].harga_barang:=rdata[p].harga*rdata[p].jumlah;
write(filedata,rdata[p]);
end ;
end;
i:=i+1;
end;
close(filedata);
end;
procedure in_data_barang;
var i:integer;
lagi:char;
begin
i:=1;
assign(filedata,'jual.dat');
rewrite(filedata);
reset(filedata);
begin
repeat
begin
clrscr;
judul;
writeln('input dengan huruf kecil');
writeln('no ',i);
write('nama barang :');readln(rdata[i].nama_barang);
write('harga :');readln(rdata[i].harga);
write('jumlah :');readln(rdata[i].jumlah);
rdata[i].harga_barang:=rdata[i].harga*rdata[i].jumlah;
write(filedata,rdata[i]);
writeln;
writeln('ingin masukan data lagi [y/t] : ');
readln(lagi);
i:=i+1;
end;
until ((lagi='t') or (lagi='T'));
close(filedata);
end;
end;
procedure tampil_daftar_barang;
var i:integer;
begin
assign(filedata,'jual.dat');
reset(filedata);
writeln('DAFTAR BARANG DI ATAS Rp 1.000.000 ');
writeln('=============================================================');
writeln('NO NAMA BARANG HARGA/S JUMLAH ');
writeln('=============================================================');
i:=1;
while not Eof(filedata) do
begin
read(filedata,rdata[i]);
if (rdata[i].harga)>=1000000 then
begin
write(i);
write(' ',rdata[i].nama_barang:10);
write(' ',rdata[i].harga:10:0);
write(' ',rdata[i].jumlah:2);
writeln;
i:=i+1;
end;
end;writeln;
end;
procedure cetak_daftar_barang;
var i,pilih:integer;
total:real;
begin
repeat
clrscr;
assign(filedata,'jual.dat');
reset(filedata);
total:=0;
begin
judul;
writeln('DAFTAR PENJUALAN ');
writeln('==========================================================================');
writeln('NO NAMA BARANG HARGA/S JUMLAH HARGA BARANG');
writeln('==========================================================================');
i:=1;
while not Eof(filedata) do
begin
read(filedata,rdata[i]);
write(i);
write(' ',rdata[i].nama_barang:10);
write(' ',rdata[i].harga:10:0);
write(' ',rdata[i].jumlah:2);
write(' ',rdata[i].harga_barang:8:0);
writeln;
total:=total+rdata[i].harga_barang;
i:=i+1;
end;
writeln('---------------------------------------------------------------------');
writeln(' TOTAL PENJUALAN ; ',total:3:0);
writeln;
writeln;
tampil_daftar_barang;
end;
writeln('-- Pilihan --');
writeln('**************************');
writeln('1. Tambah data penjualan');
writeln('2. Hapus data penjualan');
writeln('3. Edit data penjualan');
writeln('4. Ke MENU Utama');
writeln('**************************');
readln(pilih);
case pilih of
1:tambah;
2:hapus;
3:edit_data;
end;
until(pilih =4);
end;
procedure cari;
var
i,jumlah:integer;
cocok,nama:string;
harga,harga_barang:real;
begin
assign(filedata,'jual.dat');
reset(filedata);
cocok:=datacari;
begin
i:=1;
while not Eof(filedata)do
begin
read(filedata,rdata[i]);
if cocok=rdata[i].nama_barang then
begin
nama:=rdata[i].nama_barang;
harga:=rdata[i].harga;
jumlah:=rdata[i].jumlah;
harga_barang:=rdata[i].harga_barang;
end;
end;
i:=i+1;
end;
if(nama='')then
begin
writeln(' MAAF DATA TIDAK TERSEDIA')
end
else
begin
judul;
writeln('DAFTAR PENCARIAN ');
writeln('======================================================================');
writeln(' NAMA BARANG HARGA/S JUMLAH HARGA BARANG');
writeln('======================================================================');
writeln;
write(nama:10);
write( harga:35:0);
write(jumlah:8);
write(harga_barang:12:0);
writeln;
writeln('-------------------------------------------------------------------------');
writeln;
end;
nama:='';
harga:=0;
jumlah:=0;
harga_barang:=0;
end;
procedure cek_data_barang;
var
lagi:char;
begin
repeat
clrscr;
judul;
writeln('Masukan Nama Data yang di cari [tulis dengan huruf kecil] : ');
readln(datacari);
clrscr;
cari;
writeln('Apakah ingin mencari data lagi ? [y/ t] ');
readln(lagi);
writeln;
until (lagi='T')or (lagi='t');
end;
begin
repeat
clrscr;
judul;
writeln('-- MENU --');
writeln('************************');
writeln('1. IN DATA BARANG');
writeln('2. CEK DATA BARANG');
writeln('3. CETAK DAFTAR BARANG');
writeln('4. E X I T');
writeln('************************');
writeln;
writeln('Pilih Jenis Transaksi = ');
readln(nomor);
clrscr;
case nomor of
1:in_data_barang;
2:cek_data_barang;
3:cetak_daftar_barang;
end;
until nomor=4;
end.
uses crt ;
type
data=record
no,jumlah:integer;
nama_barang:string;
harga,harga_barang:real;
end;
var
rdata:array[1..100]of data;
filedata:file of data;
f:data;
nomor:integer;
datacari:string;
procedure judul;
begin
writeln(' KOPERASI MAHASISWA "KHARISMA KARAWANG"');
writeln(' jl. Pangkal Perjuangan KM.1 By Pass');
writeln(' KARAWANG');
writeln('******************************************************************');
writeln;
end;
procedure tambah;
var
i:integer;
lagi:char;
begin
clrscr;
judul;
writeln('Masukan data tambahan');
assign(filedata,'jual.dat');
reset(filedata);
seek(filedata,filesize(filedata));
write('Nama barang : ');
readln(f.nama_barang);
write('harga:');
readln(f.harga);
write('jumlah :');
readln(f.jumlah);
f.harga_barang:=f.harga*f.jumlah;
write(filedata,f);
close(filedata);
end;
procedure hapus;
var
i,j:integer;
nm:string;
begin
assign(filedata,'jual.dat');
reset(filedata);
j:=0;
while not Eof(filedata) do
begin
inc(j);
read(filedata,rdata[j]);
end;
writeln('Masukan nama barang yang di hapus :');
readln(nm);
i:=1;
while(i<=j)and (rdata[i].nama_barang<>nm) do
inc(i);
if nm=rdata[i].nama_barang then
begin
dec(j);
for i:=i to j do
rdata[i]:=rdata[i+1];
rewrite(filedata);
for i:=1 to j do
write(filedata,rdata[i]);
writeln(' Tekan enter untuk memulai menghapus');
readln;
writeln(' S U K S E S ');
end
else
writeln('MAAF data tidak di temukan ');
readln;
close(filedata);
end;
procedure edit_data;
var
i,p:integer;
lagi:char;
dataedit:string;
begin
assign(filedata,'jual.dat');
reset(filedata);
writeln('masukan nama data yang akan di edit [tulis dengan huruf kecil] : ');
readln(dataedit);
i:=1;
while not Eof(filedata) do
begin
read(filedata,rdata[i]);
begin
if dataedit = rdata[i].nama_barang then
begin
p:=filepos(filedata);writeln(p);
p:=p-1;
seek(filedata,p);
writeln('input data pengganti :');
writeln('no ',i:2);
write('nama barang :');read(rdata[p].nama_barang);
write('harga :');read(rdata[p].harga);
write('jumlah :');read(rdata[p].jumlah);
rdata[p].harga_barang:=rdata[p].harga*rdata[p].jumlah;
write(filedata,rdata[p]);
end ;
end;
i:=i+1;
end;
close(filedata);
end;
procedure in_data_barang;
var i:integer;
lagi:char;
begin
i:=1;
assign(filedata,'jual.dat');
rewrite(filedata);
reset(filedata);
begin
repeat
begin
clrscr;
judul;
writeln('input dengan huruf kecil');
writeln('no ',i);
write('nama barang :');readln(rdata[i].nama_barang);
write('harga :');readln(rdata[i].harga);
write('jumlah :');readln(rdata[i].jumlah);
rdata[i].harga_barang:=rdata[i].harga*rdata[i].jumlah;
write(filedata,rdata[i]);
writeln;
writeln('ingin masukan data lagi [y/t] : ');
readln(lagi);
i:=i+1;
end;
until ((lagi='t') or (lagi='T'));
close(filedata);
end;
end;
procedure tampil_daftar_barang;
var i:integer;
begin
assign(filedata,'jual.dat');
reset(filedata);
writeln('DAFTAR BARANG DI ATAS Rp 1.000.000 ');
writeln('=============================================================');
writeln('NO NAMA BARANG HARGA/S JUMLAH ');
writeln('=============================================================');
i:=1;
while not Eof(filedata) do
begin
read(filedata,rdata[i]);
if (rdata[i].harga)>=1000000 then
begin
write(i);
write(' ',rdata[i].nama_barang:10);
write(' ',rdata[i].harga:10:0);
write(' ',rdata[i].jumlah:2);
writeln;
i:=i+1;
end;
end;writeln;
end;
procedure cetak_daftar_barang;
var i,pilih:integer;
total:real;
begin
repeat
clrscr;
assign(filedata,'jual.dat');
reset(filedata);
total:=0;
begin
judul;
writeln('DAFTAR PENJUALAN ');
writeln('==========================================================================');
writeln('NO NAMA BARANG HARGA/S JUMLAH HARGA BARANG');
writeln('==========================================================================');
i:=1;
while not Eof(filedata) do
begin
read(filedata,rdata[i]);
write(i);
write(' ',rdata[i].nama_barang:10);
write(' ',rdata[i].harga:10:0);
write(' ',rdata[i].jumlah:2);
write(' ',rdata[i].harga_barang:8:0);
writeln;
total:=total+rdata[i].harga_barang;
i:=i+1;
end;
writeln('---------------------------------------------------------------------');
writeln(' TOTAL PENJUALAN ; ',total:3:0);
writeln;
writeln;
tampil_daftar_barang;
end;
writeln('-- Pilihan --');
writeln('**************************');
writeln('1. Tambah data penjualan');
writeln('2. Hapus data penjualan');
writeln('3. Edit data penjualan');
writeln('4. Ke MENU Utama');
writeln('**************************');
readln(pilih);
case pilih of
1:tambah;
2:hapus;
3:edit_data;
end;
until(pilih =4);
end;
procedure cari;
var
i,jumlah:integer;
cocok,nama:string;
harga,harga_barang:real;
begin
assign(filedata,'jual.dat');
reset(filedata);
cocok:=datacari;
begin
i:=1;
while not Eof(filedata)do
begin
read(filedata,rdata[i]);
if cocok=rdata[i].nama_barang then
begin
nama:=rdata[i].nama_barang;
harga:=rdata[i].harga;
jumlah:=rdata[i].jumlah;
harga_barang:=rdata[i].harga_barang;
end;
end;
i:=i+1;
end;
if(nama='')then
begin
writeln(' MAAF DATA TIDAK TERSEDIA')
end
else
begin
judul;
writeln('DAFTAR PENCARIAN ');
writeln('======================================================================');
writeln(' NAMA BARANG HARGA/S JUMLAH HARGA BARANG');
writeln('======================================================================');
writeln;
write(nama:10);
write( harga:35:0);
write(jumlah:8);
write(harga_barang:12:0);
writeln;
writeln('-------------------------------------------------------------------------');
writeln;
end;
nama:='';
harga:=0;
jumlah:=0;
harga_barang:=0;
end;
procedure cek_data_barang;
var
lagi:char;
begin
repeat
clrscr;
judul;
writeln('Masukan Nama Data yang di cari [tulis dengan huruf kecil] : ');
readln(datacari);
clrscr;
cari;
writeln('Apakah ingin mencari data lagi ? [y/ t] ');
readln(lagi);
writeln;
until (lagi='T')or (lagi='t');
end;
begin
repeat
clrscr;
judul;
writeln('-- MENU --');
writeln('************************');
writeln('1. IN DATA BARANG');
writeln('2. CEK DATA BARANG');
writeln('3. CETAK DAFTAR BARANG');
writeln('4. E X I T');
writeln('************************');
writeln;
writeln('Pilih Jenis Transaksi = ');
readln(nomor);
clrscr;
case nomor of
1:in_data_barang;
2:cek_data_barang;
3:cetak_daftar_barang;
end;
until nomor=4;
end.
Program Menghitung Gaji Pegawai pada Pascal
Program Menghitung Gaji Pegawai pada Pascal
uses crt;
type data=record
gol : string[3];
status : string[7];
j_anak : byte;
ta,ti,gaber,ppn:real;
gapok : longint;
id,nama:string;
end;
var d:array [1..100] of data;
p,a,b,c,e,i,f,j_anak:byte;
status : string;
gol : string[3];
ta,ti,gaber,ppn :real;
gapok : longint;
x,mau:char;
id :string[5];
procedure menu;
begin
writeln(' menu');
writeln('------------------------');
writeln(' 1.input');
writeln(' 2.edit');
writeln(' 3.hapus');
writeln(' 4.cetak');
writeln(' 5.keluar');
writeln('-----------------------');
write (' Masukkan Pilih Memu :');readln(p);
end;
procedure input;
begin
clrscr;
repeat
write('masukkan id anda :');readln(d[i].id);
if pos('1',d[i].id)=3 then
begin
d[i].gol:='1A';
end
else if pos('2',d[i].id)=3 then
begin
d[i].gol:='2B';
end
else
begin
d[i].gol:='3D';
end;
write('masukkan nama : ');readln(d[i].nama);
write('masukkan Status : ');readln(d[i].status);
write('masukkan Jumlah Anak : ');readln(d[i].j_anak);
if d[i].j_anak <= 3 then
begin
d[i].j_anak := d[i].j_anak;
end
else if d[i].j_anak > 3 then
begin
d[i].j_anak := 3;
end;
write('masih mau input [y/t]:');readln(mau);
inc(i)
until mau ='t';
end;
procedure edit;
begin
clrscr;
for a:=0 to i do
writeln(d[a].id ,' ',d[a].nama );
repeat
write('masukkan id :');readln(id);
for a:=0 to i do
begin
if (id=d[a].id) then
begin
d[a].nama:='';
write('masukkan nama:');readln(d[a].nama);
write('masukkan Status:');readln(d[a].status);
write('masukkan Jumlah Anak :');readln(d[a].j_anak);
end;
end;
write('masih mau edit [y/t]:');readln(mau);
until mau ='t';
end;
PROCEDURE hasil;
begin
for e:= 0 to i do
begin
if d[e].gol = '1A' then
begin
d[e].gapok := 750000;
end
else if d[e].gol = '2B' then
begin
d[e].gapok := 1256700;
end
else if d[e].gol = '3D' then
begin
d[e].gapok := 1669200;
end;
d[e].ti:=0.15 * d[e].gapok;
d[e].ta:=0.10 * d[e].gapok ;
d[e].ppn:=0.05 * d[e].gapok;
d[e].gaber:=d[e].gapok+d[e].ti+d[e].ta-d[e].ppn;
end;
inc(e)
end;
procedure hapus;
begin
clrscr;
for b:=0 to i do
writeln(d[b].id ,' ',d[b].nama );
repeat
write('masukkan id :');readln(id);
for b:=0 to i do
begin
if id=d[b].id then
begin
d[b].id:='';
d[b].nama:='';
d[b].gol:='';
d[b].status:='';
d[b].j_anak:=0;
d[b].gapok:=0;
d[b].ti:=0;
d[b].ta:=0;
d[b].ppn:=0;
d[b].gaber:=0;
writeln('data telah di hapus');
end;
end;
write('masih mau hapus [y/t]:');readln(mau);
until mau ='t';
end;
procedure cetak;
begin
for c := 0 to i do
clrscr;
hasil;
writeln('Perusahaan : PT.NAWAR (081158),Tbk. ');
writeln(' Jl.Merdeka No.45 ');
writeln(' Makassar_90245 ');
writeln('Tabel : Data Karyawan ');
writeln(' _____________________________________________________________________________');
writeln('| id | nama |gol| Status|nak| Gapok | T_istri | T_anak | PPn | Gaber |');
writeln('|-----------------------------------------------------------------------------');
for c:=0 to i-1 do
begin
gotoxy(1,8+c) ;writeln('|');
gotoxy(3,8+c);write( d[c].id);
gotoxy(8,8+c);write('|');
gotoxy(10,8+c);write(d[c].nama);
gotoxy(16,8+c);write('|');
gotoxy(18,8+c);write(d[c].gol );
gotoxy(20,8+c);write('|');
gotoxy(22,8+c);write( d[c].status );
gotoxy(28,8+c);write('|');
gotoxy(30,8+c);write( d[c].j_anak );
gotoxy(32,8+c);write('|');
gotoxy(34,8+c);write( d[c].gapok);
gotoxy(41,8+c);write('|');
gotoxy(43,8+c);write( d[c].ti:0:0 );
gotoxy(51,8+c);write('|');
gotoxy(53,8+c);write(d[c].ta:0:0);
gotoxy(61,8+c);write('|');
gotoxy(63,8+c);write(d[c].ppn:0:0);
gotoxy(69,8+c);write('|');
gotoxy(71,8+c);write(d[c].gaber:0:0);
gotoxy(79,8+c);writeln('|');
end;
writeln('|_____________________________________________________________________________|');
writeln
end;
begin
clrscr;
i:=0;
repeat
clrscr;
menu;
if p=1 then
input
else if p=2 then
edit
else if p=3 then
hapus
else if p=4 then
cetak
else
exit;
write('tekan x ke menu :');readln(x);
until x <>'x';
end.
uses crt;
type data=record
gol : string[3];
status : string[7];
j_anak : byte;
ta,ti,gaber,ppn:real;
gapok : longint;
id,nama:string;
end;
var d:array [1..100] of data;
p,a,b,c,e,i,f,j_anak:byte;
status : string;
gol : string[3];
ta,ti,gaber,ppn :real;
gapok : longint;
x,mau:char;
id :string[5];
procedure menu;
begin
writeln(' menu');
writeln('------------------------');
writeln(' 1.input');
writeln(' 2.edit');
writeln(' 3.hapus');
writeln(' 4.cetak');
writeln(' 5.keluar');
writeln('-----------------------');
write (' Masukkan Pilih Memu :');readln(p);
end;
procedure input;
begin
clrscr;
repeat
write('masukkan id anda :');readln(d[i].id);
if pos('1',d[i].id)=3 then
begin
d[i].gol:='1A';
end
else if pos('2',d[i].id)=3 then
begin
d[i].gol:='2B';
end
else
begin
d[i].gol:='3D';
end;
write('masukkan nama : ');readln(d[i].nama);
write('masukkan Status : ');readln(d[i].status);
write('masukkan Jumlah Anak : ');readln(d[i].j_anak);
if d[i].j_anak <= 3 then
begin
d[i].j_anak := d[i].j_anak;
end
else if d[i].j_anak > 3 then
begin
d[i].j_anak := 3;
end;
write('masih mau input [y/t]:');readln(mau);
inc(i)
until mau ='t';
end;
procedure edit;
begin
clrscr;
for a:=0 to i do
writeln(d[a].id ,' ',d[a].nama );
repeat
write('masukkan id :');readln(id);
for a:=0 to i do
begin
if (id=d[a].id) then
begin
d[a].nama:='';
write('masukkan nama:');readln(d[a].nama);
write('masukkan Status:');readln(d[a].status);
write('masukkan Jumlah Anak :');readln(d[a].j_anak);
end;
end;
write('masih mau edit [y/t]:');readln(mau);
until mau ='t';
end;
PROCEDURE hasil;
begin
for e:= 0 to i do
begin
if d[e].gol = '1A' then
begin
d[e].gapok := 750000;
end
else if d[e].gol = '2B' then
begin
d[e].gapok := 1256700;
end
else if d[e].gol = '3D' then
begin
d[e].gapok := 1669200;
end;
d[e].ti:=0.15 * d[e].gapok;
d[e].ta:=0.10 * d[e].gapok ;
d[e].ppn:=0.05 * d[e].gapok;
d[e].gaber:=d[e].gapok+d[e].ti+d[e].ta-d[e].ppn;
end;
inc(e)
end;
procedure hapus;
begin
clrscr;
for b:=0 to i do
writeln(d[b].id ,' ',d[b].nama );
repeat
write('masukkan id :');readln(id);
for b:=0 to i do
begin
if id=d[b].id then
begin
d[b].id:='';
d[b].nama:='';
d[b].gol:='';
d[b].status:='';
d[b].j_anak:=0;
d[b].gapok:=0;
d[b].ti:=0;
d[b].ta:=0;
d[b].ppn:=0;
d[b].gaber:=0;
writeln('data telah di hapus');
end;
end;
write('masih mau hapus [y/t]:');readln(mau);
until mau ='t';
end;
procedure cetak;
begin
for c := 0 to i do
clrscr;
hasil;
writeln('Perusahaan : PT.NAWAR (081158),Tbk. ');
writeln(' Jl.Merdeka No.45 ');
writeln(' Makassar_90245 ');
writeln('Tabel : Data Karyawan ');
writeln(' _____________________________________________________________________________');
writeln('| id | nama |gol| Status|nak| Gapok | T_istri | T_anak | PPn | Gaber |');
writeln('|-----------------------------------------------------------------------------');
for c:=0 to i-1 do
begin
gotoxy(1,8+c) ;writeln('|');
gotoxy(3,8+c);write( d[c].id);
gotoxy(8,8+c);write('|');
gotoxy(10,8+c);write(d[c].nama);
gotoxy(16,8+c);write('|');
gotoxy(18,8+c);write(d[c].gol );
gotoxy(20,8+c);write('|');
gotoxy(22,8+c);write( d[c].status );
gotoxy(28,8+c);write('|');
gotoxy(30,8+c);write( d[c].j_anak );
gotoxy(32,8+c);write('|');
gotoxy(34,8+c);write( d[c].gapok);
gotoxy(41,8+c);write('|');
gotoxy(43,8+c);write( d[c].ti:0:0 );
gotoxy(51,8+c);write('|');
gotoxy(53,8+c);write(d[c].ta:0:0);
gotoxy(61,8+c);write('|');
gotoxy(63,8+c);write(d[c].ppn:0:0);
gotoxy(69,8+c);write('|');
gotoxy(71,8+c);write(d[c].gaber:0:0);
gotoxy(79,8+c);writeln('|');
end;
writeln('|_____________________________________________________________________________|');
writeln
end;
begin
clrscr;
i:=0;
repeat
clrscr;
menu;
if p=1 then
input
else if p=2 then
edit
else if p=3 then
hapus
else if p=4 then
cetak
else
exit;
write('tekan x ke menu :');readln(x);
until x <>'x';
end.
Rogram Menghitung Pulsa Dengan Paskal
Program Menghitung_Pulsa;
Uses crt;
Var
detik : integer:
total : integer:
Begin
crlscr:
writeln(‘jumlah harga’);readln(detik);
total := detik * 10;
Wrteln (total harga=;total);
Readln;
End.
Membuat Procedure Menu Pada Pascal
Tugas Program Komputer
uses crt;
var L,K,s,a,t,p,y,r:real;
pilih:byte;
const phi=3.14;
procedure input_lingkaran;
begin
writeln (‘ini adalah sebuah program untuk menghitung luas dan keliling lingkaran’);
writeln (‘masukkan nilai r’);
readln (r);
end;
procedure input_segitiga;
begin
writeln(‘Menentukan Luas segitiga’);
write(‘Masukkan nilai alas :’);read(a);
write(‘Masukkan nilai tinggi :’);read(t);
end;
procedure input_persegipanjang;
begin
writeln(‘ Menentukkan Luas Persegi Panjang’);
write(‘Masukkan nilai panjang :’);read(p);
write(‘Masukkan nilai tinggi :’);read(y);
end;
procedure input_kubus;
begin
writeln(‘Menentukan Luas Kubus’);
write(‘Masukkan panjang sisi :’);read(s);
end;
procedure rumus_lingkaran;
begin
L:=3.14*r*r;
K:=2*3.14*r;
end;
procedure rumus_segitiga;
begin
L:=(a*t)/2;
end;
procedure rumus_persegipanjang;
begin
L:=p*y;
end;
procedure rumus_kubus;
begin
L:=6*s*s;
end;
procedure output_lingkaran;
begin
writeln (‘maka Luasnya adalah ‘);
writeln (L:2:2);
writeln (‘dan Kelilingnya adalah ‘);
writeln (K:2:2);
end;
procedure output_segitiga;
begin
write(‘Maka Luas Segitiganya adalah ‘);write(L:2:2);
end;
procedure output_persegipanjang;
begin
write(‘Maka Luas Persegi Panjang adalah ‘);write(L:2:2);
end;
procedure output_kubus;
begin
write(‘Maka Luas Kubusnya adalah ‘);write(L:2:2);
end;
procedure lingkaran;
begin
writeln;
input_lingkaran;
writeln;
rumus_lingkaran;
writeln;
output_lingkaran;
end;
procedure segitiga;
begin
writeln;
input_segitiga;
writeln;
rumus_segitiga;
writeln;
output_segitiga;
end;
procedure persegipanjang;
begin
writeln;
input_persegipanjang;
writeln;
rumus_persegipanjang;
writeln;
output_persegipanjang;
end;
procedure kubus;
begin
writeln;
input_kubus;
writeln;
rumus_kubus;
writeln;
output_kubus;
end;
begin
while true do
begin
writeln;
writeln;
clrscr;
write(‘***********************************************’);writeln;
write(‘***SELAMAT DATANG DI PROGRAM MENGHITUNG LUAS***’);writeln;
write(‘************* ROZAQ ACEWELL *************’);writeln;
write(‘************NIM : 2010.69.04.0062***************’);writeln;
write(‘***********************************************’);writeln;
write(‘=================== MENU ==================’);writeln;
write(’1. Lingkaran’);writeln;
write(’2. Segitiga’);writeln;
write(’3. Persegi Panjang’);writeln;
write(’4. Kubus’);writeln;
write(’5. Keluar’);writeln;
write(‘===============================================’);writeln;
pilih:=0;
while(pilih5) do
begin
write(‘ Silahkan pilih nomor : ‘);read(pilih);
if (pilih5) then
end;
case pilih of
1: lingkaran;
2: segitiga;
3: persegipanjang;
4: kubus;
5: exit;
end;
end;
end.
Komputer Generasi Kedua
Pada tahun 1948, penemuan transistor sangat mempengaruhi perkembangan komputer. Transistor menggantikan tabung ruang, akibatnya ukuran mesin-mesin elektrik berkurang drastis.
Transistor mulai digunakan di dalam komputer mulai pada tahun 1956. Penemuan lain yang berupa pengembangan memori inti-magnetik membantu pengembangan komputer generasi kedua yang lebih kecil, lebih cepat, lebih dapat diandalkan, dan lebih hemat energi dibanding para pendahulunya.
Mesin pertama yang memanfaatkan teknologi baru ini adalah superkomputer.
IBM membuat superkomputer bernama Stretch.
dan Sprery-Rand membuat komputer bernama LARC.
Komputer-komputer ini, yang dikembangkan untuk laboratorium energi atom, dapat menangani sejumlah besar data, sebuah kemampuan yang sangat dibutuhkan oleh peneliti atom. Mesin tersebut sangat mahal dan cenderung terlalu kompleks untuk kebutuhan komputasi bisnis, sehingga membatasi kepopulerannya. Hanya ada dua LARC yang pernah dipasang dan digunakan: satu di Lawrence Radiation Labs di Livermore, California, dan yang lainnya di US Navy Research and Development Center di Washington D.C.
Komputer generasi kedua menggantikan bahasa mesin dengan bahasa assembly. Bahasa assembly adalah bahasa yang menggunakan singkatan-singakatan untuk menggantikan kode biner.
Pada awal 1960-an, mulai bermunculan komputer generasi kedua yang sukses di bidang bisnis, di universitas, dan di pemerintahan. Komputer-komputer generasi kedua ini merupakan komputer yang sepenuhnya menggunakan transistor. Mereka juga memiliki komponen-komponen yang dapat diasosiasikan dengan komputer pada saat ini: printer, penyimpanan dalam disket, memory, sistem operasi, dan program.
Salah satu contoh penting komputer pada masa ini adalah IBM 1401 yang diterima secara luas di kalangan industri. Pada tahun 1965, hampir seluruh bisnis-bisnis besar menggunakan komputer generasi kedua untuk memproses informasi keuangan.
Program yang tersimpan di dalam komputer dan bahasa pemrograman yang ada di dalamnya memberikan fleksibilitas kepada komputer. Fleksibilitas ini meningkatkan kinerja dengan harga yang pantas bagi penggunaan bisnis. Dengan konsep ini, komputer dapat mencetak faktur pembelian konsumen dan kemudian menjalankan desain produk atau menghitung daftar gaji. Beberapa bahasa pemrograman mulai bermunculan pada saat itu. Bahasa pemrograman Common Business-Oriented Language (COBOL) dan Formula Translator (FORTRAN) mulai umum digunakan. Bahasa pemrograman ini menggantikan kode mesin yang rumit dengan kata-kata, kalimat, dan formula matematika yang lebih mudah dipahami oleh manusia. Hal ini memudahkan seseorang untuk memprogram dan mengatur komputer. Berbagai macam karir baru bermunculan (programmer, analyst, dan ahli sistem komputer). Industri piranti lunak juga mulai bermunculan dan berkembang pada masa komputer generasi kedua ini.
Pada masa ini juga mulai diperkenalkan minikomputer. Versinya yang pertama ialah DEC PDP 8 yang diciptakan pada tahun 1964 yang berguna untuk memproses data-data. Minikomputer ini diproduksi oleh Digital Equipment Corporation (DEC).
Langganan:
Postingan (Atom)