22.14
Unknown
Sahabat Kesunyian: E-BOOK FILSAFAT: Passwor MediaFire : irmantosaja ======================= DUNIA SOPHIE (Jostein Garder) Filsafat Ibnu Sina (Makalah) Pohon Filsafat (Ste...
Senin, 31 Desember 2012
Download Buku Gratis: Download Ebook The Tree of Philosophy - Pohon Fils...
Download Buku Gratis: Download Ebook The Tree of Philosophy - Pohon Fils...: Download Ebook Pohon Filsafat / Filsafat Mawas. Naskah Asli berjudul : The Tree of Philosophy karya Stephen Palmquis. Berminat untuk mendo...
Download Buku Gratis: Download Kumpulan Cerita Dewasa +18 Terlengkap
Download Buku Gratis: Download Kumpulan Cerita Dewasa +18 Terlengkap: Kumpulan ebook cerita dewasa Halaman yang menyediakan Kumpulan Ebook Cerita Dewasa +18 ini dibuat untuk berbagi ebok-ebok dengan materi...
Download Buku Gratis: Download The Year of Living Dangerously : Cinta di...
Download Buku Gratis: Download The Year of Living Dangerously : Cinta di...: The Years of Living Dangerously; Cinta di tengah gejolak Revolusi 1965 Buku Download The Year of Living Dangerously : Cinta di Tengah Gej...
Download Buku Gratis: Download Ebook Iblis Menggugat Tuhan
Download Buku Gratis: Download Ebook Iblis Menggugat Tuhan: ALKISAH, seorang pendeta bernama Buhairah menarik diri dari gereja dan memutuskan hidup menyepi. Dalam kesendiriannya, dia menenggelamkan di...
Download Buku Gratis: Download Novel Musashi
Download Buku Gratis: Download Novel Musashi: novel kisah tentang seorang samurai di jepang, Miyamoto Musashi, pada abad pertengahan, ia bernama asli Shinmen Takezo, setelah banyak ...
Download Buku Gratis: Download Ebook Doed Joesoef: Emak
Download Buku Gratis: Download Ebook Doed Joesoef: Emak: Emak karya Daoed Joesoef Novel ini, menghilangkan dahaga anda akan karya sastra yang memukau, dramatis tapi tidak cengeng. Nuansa pedes...
Download Buku Gratis: Download Di Atas Sajadah Cinta
Download Buku Gratis: Download Di Atas Sajadah Cinta: Kisah tentang percintaan zahid seorang pemuda kufah yang sholeh dengan Afirah yang hidupnya penuh glamor, ayah Afirah menolak pinangan Za...
Download Buku Gratis: Download Novel Sebelas Patriot Karya Terbaru Andre...
Download Buku Gratis: Download Novel Sebelas Patriot Karya Terbaru Andre...: Download SEBELAS PATRIOT Sebelas Patriot adalah novel karya Andrea Hirata yang bercerita tentang persepakbolaan. Sepertinya peluncuran No...
Sabtu, 15 Desember 2012
Algoritma Hidup: kiamat 2012 ?
Algoritma Hidup: kiamat 2012 ?: Kiamat ... ? kapan itu terjadi ...... Kiamat teroi Ilahi Ramalan terjadinya kiamat pada 2012 dari suku Maya sebenarnya belum diket...
Minggu, 09 Desember 2012
Sabtu, 08 Desember 2012
tugas 8 pascal
uses crt;
var
i,n:byte;
no:array[1..100] of string;
nim_12012739:array[1..100] of string;
nama:array[1..100] of string;
alamat:array[1..100] of string;
umur:array[1..100] of integer;
jawab:string;
label tampil, keluar, input;
begin
textbackground(blue);
clrscr;
//inputan
textcolor(yellow);
input:
writeln('*=======================*');
writeln('| BIODATA MAHASISWA |');
writeln('*=======================*');
writeln;
write('Masukan Jumlah data = '); readln(n);
writeln;
for i:=1 to n do
begin
write('NO = ');
readln(no[i]);
write('NIM = ');
readln(nim_12012739[i]);
write('NAMA = ');
readln(nama[i]);
write('ALAMAT = ');
readln(alamat[i]);
write('UMUR = ');
readln(umur[i]);
writeln;
end;
writeln;
//cara menampilkan (output)
write('apakah anda ingin menampilkan data sebelumnya ? (Y/T) ');
readln(jawab);
if (jawab='y') or (jawab='Y') then
begin
writeln;
for i:=1 to n do
begin
writeln('Biodata Mahasiswa ke = ',no[i]);
writeln('Nim = ',nim_12012739[i]);
writeln('Nama = ',nama[i]);
writeln('Alamat = ',alamat[i]);
writeln('Umur = ',umur[i]);
writeln;
end;
readln;
end
else goto tampil;
tampil:
write('Anda ingin keluar dari sistem ? (Y/T) ');
readln(jawab);
if (jawab='y') or (jawab='Y') then
goto keluar
else
goto input;
keluar:
end.
var
i,n:byte;
no:array[1..100] of string;
nim_12012739:array[1..100] of string;
nama:array[1..100] of string;
alamat:array[1..100] of string;
umur:array[1..100] of integer;
jawab:string;
label tampil, keluar, input;
begin
textbackground(blue);
clrscr;
//inputan
textcolor(yellow);
input:
writeln('*=======================*');
writeln('| BIODATA MAHASISWA |');
writeln('*=======================*');
writeln;
write('Masukan Jumlah data = '); readln(n);
writeln;
for i:=1 to n do
begin
write('NO = ');
readln(no[i]);
write('NIM = ');
readln(nim_12012739[i]);
write('NAMA = ');
readln(nama[i]);
write('ALAMAT = ');
readln(alamat[i]);
write('UMUR = ');
readln(umur[i]);
writeln;
end;
writeln;
//cara menampilkan (output)
write('apakah anda ingin menampilkan data sebelumnya ? (Y/T) ');
readln(jawab);
if (jawab='y') or (jawab='Y') then
begin
writeln;
for i:=1 to n do
begin
writeln('Biodata Mahasiswa ke = ',no[i]);
writeln('Nim = ',nim_12012739[i]);
writeln('Nama = ',nama[i]);
writeln('Alamat = ',alamat[i]);
writeln('Umur = ',umur[i]);
writeln;
end;
readln;
end
else goto tampil;
tampil:
write('Anda ingin keluar dari sistem ? (Y/T) ');
readln(jawab);
if (jawab='y') or (jawab='Y') then
goto keluar
else
goto input;
keluar:
end.
Kamis, 06 Desember 2012
Engineering = boring, think again !!!
Kuliah di Teknik - bosen?
Kuliah di Teknik - males, banyak itungannya
Kuliah di Teknik - capek, banyak praktikumnya
Kuliah di Teknik – puyeng, banyak istilah yang gak dimengerti
Jika
itu yang ada di pikiran temen-temen saat ini, maka harus dikaji lagi
pengertian dan metode belajar kalian di dunia engineering
Mahasiswa
sekarang, STMI khususnya, menurut pendapat saya terlalu mengikuti
metode pembelanjaran yang sudah tidak adaptif. Mengapa saya bilang tidak
adaptif, karena sebagian besar terlalu bergantung untuk mencari ilmu
hanya dari dosen. Sesekali menyentuh dunia luar, itupun karena tugas
yang diberikan dari dosen, dosen masih menjadi dewa pemberi ilmu.yaah,
seperti itulah pendapat saya.:p
Hal ini yang melatar belakangi akhirnay mengapa kita memiliki paradigm diatas “Jurusan
teknik membosankan”. Sedikit tapi pasti saya coba berbagi kepada
temen-temen agar bisa merubah paradigma seperti diatas..
Semakin pula disadari bahwa setiap mahasiswa memiliki gaya belajar yang berbeda. Oleh karena itu perlu dikaji bagaimana metode belajar yang pas bagi pribadi kita..
Selain itu, dari sisi dosen, juga sebaiknya tidak berhak untuk merampas hak mahasiswa untuk belajar untuk belajar [learning how to learn]. Jangan lagi dicekoki, pasif.
Saya tidak menekankan mahasiswa untuk semuanya menjadi aktif,
tapi cobalah bandingkan apa yang kita terima dari dosen dengan
perkembangan yang terjadi di kenyatan dunia industry. Perbanyak
referensi dan diskusi. Meski terdengar sangat rumit, tapi perlahan jika
dijalani, pasti bermanfaat.
Di tambah lagi, industri tempat mahasiswa nantinya bekerja sangat menekankan perlunya soft skills. Kemampuan untuk bekerja bersama orang lain.
Di
beberapa mata kuliah yg pernah saya ampu, saya coba lakukan inovasi
agar tidak membosankan, menyisipkan materi-materi soft skills seperti
kepemimpinan, inovasi dan risk taking. Inilah di antaranya: 
Secara
umum, konsep yang digunakan dalam pengembangan metode pembelajaran
inovatif ini adalah Kolb’s experiential learning. Intinya, mahasiswa
akan senang melakukan sesuatu dan merefleksikan pengalaman pribadinya.
Belajar dari pengalaman.
Sesuai dengan pepatah dari timur:
Tell me then I will forget
Show me then I will remember
Involve me then I will understand
Ciptakan Rasa Takut yang Tumbuhkan Keberanian
Hanya takut kepada Allah, yang mampu menumbuhkan keberanian kepada makhluk
Apa yang terjadi beberapa abad silam, juga melanda manusia masa kini, yang hidup di zaman modern, di mana ilmu pengetahuan dan teknologi berkembang pesat. Sayangnya, tak jarang orang memanfaatkan kemajuan ini, justru untuk menghilangkan ataupun mengelabuhi ketakutannya; baik itu ketakutan akan kehilangan jabatan, harta, martabat, dan lain sebagainya.
Sebagai contoh, kejahatan kerah putih dan tindak pidana korupsi, akan melakukan segala hal untuk menjaga nama baiknya. Dengan hasil korupsi, bisa saja dia “memesan” hukum pada sang hakim, bak memesan makanan/minuman di restoran. Tinggal menelpon, kemudian memilih keputusan macam apa yang dikehendaki. Bahkan, bisa saja media massa “dibeli” untuk mengelabuhi masyarakat akan kebobrokkan yang telah dilakukannya.
Terhadap pidana kasus pornografi/pornoaksi, misalnya, sebagaimana yang sedang berkembang saat ini, “si pelaku” akan mencoba sekuat tenaga untuk menepis segala tuntutan yang datang. Mediapun didatangkan, untuk mengklarifikasi bahwa ia sedang difitnah, sebagai korban. Padahal, bukti-bukti telah ‘berbicara’, bahwa ia adalah pelakunya. Rasa takut akan hilangnya kehormatan, popularitas atau nama baik, memungkin seseorang melakukan segala cara.
Tentu saja ketakutan macam ini, merupakan ketakutan yang dilarang, sebagaimana sabda Rosulullah, “Rasa takut terhadap seseorang jangan sampai menghalangimu untuk mengatakan apa sebenarnya jika memang benar kamu melihatnya, menyaksikan atau mendengarnya.” (H.R. Ahmad)
Pada intinya, seringkali ketakutan seseorang terhadap sesuatu, menyebabkan dia menjadi pengecut, pecundang, pembohong, kerdil dan lain-lain. Takut semacam ini, merupakan jenis takut yang negatif, yang akan membawa pelakunya kepada keresahan hidup. Padahal, tidak seharusnya sifat takut tersebut, menjadi penyebab keterpurukannya, bahkan, sejatinya, justru dari rasa takut itulah, timbul keberanian, yang menyebabkan orang lain segan terhadap nya, sekalipun dia tidak menakut-nakuti mereka. Dan hal itu akan terwujud, manakala orang tersebut mampu memposisikan sifat takutnya sesuai dengan apa yang telah menjadi ketetapan Allah.
Dan menetapkan takut semata-mata kepada-Nya (Allah) adalah kunci dari itu semua. Sebagaimana yang disabdakan Rosulullah, “Barang siapa yang takut kepada Allah, maka ia pun akan ditakuti oleh segala sesuatu. Dan barang siapa yang takut kepada selain Allah, maka ia pun akan takut kepada segala sesuatu.”
Abu Al-Qasim Al-Hakim berujar, “Barang siapa yang takut kepada sesuatu maka ia akan lari dari padanya. Dan barang siapa yang takut kepada Allah, maka ia akan mendekati-Nya.”
Takut yang melindungi keburukan
Setali tiga uang, bisa kita simpulkan, bahwa kasus-kasus yang telah dipaparkan di atas, tidak lain itu karena dilandasi ketakutan sesama makhluk. Karenanya, kemaksiatan, perilaku dosa semarak terjadi, untuk menutupinya. Sedangkan ketakutan kepada Allah, justru akan menghantarkan manusia kepada kebaikkan amal. Al-Fadhil Ibnu ‘Iyadh berkata, “Barang siapa yang takut kepada Allah, maka ketakutan itu akan menghantarkannya kepada kebaikkan.”.
Contoh kongkrit akan hal tersebut, bahwa takut kepada Allah, mampu menumbuhkan keberanian kepada makhluk, dan mengarahkan kepada kebaikan, bisa kita lihat pada sosok Nabi Yusuf ‘Alaihi wassalam, ketika beliau menolak rayuan Zulaikha untuk berbuat zina. Ketakutan kepada Allah, telah melindunginya dari keburukan.
Begitu pula dengan Rosulullah. Ketakutan seorang hamba kepada Tuhannya yang tertancap begitu dalam, telah menumbuhkan keberanian beliau untuk menantang larangan para pemuka Quraisy untuk menyebarkan agama hanif ini, sekalipun mereka mengancam dengan berbagai ancaman, “Wahai paman, sekalipun mereka mampu meletakkan matahari di tanganku, sekali-kali tidak akan pernah kutinggalkan dakwah ini”, jawab beliau dengan tegas.
Timbulnya rasa takut macam ini, tidak serta merta bisa kita munculkan seketika. Butuh proses menuju kesana. Layaknya seseorang yang takut terhadap sesuatu, tidak lain dikarenakan dia telah mengetahui bahwa sesuatu tersebut memang patut ditakuti, baik itu karena dia memiliki kekuatan, ataupun kekuasaan. Semakin jauh dia mengetahui hal tersebut, dan semakin menyadari kelemahannya, maka semakin menjadi-jadilah rasa takut itu bersemayam dalam dirinya.
Begitu pula prihalnya dalam menumbuhkan rasa takut kepada Allah. Semakin kita mengenal akan kekuasaan dan keperkasaan-Nya, dan mengenal ketidak berdayaan diri tanpa karunia-Nya, maka ketakutan kita akan semakin berlipat ganda.
Sebaliknya, ketidaktahuan kita kepada Allah, akan menjadikan kita ingkar kepada-Nya, yang kemudian akan melahirkan penentangan terhadap-Nya. Allah berfirman, “Sesungguhnya yang takut kepada Allah di antara hamba-hamba-Nya, hanyalah ulama . Sesungguhnya Allah Maha Perkasa lagi Maha Pengampun.” (Faathir: 28).
Sedangkan dalam hadits yang diriwayatkan oleh Bukhari, Muslim dan Ahmad, Rosulullah bersabda, “Demi Allah sesungguhnya aku adalah orang yang paling mengetahui tentang Allah dan aku juga orang yang paling takut kepada-Nya.”
Sejalan dengan surat dan hadits di atas, ada seseorang yang berkata kepada imam As-Sya’bi, “Wahai alim, sesungguhnya seorang alim itu adalah orang yang takut kepada Allah”.. Ada pula pepatah yang mengatakan, “Bukanlah seorang penakut itu adalah orang yang menangis kemudian mengusap kedua matanya. Yang dimaksud dengan penakut adalah orang yang meninggalkan sesuatu yang ia khuatir akan menerima ‘ikob (hukuman) dari Allah lantaran sesuatu tersebut”.
Dari sini, kita bisa mengambil benang merah, bahwa ketakutan kepada Allah akan kita peroleh dengan mengenal-Nya lebih dalam. Dan yang perlu dicamkan, bahwa takut kepada Allah merupakan salah satu bukti keimanan kita kepada-Nya, yang menuntut kita menjalankan semua perintahnya, dan menjauhi larangan-larangan-nya. Dan sungguh termasuk orang yang menentang Allahlah, mereka yang mengaku-ngaku takut kepada Allah, namun, mereka menyoalkan, meragukan keabsahan perintah-perintah ataupun larangan-larangan-Nya yang telah termaktub dalam Al-Quran ataupun As-Sunnah.
Firman Allah, “Sesungguhnya orang-orang yang berhati-hati karena takut akan (azab) Tuhan mereka (57) Dan orang-orang yang beriman dengan ayat-ayat Tuhan mereka (58) Dan orang-orang yang tidak mempersekutukan dengan Tuhan mereka (sesuatu apapun),(59) Dan orang-orang yang memberikan apa yang telah mereka berikan, dengan hati yang takut, (karena mereka tahu bahwa) sesungguhnya mereka akan kembali kepada Tuhan mereka (60) mereka itu bersegera untuk mendapat kebaikan-kebaikan, dan merekalah orang-orang yang segera memperolehnya (61).” (Al-Mukminun: 57-61)
Akhirnya, mari kita berdo’a, semoga Allah menetapkan kita termasuk orang-orang yang hanya memiliki rasa takut terhadap-Nya, sebagaimana rasa takut yang telah dimiliki oleh para nabi dan rosul serta sahabat-sahabat mereka, sehingga kita termasuk dari golongan mereka. Amien, amien yaa rabbal ‘aalamien. Wallahu ‘alam bis-shawab.
[Robin S/hidayatullah.com]
donie punya blog: layout buletin super gaul :p
donie punya blog: layout buletin super gaul :p: yak,, layout2 d atas tuh contoh buletin yang gue bikin buat tugas yang di kasih sama korpus... hahaha dari yang masih semangat sampe yang ...
Minggu, 02 Desember 2012
Jumat, 30 November 2012
Tugas Ke-6 Pascal
soal 2
uses crt;
var
i,j,k : byte;
begin
clrscr;
write('Masukan angka = '); readln(k);
for i := k downto 1 do
begin
textcolor(j);
for j := i downto 1 do
write(j,' ');
writeln;
end;
readln;
end.
soal 3
uses crt;
var
i,j,k,l,m : byte;
begin
clrscr;
write('Masukan Jumlah Ayam (10) = '); readln(j);
writeln;
textcolor(j);
repeat
i:=j-1;
writeln('10 ayam mati 1 tinggal',' ',i);
until i<10;
repeat
k:=i-2;
writeln('9 ayam mati 2 tinggal',' ',k);
until k<9 ;
repeat
l:=k-3;
writeln('7 ayam mati 3 tinggal',' ',l);
until l<7 ;
repeat
m:=l-4;
writeln('4 ayam mati 4 tinggal',' ',m);
until m<4 ;
readln;
end.
uses crt;
var
i,j,k : byte;
begin
clrscr;
write('Masukan angka = '); readln(k);
for i := k downto 1 do
begin
textcolor(j);
for j := i downto 1 do
write(j,' ');
writeln;
end;
readln;
end.
soal 3
uses crt;
var
i,j,k,l,m : byte;
begin
clrscr;
write('Masukan Jumlah Ayam (10) = '); readln(j);
writeln;
textcolor(j);
repeat
i:=j-1;
writeln('10 ayam mati 1 tinggal',' ',i);
until i<10;
repeat
k:=i-2;
writeln('9 ayam mati 2 tinggal',' ',k);
until k<9 ;
repeat
l:=k-3;
writeln('7 ayam mati 3 tinggal',' ',l);
until l<7 ;
repeat
m:=l-4;
writeln('4 ayam mati 4 tinggal',' ',m);
until m<4 ;
readln;
end.
Rabu, 14 November 2012
Mendesain blogger: Cara meletakkan Background Gambar Di Belakang Tuli...
Mendesain blogger: Cara meletakkan Background Gambar Di Belakang Tuli...: Nah anda bisa lihat bukan pada artikel atau post kali ini,saya akan menerangkan cara memasukan foto kita sendiri kedalam belakang tulisan po...
Selasa, 13 November 2012
Mendesain blogger: Mendesain Blogger
Mendesain blogger: Mendesain Blogger: Disini Saya akan menjelaskan semua apa saja untuk dapat mempercantik blog anda dengan cara mendesainnya sendiri. Bagi Anda yang telah m...
Sabtu, 10 November 2012
Jumat, 09 November 2012
Tugas 5
program percabangan;
uses crt;
var
nim,nama,kls: string;
n : byte;
begin
textbackground(blue);
clrscr;
textcolor(yellow);
writeln('*================================*');
writeln('|=====Input Data Nilai Ujian=====|');
writeln('*================================*');
writeln;
write('NIM = '); readln(nim);
write('Nama = '); readln(nama);
write('Kelas = '); readln(kls);
write('Masukan Nilai = '); readln(n);
writeln;
if n>=90 then
write('Nilai Anda = A')
else if n>=70 then
write('Nilai Anda = B')
else if n>=60 then
write('Nilai Anda = C')
else if n>=45 then
write('Nilai Anda = D')
else
writeln('Nilai Anda Kosong');
readln;
writeln;
textcolor(white); writeln('Tugas 5,i,12012739,Misbahul Munir');
readln;
end.
uses crt;
var
nim,nama,kls: string;
n : byte;
begin
textbackground(blue);
clrscr;
textcolor(yellow);
writeln('*================================*');
writeln('|=====Input Data Nilai Ujian=====|');
writeln('*================================*');
writeln;
write('NIM = '); readln(nim);
write('Nama = '); readln(nama);
write('Kelas = '); readln(kls);
write('Masukan Nilai = '); readln(n);
writeln;
if n>=90 then
write('Nilai Anda = A')
else if n>=70 then
write('Nilai Anda = B')
else if n>=60 then
write('Nilai Anda = C')
else if n>=45 then
write('Nilai Anda = D')
else
writeln('Nilai Anda Kosong');
readln;
writeln;
textcolor(white); writeln('Tugas 5,i,12012739,Misbahul Munir');
readln;
end.
Tugas 4
program biodata;
uses crt;
var
a,b:string;
c,d:integer;
begin
textbackground(11); {background colour}
clrscr;
textbackground(96);
textcolor(128);
writeln('-----------------------------------');
writeln('-------- BIODATA MAHASISWA --------');
writeln('-----------------------------------');
writeln;
write('NIM = '); readln(a);
write('Nama = '); readln(b);
write('Tahun Lahir = '); readln(c);
d:=2012 - c;
writeln('Umur Anda = ',d,' ','tahun'); readln;
writeln;
writeln('Tugas Ke-4,i,12012739,Misbahul Munir');
readln;
end.
uses crt;
var
a,b:string;
c,d:integer;
begin
textbackground(11); {background colour}
clrscr;
textbackground(96);
textcolor(128);
writeln('-----------------------------------');
writeln('-------- BIODATA MAHASISWA --------');
writeln('-----------------------------------');
writeln;
write('NIM = '); readln(a);
write('Nama = '); readln(b);
write('Tahun Lahir = '); readln(c);
d:=2012 - c;
writeln('Umur Anda = ',d,' ','tahun'); readln;
writeln;
writeln('Tugas Ke-4,i,12012739,Misbahul Munir');
readln;
end.
Tugas 3
1. Luas Balok
program luas_balok;
uses crt;
var
luas,p,l,t : integer;
begin
clrscr;
writeln('---------------------------------------');
writeln('-----Program Menghitung Luas Balok-----');
writeln('---------------------------------------');
writeln;
write('Masukan Nilai panjang = '); readln(p);
write('Masukan Nilai lebar = '); readln(l);
write('Masukan Nilai Tinggi = '); readln(t);
luas:=2*(p*l)+(p*t)+(l*t);
writeln('Luas Balok = ',luas);
writeln;
write('Tugas 3, Misbahul Munir, Kelas i');
readln;
end.
2. Luas Segitiga
program luas_segitiga;
uses crt;
var
a,t : integer;
luas : real;
begin
clrscr;
writeln('------------------------------------------');
writeln('-----Program Menghitung Luas Segitiga-----');
writeln('------------------------------------------');
writeln;
write('Masukan Nilai Alas = '); readln(a);
write('Masukan Nilai Tinggi = '); readln(t);
luas:=0.5*a*t;
writeln('Luas Segitiga = ',round(luas));
writeln;
write('Tugas 3, Misbahul Munir, Kelas i');
readln;
end.
3. Luas Tabung
program luas_tabung;
uses crt;
var
p,r,t : integer;
luas: real;
begin
clrscr;
writeln('----------------------------------------');
writeln('-----Program Menghitung Luas Tabung-----');
writeln('----------------------------------------');
writeln;
write('Masukan Nilai phi = '); readln(p);
write('Masukan Nilai jari-jari = '); readln(r);
write('Masukan Nilai Tinggi = '); readln(t);
luas:=2*p*r*(r+t);
writeln('Luas Tabung = ',luas:0:2);
writeln;
write('Tugas 3, Misbahul Munir, Kelas i');
readln;
end.
program luas_balok;
uses crt;
var
luas,p,l,t : integer;
begin
clrscr;
writeln('---------------------------------------');
writeln('-----Program Menghitung Luas Balok-----');
writeln('---------------------------------------');
writeln;
write('Masukan Nilai panjang = '); readln(p);
write('Masukan Nilai lebar = '); readln(l);
write('Masukan Nilai Tinggi = '); readln(t);
luas:=2*(p*l)+(p*t)+(l*t);
writeln('Luas Balok = ',luas);
writeln;
write('Tugas 3, Misbahul Munir, Kelas i');
readln;
end.
2. Luas Segitiga
program luas_segitiga;
uses crt;
var
a,t : integer;
luas : real;
begin
clrscr;
writeln('------------------------------------------');
writeln('-----Program Menghitung Luas Segitiga-----');
writeln('------------------------------------------');
writeln;
write('Masukan Nilai Alas = '); readln(a);
write('Masukan Nilai Tinggi = '); readln(t);
luas:=0.5*a*t;
writeln('Luas Segitiga = ',round(luas));
writeln;
write('Tugas 3, Misbahul Munir, Kelas i');
readln;
end.
3. Luas Tabung
program luas_tabung;
uses crt;
var
p,r,t : integer;
luas: real;
begin
clrscr;
writeln('----------------------------------------');
writeln('-----Program Menghitung Luas Tabung-----');
writeln('----------------------------------------');
writeln;
write('Masukan Nilai phi = '); readln(p);
write('Masukan Nilai jari-jari = '); readln(r);
write('Masukan Nilai Tinggi = '); readln(t);
luas:=2*p*r*(r+t);
writeln('Luas Tabung = ',luas:0:2);
writeln;
write('Tugas 3, Misbahul Munir, Kelas i');
readln;
end.
Tugas 2
TIPE data
Tipe
data yang dikenal dalam bahasa pascal antara lain :
·
Tipe data sederhana
/ Jenis data yang standar (Dasar)
1. Integer
2. Real
3. Karakter
4. Boolean
·
Tipe data non
standar (user defined)
1.
Enumerated
2. Sub-range
·
Tipe data berstuktur
1.
Array
2.
Record
3. dll
INTEGER
Jenis
data ini merupakan nilai bilangan bulat, yang
terdiri atas integer positif, integer negatif dan nol. Pada TURBO PASCAL
jenis data ini di bagi atas beberapa bagian.
(lihat tabel 1)
Tabel
1. Jenis data integer
|
Tipe
|
Ukuran memori
(dalam byte)
|
Jangkauan nilai
|
|
BYTE
|
1
|
0..255
|
|
SHORTINT
|
1
|
-128..127
|
|
INTEGER
|
2
|
-32768..32767
|
|
WORD
|
2
|
0..65535
|
|
LONGINT
|
4
|
-2147483648..2147483647
|
Operator
Integer terdiri atas : + , - , * , DIV
dan MOD
|
REAL
Penulisan
untuk jenis data ini selalu menggunakan titik desimal. Nilai konstanta numerik
real berkisar dari 1E-38 sampai dengan 1E+38 dengan mantissa yang signifikan
sampai dengan 11 digit. E menunjukkan nilai 10 pangkat. Nilai konstanta numerik
real menempati memori sebesar 6 byte.
Contoh
:
123.45
12345. ® salah, titik desimal tidak boleh
dibelakang
12E5
12E+5
-12.34
.1234 ® salah, titik desimal tidak boleh
dimuka
Pada TURBO PASCAL, jenis data ini dibedakan (
lihat tabel 2.)
Tabel
2. Jenis data Real
|
Tipe
|
Ukuran memori
(dalam byte)
|
Jangkauan nilai
|
Digit signifikan
|
|
SINGLE
|
4
|
1.5x10E-45 .. 3.4x10E38
|
7-8
|
|
DOUBLE
|
8
|
5.0x10E-324 .. 1.7x10E308
|
15-16
|
|
EXTENDED
|
10
|
1.9x10E-4951 .. 1.1x10E4932
|
19-20
|
|
COMP
|
8
|
-2E+63+1 .. 2E+63-1
|
19-20
|
Operator
untuk jenis data ini terdiri atas : + , - , * dan /
KARAKTER
Yang
dimaksud dengan jenis data ini adalah karakter tunggal atau sebuah karakter
yang ditulis diantara tanda petik tunggal, seperti misalnya ‘A’, ’a’, ’!’, ’5’
dsb.
Dasarnya
adalah ASCII CHARACTER SET.
Misalnya
: 032 pada tabel ASCII CHARACTER SET menunjukkan karakter.
Blank.
033 !
048 0
076
L
Dst
STRING
Nilai
data string merupakan urut-urutan dari karakter yang terletak di antara tanda
petik tunggal. Nilai data string akan menenpati memori sebesar banyaknya
karakter stringnya ditambah dengan 1 byte. Bila panjang dari suatu string di
dalam deklarasi variabel tidak disebutkan, maka dianggap panjangnya adalah 255
karakter.
Contoh
:
|
BOOLEAN
Jenis
data ini mempunyai nilai TRUE atau FALSE.
Operator
untuk jenis data ini adalah :
1. Logical
Operator, yaitu : NOT, AND dan OR
2. Relational
Operator, yaitu : >, <, >=, <=, <> dan =
JENIS DATA
NON-STANDARD (USER DEFINED)
ENUMERATED.
Jenis
data ini terdiri atas barisan identifier yang terurut dimana setiap identifier
tersebut dianggap sebagai suatu individual data item (elemen data yang berdiri
sendiri).
Pada
saat mendeklarasikan jenis data ini kita harus menuliskan semua
elemen-elemennya.
Bentuk
umum deklarasinya adalah :
TYPE nama =
(data_item_1, data_item_2, ……., data_item_n);
Contoh
:
TYPE
hari = (sen,sel,rab,kam,jum,sab,ming);
TYPE
warna = (red,blue,green,yellow,black,white);
Setelah
jenis data ini dideklarasikan, maka selanjutnya kita dapat mendeklarasikan
suatu variabel yang berjenis data sama dengan jenis data ini.
Misalnya
:
TYPE nama_hari =
(sen,sel,rab,kam,jum,sab,ming);
VAR libur : nama_hari;
Fungsi
standar yang dapat digunakan pada jenis data ini adalah :
PRED,
SUCC dan ORD
Misalnya
:
PRED
(sel) = sen
SUCC
(sen) = sel
ORD
(sen) = 0
ORD
(sel) = 1
dsb
SUB-RANGE.
Jenis
data ini berupa range dari suatu kumpulan data yang mempunyai urutan..
Bentuk
umum deklarasinya adalah :
TYPE nama = data_item_pertama ..
data_item_terakhir;
Contoh
:
|
TIPE DATA
BERSTRUKTUR.
ARRAY.
Array adalah tipe data terstruktur yang terdiri dari
sejumlah komponen-komponen yang mempunyai tipe yang sama.
Array dapat bertipe data sederhana seperti : byte, word,
interger, real, boolean, char, string dan tipe data scalar atau subrange. Tipe
larik mengartikan isi dari larik atau komponen-komponennya mempunyai nilai
dengan tipe data tersebut.
Contoh :
|
RECORD.
Tipe data record merupakan tipe data terstruktur. Dalam
penggunaan tipe data record dapat dikumpulkan beberapa item data yang
masing-masing mempunyai tipe data berbeda-beda. Record dapat berisi beberapa
field untuk subyek tertentu.
Deklarasi record
Diawali kata cadangan
Record, lalu di ikuti daftar field dan di akhri kata cadangan end;
Contoh :
|
