Visual Basic .NET merupakan pengembangan dari Microsoft Visual Basic 6, B.NET selain menggunakan .NET Framework yang kaya akan pustaka. Secara sederhana Visual Studio .NET menyediakan area atau lingkungan pengembangan terintegrasi atau sering disebut dengan IDE (Interface Development Environment). Lingkungan ini menyediakan tool untuk mendesain, menjalankan dan mencari kesalahan program dari aplikasi yang dibuat. Untuk melakukan setting properti dari masing masing kontrol, dapat melihat menu Properties Window dan dobel klik pada form untuk memasukkan kode program.
bagi rekan-rekan yang ingin mencoba mempelajari VB.Net, silahkan mencoba ebooks ini, mudah2an bermanfaat
1. BeginningVisualBasic2005Databases
2. ssBeginningVB2008DatabasesFromNovicetoProfessional
3. Apress.Accelerated.VB.2005
4. BeginningVB2008DatabasesFromNovicetoProfessional
skip to main |
skip to sidebar
Akhirnya coba-coba cari cara install yang lain, dapat caranya yaitu cara install dengan menggunakan USB. Cara yang gw temukan dari hong.web.id ada 2 cara, yaitu manual dan auto.
Cara Manual:
1. Colokkan USB Flaskdisk anda. (maukin ke usb port yah, jgn ke tempat lain).
2. Tekan Tombol WIN+R, ketik cmd dan klik OK.
3. Ketik diskpart dan tekan ENTER.
4. Ketik list disk, tekan ENTER dan pilihlah yang mana adalah USB flashdisk anda, hati2 jangan salah pilih nanti salah2 yg keformat adalah disk yang lain. jikalau anda punya hanya 1 harddisk makan USB flaskdisknya adalah disk1.
5. Ketik select disk 1 dan tekan ENTER.
6. Ketik clean dan tekan ENTER.
7. Ketik create partition primary lalu tekan ENTER.
8. Ketik select partition 1 dan tekan ENTER
9. Ketik active dan tekan ENTER.
10. Ketik format fs=fat32 dan tekan ENTER
11. Ketik assign dan tekan ENTER
12. Ketik exit dan tekan ENTER.
13. Masukkan disk DVD windows 7 dan copy lah semua isi DVD tadi ke USB Flaskdisk anda.
14. Booting komputer anda melalu USB Flashdisk, setting malalui bios komputer anda, pastikan boot nya melalui USB Flashdisk, apabila langkah2nya betul, maka proses instalasi windows seharusnya berjalan melalui USB Flashdisk.
wintoflash
Cara Otomatis.
Cara otomatis tentunya merupakan pilihan saya, dan untuk itu sudah tersedia program yang namanya WinToFlash, program ini akan melalukan langkah2 seperti cara manual diatas, yang kita perlu lakukan hanyalah menjalankan programnya, pilih sumber windows 7 dan arah USB flashdisk.
1. Unduh program WinToFlash versi terbaru. [Disini]
2. Ekstrak dan jalankan file WinToFlash.exe
3. Klik tombol “Check” dan mulailah proses Windows setup transfer wizard.
4. Klik “Next”
5. Pilih lokasi file Windows 7 dan lokasi USB Flaskdisk anda. klik “Next”.
6. Pilih “I Accepted the terms of the license agreement” dan klik “Continue”
7. Klik OK untuk memulai memformat USB Flashdisk dan file2 windows 7 secara otomatis akan dimasukkan ke USB Flashdisk.
8. Klik “Next” apabila selesai pengopian, dan bootinglah komputer anda melalui USB Flashdisk tadi. apabila langkah2nya betul, maka proses instalasi windows seharusnya berjalan melalui USB Flashdisk.
TUJUAN :
1. Memahami kondisi pada penggunaan if then dalam turbo pascal
2. Mahasiswa dapat menyebutkan macam-macam statemenpenyeleksian kondisi.
3. Mahasiswa dapat menjelaskan bentuk umum dari statemen kondisi IF
4. Mahasiswa dapat membuat contoh program sederhana dengan menggunakan statemen kondisi IF
Percabangan I : If ….. Then …. Else …..
Pernyataan percabangan/kendali/bersyarat merupakan pernyataan yang akan mengeksekusi suatu pernyataan yang mengikutinya bila suatu persyaratan dipenuhi. Salah satu pernyataan kendali untuk pengambilan keputusan dalam Pascal adalah pernyataan If … Then … Else …
Bentuk umum :
IF kondisi THEN
Statemen 1
ELSE
Statemen 2
dimana :
kondisi : ungkapan boolen yang menghasilkan nilai benar atau salah
statemen 1, statemen 2 : pernyataan-pernyataan tunggal/majemuk. Dalam Pascal, pernyataan majemuk adalah kumpulan dari beberapa pernyataan yang diawali dengan kata baku BEGIN dan diakhiri oleh kata baku END, yang dianggap sebagai sebuah pernyataan tunggal.
Maksudnya : bila kondisi bernilai TRUE (benar) maka akan dikerjakan statemen 1 dan statemen 2 dilewati, sedangkan jika kondisi bernilai FALSE (salah) maka akan dikerjakan statemen 2 dan statemen 1 dilewati.
Untuk pernyataan IF yang berkalang (ada pernyataan IF yang lain dalam pernyataan IF), ELSE selalu berpasangan dengan dengan IF yang terletak sebelum dan yang paling dekat dengan ELSE tersebut, serta terletak dalam blok pernyataan yang sama.
Contoh 1 : Program untuk mencari akar persamaan kuadrat di bawah ini
Program PersamaanKuadrat;
uses crt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln(‘Menghitung akar-akar persamaan kuadrat’);
writeln(‘Nilai a,b,c dimasukkan dengan jeda spasi’);
write(‘Masukkan nilai a,b,c:’);
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln(‘tidak ada akar real’)
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(‘x1 =’,x1:6:2);
writeln(‘x2 =’,x2:6:2);
end;
readln;
end.
Contoh Hasil Eksekusi :
- jika d = 0
Menghitung akar-akar persamaan kuadrat
Nilai a,b,c dimasukkan dengan jeda spasi
Masukkan nilai a,b,c:1 4 2
x1 = -0.59
x2 = -3.41
- jika d < 0 :
Menghitung akar-akar persamaan kuadrat
Nilai a,b,c dimasukkan dengan jeda spasi
Masukkan nilai a,b,c:1 2 6
tidak ada akar real
Catatan :
1. Di dalam IF boleh ada IF (pernyataan IF yang berkalang)
2. Jika diinginkan kondisi = FALSE tidak mengerjakan apa-apa, maka ELSE tidak perlu dituliskan.
3. Pernyataan ELSE tidak diakhri dengan ; (titik koma) begitu pula baris pernyataan sebelum ELSE.
Percabangan II : Case ….. Of …..
Pernyataan CASE …. OF …. Digunakan untuk pengambilan keputusan jika terdapat lebih dari dua alternatif jawaban yang tersedia.
Bentuk umum :
CASE ungkapan OF
Label 1 : Statemen 1
Label 2 : Statemen 1
………..
………..
………..
Label n : Statemen n
END;
dimana :
ungkapan : dapat berupa sembarang ungkapan yang memberikan hasil integer, char, boolean atau tipe terbilang (kecuali real).
Label : konstanta yang mempunyai tipe yang sama dengan ungkapan Statemen : pernyataan yang mengikuti berupa rangkaian instruksi yang harus dikerjakan jika nilai konstanta dalam label sama dengan nilai variable Maksudnya jika ungkapan bernilai label 1, maka dikerjakan statemen1, jika bernilai label 2 akan dikerjakan statemen 2 dan seterusnya.
Pernyataan CASE …. OF …. boleh diikuti ELSE. Perlu diketahui, ELSE dalam pernyataan CASE …. OF …. Hanya bersifat pilihan, dalam artian boleh disertakan boleh tidak. Jika ELSE disertakan, pernyataan yang mengikuti ELSE akan dieksekusi hanya bila nilai dari syarat-pemilih tidak ada dalam semua label.
Contoh 1 :
Program nilai_ujian;
uses crt;
var nama : string[25];
nim : string[8];
nilai: integer;
begin
clrscr;
write(‘Masukkan nama mahasiswa : ‘);
readln(nama);
write(‘Masukkan nomor induk mahasiswa : ‘);
readln(nim);
write(‘Masukkan nilai ujian : ‘);
readln(nilai);
writeln;
case nilai div 10 of
10,9 : writeln(‘Nilai huruf = A’);
8 : writeln(‘Nilai huruf = B’);
7 : writeln(‘Nilai huruf = C’);
6 : writeln(‘Nilai huruf = D’);
5,4,3,2,1,0 : writeln(‘Nilai huruf = E’);
end;
readln;
end.
Contoh 2 :
Program konversi;
uses crt;
var
menit, jam, kaki, meter, fahrenheit, celcius : real;
pilihan :char;
begin
clrscr;
writeln(‘Pilihan konversi:’);
writeln(’1) Menit ke jam’);
writeln(’2) Kaki ke meter’);
writeln(’3) Derajat Fahrenheit ke Celcius’);
write(‘pilihan ? ‘);
readln(pilihan);
case pilihan of
’1′ : begin
write(‘menit= ‘);
readln(menit);
jam:=menit/60;
writeln(‘nilai ini sama dengan ‘,jam:4:1,’
jam’);
readln;
end;
’2′ : begin
write(‘kaki= ‘);
readln(kaki);
meter:=0.3048*kaki;
writeln(‘nilai ini sama dengan ‘,meter:4:1,’
meter’);
readln;
end;
’3′ : begin
write(‘Derajat Fahrenheit = ‘);
readln(fahrenheit);
celcius:=5/9*(fahrenheit-32);
writeln(‘nilai ini sama dengan ‘,Celcius:4
:1,’ Celcius’);
readln;
end;
else writeln(‘Tidak melakukan konversi’);
end;
end.
KalanG I : For … To … Do… dan For … Downto … Do…
Salah satu ciri bahasa pemrograman adalah adanya perintah-perintah yang harus dikerjakan berulang-ulang. Pengulangan ini sering disebut dengan kalang. Dalam bahasa Pascal ada beberapa perintah untuk membuat kalang, yaitu:
FOR … TO … DO… dan FOR … DOWNTO … DO…
Bentuk umum :
FOR pengubah:=ungkapan1 TO ungkapan2 DO Statemen; dan FOR pengubah:=ungkapan1 DOWNTO ungkapan2 DO Statemen;
dimana,
pengubah : suatu pengubah yang disebut pengubah kendali, dapat berupa pengenal dari tipe integer, char, boolean atau tipe terbilang.
ungkapan1 : nilai awal pengubah
ungkapan2 : nilai akhir pengubah
Beberapa aturan yang harus dipenuhi :
- Pengubah, ungkapan1 dan ungkapan2 harus mempunyai tipe data yang sama
- Pada kalang TO ungkapan1
- Pada kalang DOWNTO ungkapan1>ungkapan2
Contoh 1 : Program untuk menghitung jumlah n bilangan pertama dan jumlah
kuadrat n bilangan pertama
Program jumlahKuadrat;
Uses crt;
Var jumlah, jmlkuadrat,i,n : integer;
begin
clrscr;
Write(‘Banyak n bilangan yang akan diproses’);
readln(n);
jumlah:=0;
jmlkuadrat:=0;
for i:=1 to n do
begin
jumlah:=jumlah+i;
jmlkuadrat:=jmlkuadrat + i*i;
writeln(‘Jumlah ‘,i:2,’ bilangan pertama
= ‘,jumlah:5);
writeln(‘Jumlah Kuadrat ‘,i:2,’ bilangan pertama
= ‘,jmlkuadrat:5);
end;
readln;
end.
Contoh 2 : Mencetak abjad dengan urutan terbalik dari z…a
Program tulisabjad;
Uses crt;
Var karakter : char;
Bahasa Pemrograman Pascal
Diktat Dasar Komputer dan Pemrograman T. Elektro FTI UAD
64
begin
clrscr;
for karakter:= ‘z’ downto ‘a’ do
write(karakter:2);
readln;
end.
Contoh 4 :
Bilangan Fibonacci memiliki rumusan : Fi = Fi-1 + Fi-2 Suku ke-1 merupakan penjumlahan bilangan Fibonacci suku ke-(i-1) dan suku ke- (i-2), dengan bilangan pada suku pertama dan suku kedua didefinisikan sama dengan satu.
Program Fibonacci;
Uses crt;
Var i,n,f,f1,f2 : integer;
begin
clrscr;
writeln(‘Ingin mencetak bilangan Fibonacci’);
write(‘sampai suku ke-’);
readln(n);
writeln;
writeln(‘Suku ke- 1 = ‘,1);
writeln(‘Suku ke- 2 = ‘,1);
f1 :=1; f2:=1;
for i:=3 to n do
begin
f:=f1+f2;
writeln(‘Suku ke- ‘,i:2,’ = ‘,F:3);
f2:=f1; f1:=f;
end;
readln;
end.
Kalang II : While .… Do…. dan Repeat …. Until ….
Selain membuat kalang dengan FOR….TO.…DO.… dan FOR..… DOWNTO … DO … ada bentuk kalang yang lebih umum yaitu : WHILE … DO …. yang bentuk umumnya adalah sebagai berikut :
WHILE kondisi DO
Statemen
dimana,
kondisi : adalah ungkapan boolean yang digunakan sebagai syarat agar statemen dikerjakan berulang kali
statemen : adalah pernyataan tunggal atau pernyataan majemuk yang akan diproses ulang.
Contoh 1 : Jumlah deret n bilangan asli pertama
Program Jumlah_Deret;
Uses crt;
Var n, jumlah, pencacah : integer;
begin
clrscr;
Writeln(‘Menghitung jumlah 1 + 2 + 3 + … + n’);
write(‘n = ? ‘);
readln(n);
pencacah:=1;
jumlah:=0;
while pencacah <= n do
begin
jumlah:=jumlah+pencacah;
pencacah:=pencacah + 1;
end;
writeln;
writeln(‘Jumlah deret = ‘,jumlah:5);
readln;
end.
Selain membuat kalang dengan 3 cara di atas masih ada cara lain untuk membuat kalang, yaitu dengan perintah REPEAT …. UNTIL yang bentuk umumnya adalah sebagai berikut :
REPEAT
…………
Statemen
………….
UNTIL kondisi
dimana,
statemen : adalah pernyataan tunggal atau pernyataan majemuk yang akan diproses ulang.
Kondisi : adalah ungkapan boolen sebagai syarat agar pernyataan diproses ulang.
Catatan : Salah satu statemen diantara repeat dan until harus ada yang bias merubah nilai kondisi sehingga kalang bisa berhenti
Contoh 2 :
Mengganti kalang WHILE … DO …. Dari contoh 1 dengan kalang REPEAT …. UNTIL …..
Program Jumlah_Deret;
Uses crt;
Var n, jumlah, pencacah : integer;
begin
clrscr;
Writeln(‘Menghitung jumlah 1 + 2 + 3 + … + n’);
write(‘n = ? ‘);
readln(n);
pencacah:=0;
jumlah:=0;
repeat
begin
jumlah:=jumlah+pencacah;
pencacah:=pencacah + 1;
end;
until pencacah = n+1;
writeln;
writeln(‘Jumlah deret = ‘,jumlah);
readln;
end.
Contoh 3 :
Program untuk menghitung mean dan standar deviasi dari sejumlah data masukkan non negatif dan berhenti apabila masukkan data adalah -1.
Program Mean_StdDev;
Uses crt;
Const neg=-1;
Var bilangan, total1, total2, mean, std : real;
n : integer;
begin
clrscr;
total1:=0.0;
total2:=0.0;
n:=0;
writeln(‘Masukkan data non negatif, dan untuk
mengakhiri masukkan angka -1′);
readln(bilangan);
repeat
n:=n+1;
total1:=total1+bilangan;
total2:=total2+bilangan*bilangan;
writeln(‘Masukkan data non negatif, dan untuk
mengakhiri masukkan angka -1′);
readln(bilangan);
until bilangan=neg;
mean:= total1/n;
std:=sqrt(total2/(n-1)-sqr(total1)/(n*(n-1)));
writeln(‘Mean = ‘,mean:7:2);
writeln(‘Deviasi Standar = ‘,std:8:3);
readln;
end.
Phobia jenis ini adalah jenis phobia yang penderitanya takut akan angka 13. Penderita phobia jenis ini adalah Pemimpin Gerakan Nazi Jerman barat Adolf Hitler dan Penyannyi serta pencipta lagu John Meyer. Memang kedengarannya tidak logis takut akan sebuah angka, tetapi itu bukan hal yang tidak mungkin juga Sebab Adolf Hitler dan John Meyer sangat Anti akan angka 13, Hitler mempunyai 14 Pesawat Tempur Nazi Tetapi dia menghindari seri pesawat tempur bernomor he-0013 dan dia lebih memilih nomor pesawat he-0012-2 untuk pesawat tempur ke 13 nya. Sedangkan Pada album John Meyer yang sebenarnya hanya mempunyai 13 track tapi dia mengosongkan track nomor 13 nya dan mengisi track nomor 13 nya tersebut dengan suara hening selama 0,2 detik. Begitu juga pada balapan mobil formula 1 (F1) yang sampai saat ini tidak memperbolehkan seorang pembalapnya menggunakan nomor mobil 13. FIA yaitu organisasi induk balapan mobil jet darat tersebut melarang seorang pembalapnya menggunakkan nomor mobil 13 karena nomor tesebut mempunyai sejarah kelam di ajang formula 1. Semenjak Balapan ini dilaksanakan tahun 1950 an yang lalu, sudah ada 2 pembalap yang meninggal saat membalap menggunakan mobil nomor 13 ini, salah satunya merupakan pembalap legendaries Ayrton Senna.
Ketakutan atau kegelisahan dalam hati kita bisa karena kebiasaan yang pernah menyedihkan hati kita, karena itu, anggaplah kejadian - kejadian yang kita alami itu menjadi kejadian yang biasa, jangan pernah menganggap kejadian itu menjadi kegelisahan di dalam hati kita untuk selamanya
Sebutkan usaha manusia untuk meningkatkan rasa percaya kepada Tuhannya :
Lahir di Mississisipi dari pasangan Afro-Amerika dengan nama Oprah Gail Winfrey. Ayahnya mantan serdadu yang kemudian menjadi tukang cukur, sedang ibunya seorang pembantu rumah tangga. Karena keduanya berpisah maka Oprah kecil pun diasuh oleh neneknya di dilingkungan yang kumuh dan sangat miskin.
Pages
Jumat, 27 Mei 2011
Tips Install Windows 7 Menggunakan USB
Beberapa hari ini sedikit dipusingkan dengan yang namanya Windows 7, dimana terkadang ada yang minta dipandu setting beberapa hal di Windows 7. Problemnya adalah aku sendiri gak ada windows 7 di Kompie, yang ada saat ini hanya XP dan Ubuntu. Ketika coba install, nemukan lagi problem. DVD gw error sekarang, susah banget baca dvd maupun cd.
Akhirnya coba-coba cari cara install yang lain, dapat caranya yaitu cara install dengan menggunakan USB. Cara yang gw temukan dari hong.web.id ada 2 cara, yaitu manual dan auto.Cara Manual:
1. Colokkan USB Flaskdisk anda. (maukin ke usb port yah, jgn ke tempat lain).
2. Tekan Tombol WIN+R, ketik cmd dan klik OK.
3. Ketik diskpart dan tekan ENTER.
4. Ketik list disk, tekan ENTER dan pilihlah yang mana adalah USB flashdisk anda, hati2 jangan salah pilih nanti salah2 yg keformat adalah disk yang lain. jikalau anda punya hanya 1 harddisk makan USB flaskdisknya adalah disk1.
5. Ketik select disk 1 dan tekan ENTER.
6. Ketik clean dan tekan ENTER.
7. Ketik create partition primary lalu tekan ENTER.
8. Ketik select partition 1 dan tekan ENTER
9. Ketik active dan tekan ENTER.
10. Ketik format fs=fat32 dan tekan ENTER
11. Ketik assign dan tekan ENTER
12. Ketik exit dan tekan ENTER.
13. Masukkan disk DVD windows 7 dan copy lah semua isi DVD tadi ke USB Flaskdisk anda.
14. Booting komputer anda melalu USB Flashdisk, setting malalui bios komputer anda, pastikan boot nya melalui USB Flashdisk, apabila langkah2nya betul, maka proses instalasi windows seharusnya berjalan melalui USB Flashdisk.
wintoflash
Cara Otomatis.
Cara otomatis tentunya merupakan pilihan saya, dan untuk itu sudah tersedia program yang namanya WinToFlash, program ini akan melalukan langkah2 seperti cara manual diatas, yang kita perlu lakukan hanyalah menjalankan programnya, pilih sumber windows 7 dan arah USB flashdisk.
1. Unduh program WinToFlash versi terbaru. [Disini]
2. Ekstrak dan jalankan file WinToFlash.exe
3. Klik tombol “Check” dan mulailah proses Windows setup transfer wizard.
4. Klik “Next”
5. Pilih lokasi file Windows 7 dan lokasi USB Flaskdisk anda. klik “Next”.
6. Pilih “I Accepted the terms of the license agreement” dan klik “Continue”
7. Klik OK untuk memulai memformat USB Flashdisk dan file2 windows 7 secara otomatis akan dimasukkan ke USB Flashdisk.
8. Klik “Next” apabila selesai pengopian, dan bootinglah komputer anda melalui USB Flashdisk tadi. apabila langkah2nya betul, maka proses instalasi windows seharusnya berjalan melalui USB Flashdisk.
Kondisi Pada Pascal
TUJUAN :
1. Memahami kondisi pada penggunaan if then dalam turbo pascal
2. Mahasiswa dapat menyebutkan macam-macam statemenpenyeleksian kondisi.
3. Mahasiswa dapat menjelaskan bentuk umum dari statemen kondisi IF
4. Mahasiswa dapat membuat contoh program sederhana dengan menggunakan statemen kondisi IF
Percabangan I : If ….. Then …. Else …..
Pernyataan percabangan/kendali/bersyarat merupakan pernyataan yang akan mengeksekusi suatu pernyataan yang mengikutinya bila suatu persyaratan dipenuhi. Salah satu pernyataan kendali untuk pengambilan keputusan dalam Pascal adalah pernyataan If … Then … Else …
Bentuk umum :
IF kondisi THEN
Statemen 1
ELSE
Statemen 2
dimana :
kondisi : ungkapan boolen yang menghasilkan nilai benar atau salah
statemen 1, statemen 2 : pernyataan-pernyataan tunggal/majemuk. Dalam Pascal, pernyataan majemuk adalah kumpulan dari beberapa pernyataan yang diawali dengan kata baku BEGIN dan diakhiri oleh kata baku END, yang dianggap sebagai sebuah pernyataan tunggal.
Maksudnya : bila kondisi bernilai TRUE (benar) maka akan dikerjakan statemen 1 dan statemen 2 dilewati, sedangkan jika kondisi bernilai FALSE (salah) maka akan dikerjakan statemen 2 dan statemen 1 dilewati.
Untuk pernyataan IF yang berkalang (ada pernyataan IF yang lain dalam pernyataan IF), ELSE selalu berpasangan dengan dengan IF yang terletak sebelum dan yang paling dekat dengan ELSE tersebut, serta terletak dalam blok pernyataan yang sama.
Contoh 1 : Program untuk mencari akar persamaan kuadrat di bawah ini
Program PersamaanKuadrat;
uses crt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln(‘Menghitung akar-akar persamaan kuadrat’);
writeln(‘Nilai a,b,c dimasukkan dengan jeda spasi’);
write(‘Masukkan nilai a,b,c:’);
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln(‘tidak ada akar real’)
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(‘x1 =’,x1:6:2);
writeln(‘x2 =’,x2:6:2);
end;
readln;
end.
Contoh Hasil Eksekusi :
- jika d = 0
Menghitung akar-akar persamaan kuadrat
Nilai a,b,c dimasukkan dengan jeda spasi
Masukkan nilai a,b,c:1 4 2
x1 = -0.59
x2 = -3.41
- jika d < 0 :
Menghitung akar-akar persamaan kuadrat
Nilai a,b,c dimasukkan dengan jeda spasi
Masukkan nilai a,b,c:1 2 6
tidak ada akar real
Catatan :
1. Di dalam IF boleh ada IF (pernyataan IF yang berkalang)
2. Jika diinginkan kondisi = FALSE tidak mengerjakan apa-apa, maka ELSE tidak perlu dituliskan.
3. Pernyataan ELSE tidak diakhri dengan ; (titik koma) begitu pula baris pernyataan sebelum ELSE.
Percabangan II : Case ….. Of …..
Pernyataan CASE …. OF …. Digunakan untuk pengambilan keputusan jika terdapat lebih dari dua alternatif jawaban yang tersedia.
Bentuk umum :
CASE ungkapan OF
Label 1 : Statemen 1
Label 2 : Statemen 1
………..
………..
………..
Label n : Statemen n
END;
dimana :
ungkapan : dapat berupa sembarang ungkapan yang memberikan hasil integer, char, boolean atau tipe terbilang (kecuali real).
Label : konstanta yang mempunyai tipe yang sama dengan ungkapan Statemen : pernyataan yang mengikuti berupa rangkaian instruksi yang harus dikerjakan jika nilai konstanta dalam label sama dengan nilai variable Maksudnya jika ungkapan bernilai label 1, maka dikerjakan statemen1, jika bernilai label 2 akan dikerjakan statemen 2 dan seterusnya.
Pernyataan CASE …. OF …. boleh diikuti ELSE. Perlu diketahui, ELSE dalam pernyataan CASE …. OF …. Hanya bersifat pilihan, dalam artian boleh disertakan boleh tidak. Jika ELSE disertakan, pernyataan yang mengikuti ELSE akan dieksekusi hanya bila nilai dari syarat-pemilih tidak ada dalam semua label.
Contoh 1 :
Program nilai_ujian;
uses crt;
var nama : string[25];
nim : string[8];
nilai: integer;
begin
clrscr;
write(‘Masukkan nama mahasiswa : ‘);
readln(nama);
write(‘Masukkan nomor induk mahasiswa : ‘);
readln(nim);
write(‘Masukkan nilai ujian : ‘);
readln(nilai);
writeln;
case nilai div 10 of
10,9 : writeln(‘Nilai huruf = A’);
8 : writeln(‘Nilai huruf = B’);
7 : writeln(‘Nilai huruf = C’);
6 : writeln(‘Nilai huruf = D’);
5,4,3,2,1,0 : writeln(‘Nilai huruf = E’);
end;
readln;
end.
Contoh 2 :
Program konversi;
uses crt;
var
menit, jam, kaki, meter, fahrenheit, celcius : real;
pilihan :char;
begin
clrscr;
writeln(‘Pilihan konversi:’);
writeln(’1) Menit ke jam’);
writeln(’2) Kaki ke meter’);
writeln(’3) Derajat Fahrenheit ke Celcius’);
write(‘pilihan ? ‘);
readln(pilihan);
case pilihan of
’1′ : begin
write(‘menit= ‘);
readln(menit);
jam:=menit/60;
writeln(‘nilai ini sama dengan ‘,jam:4:1,’
jam’);
readln;
end;
’2′ : begin
write(‘kaki= ‘);
readln(kaki);
meter:=0.3048*kaki;
writeln(‘nilai ini sama dengan ‘,meter:4:1,’
meter’);
readln;
end;
’3′ : begin
write(‘Derajat Fahrenheit = ‘);
readln(fahrenheit);
celcius:=5/9*(fahrenheit-32);
writeln(‘nilai ini sama dengan ‘,Celcius:4
:1,’ Celcius’);
readln;
end;
else writeln(‘Tidak melakukan konversi’);
end;
end.
KalanG I : For … To … Do… dan For … Downto … Do…
Salah satu ciri bahasa pemrograman adalah adanya perintah-perintah yang harus dikerjakan berulang-ulang. Pengulangan ini sering disebut dengan kalang. Dalam bahasa Pascal ada beberapa perintah untuk membuat kalang, yaitu:
FOR … TO … DO… dan FOR … DOWNTO … DO…
Bentuk umum :
FOR pengubah:=ungkapan1 TO ungkapan2 DO Statemen; dan FOR pengubah:=ungkapan1 DOWNTO ungkapan2 DO Statemen;
dimana,
pengubah : suatu pengubah yang disebut pengubah kendali, dapat berupa pengenal dari tipe integer, char, boolean atau tipe terbilang.
ungkapan1 : nilai awal pengubah
ungkapan2 : nilai akhir pengubah
Beberapa aturan yang harus dipenuhi :
- Pengubah, ungkapan1 dan ungkapan2 harus mempunyai tipe data yang sama
- Pada kalang TO ungkapan1
- Pada kalang DOWNTO ungkapan1>ungkapan2
Contoh 1 : Program untuk menghitung jumlah n bilangan pertama dan jumlah
kuadrat n bilangan pertama
Program jumlahKuadrat;
Uses crt;
Var jumlah, jmlkuadrat,i,n : integer;
begin
clrscr;
Write(‘Banyak n bilangan yang akan diproses’);
readln(n);
jumlah:=0;
jmlkuadrat:=0;
for i:=1 to n do
begin
jumlah:=jumlah+i;
jmlkuadrat:=jmlkuadrat + i*i;
writeln(‘Jumlah ‘,i:2,’ bilangan pertama
= ‘,jumlah:5);
writeln(‘Jumlah Kuadrat ‘,i:2,’ bilangan pertama
= ‘,jmlkuadrat:5);
end;
readln;
end.
Contoh 2 : Mencetak abjad dengan urutan terbalik dari z…a
Program tulisabjad;
Uses crt;
Var karakter : char;
Bahasa Pemrograman Pascal
Diktat Dasar Komputer dan Pemrograman T. Elektro FTI UAD
64
begin
clrscr;
for karakter:= ‘z’ downto ‘a’ do
write(karakter:2);
readln;
end.
Contoh 4 :
Bilangan Fibonacci memiliki rumusan : Fi = Fi-1 + Fi-2 Suku ke-1 merupakan penjumlahan bilangan Fibonacci suku ke-(i-1) dan suku ke- (i-2), dengan bilangan pada suku pertama dan suku kedua didefinisikan sama dengan satu.
Program Fibonacci;
Uses crt;
Var i,n,f,f1,f2 : integer;
begin
clrscr;
writeln(‘Ingin mencetak bilangan Fibonacci’);
write(‘sampai suku ke-’);
readln(n);
writeln;
writeln(‘Suku ke- 1 = ‘,1);
writeln(‘Suku ke- 2 = ‘,1);
f1 :=1; f2:=1;
for i:=3 to n do
begin
f:=f1+f2;
writeln(‘Suku ke- ‘,i:2,’ = ‘,F:3);
f2:=f1; f1:=f;
end;
readln;
end.
Kalang II : While .… Do…. dan Repeat …. Until ….
Selain membuat kalang dengan FOR….TO.…DO.… dan FOR..… DOWNTO … DO … ada bentuk kalang yang lebih umum yaitu : WHILE … DO …. yang bentuk umumnya adalah sebagai berikut :
WHILE kondisi DO
Statemen
dimana,
kondisi : adalah ungkapan boolean yang digunakan sebagai syarat agar statemen dikerjakan berulang kali
statemen : adalah pernyataan tunggal atau pernyataan majemuk yang akan diproses ulang.
Contoh 1 : Jumlah deret n bilangan asli pertama
Program Jumlah_Deret;
Uses crt;
Var n, jumlah, pencacah : integer;
begin
clrscr;
Writeln(‘Menghitung jumlah 1 + 2 + 3 + … + n’);
write(‘n = ? ‘);
readln(n);
pencacah:=1;
jumlah:=0;
while pencacah <= n do
begin
jumlah:=jumlah+pencacah;
pencacah:=pencacah + 1;
end;
writeln;
writeln(‘Jumlah deret = ‘,jumlah:5);
readln;
end.
Selain membuat kalang dengan 3 cara di atas masih ada cara lain untuk membuat kalang, yaitu dengan perintah REPEAT …. UNTIL yang bentuk umumnya adalah sebagai berikut :
REPEAT
…………
Statemen
………….
UNTIL kondisi
dimana,
statemen : adalah pernyataan tunggal atau pernyataan majemuk yang akan diproses ulang.
Kondisi : adalah ungkapan boolen sebagai syarat agar pernyataan diproses ulang.
Catatan : Salah satu statemen diantara repeat dan until harus ada yang bias merubah nilai kondisi sehingga kalang bisa berhenti
Contoh 2 :
Mengganti kalang WHILE … DO …. Dari contoh 1 dengan kalang REPEAT …. UNTIL …..
Program Jumlah_Deret;
Uses crt;
Var n, jumlah, pencacah : integer;
begin
clrscr;
Writeln(‘Menghitung jumlah 1 + 2 + 3 + … + n’);
write(‘n = ? ‘);
readln(n);
pencacah:=0;
jumlah:=0;
repeat
begin
jumlah:=jumlah+pencacah;
pencacah:=pencacah + 1;
end;
until pencacah = n+1;
writeln;
writeln(‘Jumlah deret = ‘,jumlah);
readln;
end.
Contoh 3 :
Program untuk menghitung mean dan standar deviasi dari sejumlah data masukkan non negatif dan berhenti apabila masukkan data adalah -1.
Program Mean_StdDev;
Uses crt;
Const neg=-1;
Var bilangan, total1, total2, mean, std : real;
n : integer;
begin
clrscr;
total1:=0.0;
total2:=0.0;
n:=0;
writeln(‘Masukkan data non negatif, dan untuk
mengakhiri masukkan angka -1′);
readln(bilangan);
repeat
n:=n+1;
total1:=total1+bilangan;
total2:=total2+bilangan*bilangan;
writeln(‘Masukkan data non negatif, dan untuk
mengakhiri masukkan angka -1′);
readln(bilangan);
until bilangan=neg;
mean:= total1/n;
std:=sqrt(total2/(n-1)-sqr(total1)/(n*(n-1)));
writeln(‘Mean = ‘,mean:7:2);
writeln(‘Deviasi Standar = ‘,std:8:3);
readln;
end.
Rabu, 27 April 2011
Ilmu Budaya Dasar # Bab VIII
Nama : Galih Rifanda
Kelas : 1ka33
Npm : 12110929
Kelompok : 6
Alamat blog saya : galihrifanda.blogspot.com
Dosen : Ninuk Sekarsari
Kelas : 1ka33
Npm : 12110929
Kelompok : 6
Alamat blog saya : galihrifanda.blogspot.com
Dosen : Ninuk Sekarsari
Ilmu Budaya Dasar #
Bab VIII (Manusia dan Kegelisahan)
Sebutkan macam-macam penyebab terjadinya ketidak pastian
Ketidak pastian berasal dari kata tidak pasti artinya tidak menentu, tidak dapat ditentukan, tidak tahu, tanpa arah yang jelas, tanpa asal-usul yang jelas. Ketidak pastian artinya keadaan yang tidak pasti, tidak tentu, tidak dapat ditentukan, tidak tahu, keadaan tanpa arah yang jelas, keadaan tanpa asal-usul yang jelas. Itu semua adalah akibat pikirannya tidak dapat konsentrasi. Ketidak konsentrasian disebabkan oleh berbagai sebab, yang jelas pikirannya kacau.
Ketidakpastian tentang lulus atau tidak dalam ujian sarjana yang sudah lama ditunggu-tunggu membuat orang gelisah. lulus atau tidak lulus ujian sarjana akan menentukan status atau karir seseorang dalam hidupnya. Ketidakpastian ini akan merugikan, karena status dari karir itu terancam. Karena ketidakpastian itu status yang telah ditetapkan oleh atasan menjadi hilang, berhubung ada orang lain yang lebih dulu memenuhinya.
Orang yang pikirannya terganggu tidak dapat lagi berpikir secara teratur, apalagi mengambil kesimpulan.
Obsesi
Obsesi merupakan gejala neurosa jiwa, yaitu adanya pikiran atau perasaan tertentu yang terus menerus, biasanya tentang hal-hal yang tak menyenangkan, atau sebab-sebabnya tak diketahui oleh penderita. Misalnya selalu berpikir ada orang yang ingin menjatuhkan dia.
Phobia
Ialah rasa ketakutan yang tak terkendali, tidak normal, kepada sesuatu hal atau kejadian tanpa diketahui sebab-sebabnya.
Kompulasi
Ialah adanya keragu-raguan tentang apa yang telah dikerjakan, sehingga ada dorongan yang tak disadari melakukan perbuatan yang serupa berkali-kali.
Histeria
Ialah neorosa jiwa yang disebabkan oleh tekanan mental, kekecewaan, pengalaman pahit yang menekan, kelemahan syaraf, tidak mampu menguasai diri, sugesti dan sikap orang lain.
Delusi
Menunjukkan pikiran yang tidak beres, karena berdasarkan suatu keyakinan palsu. Tidak dapat memakai akal sehat, tidak ada dasar kenyataan dan tidak sesuai dengan pengalaman. Delusi ini ada tiga macam, yaitu :
a. Delusi persekusi :Menganggap keadaan sekitamya jelek. Seseorang yang mengalami delusi persekusi tidak mau mengenal tetangga kifi kanan karena menganggap jelek.b. Delusi keagungan :Menganggap dirinya orang penting dan besar. Orang seperti itu biasanya gila honnat. Menganggap orang-orang disekitamya sebagai orang-orang tidak penting. Akhimya semua orang menjauhi juga.c. Delusi melancholis :Merasa dirinya bersalah, hina, dan berdosa. Hal ini dapat mengakibatkan buyuten atau dikenal dengan nama delirium trements, hilangnya kesadaran dan menyebabkan otot-otot tak tericuasa lagi.
Halusinasi
Khayalan yang terjadi tanpa rangsangan pancaindera. Dengan sugesti din orang dapat juga berhalusinasi. Halusinasi buatan, misalnya dapat dialami oleh orang mabuk atau pemakai obat bius. Kadang-kadang karena halusinai orang merasa mendapat tekanan-tekanan terhadap dorongan-dorongan dasamya, sehingga dengan timbulnya halusinasi dorongan-dorongan itu menemukan sasarannya. Ini nampak dalam perbuatan perbuatan penderita. ( penderita itu dapat menyadari perbuatan itu, tetapi tidak dapat menahan rangsang khayalan sendiri)
Keadaan Emosi
Dalam keadaan tertentu seseorang sangat berpengaruh oleh emosinya. Ini nampak pada keseluruhan pribadinya: gangguan pada nafsu makan, pusing-pusing, muka merah, nadi cepat, keringat, tekanan darah tinggi/lemah. Sikapnya dapat apatis atau terlalu gembira dengan gerakan lari-larian, nyanyian, ketawa atau berbicara. Sikap ini dapat pula berupa kesedihan menekan, tidak bemafsu, tidak bersemangat, gelisah, resah, suka mengeluh, tidak mau berbicara, diam seribu bahasa, termenung, menyendiri.
Usaha Untuk Mengatasi Ketidakpastian :
Orang yang tidak dapat berpikir dengan baik, atau kacau pikirannya ada bermacam-macam penyebabnya. Untuk dapat menyembuhkan keadaan itu bergantung kepada mental si penderita. Andaikata penyebab sudah diketahui, kemungkinan juga tidak dapat sembuh. Bila hal itu terjadi, maim jalan yang paling baik bagi penderita ialah diajak atau pergi sendiri ke psikolog.
Studi Kasus :
Triskadeikaphobia
![]() |
Opini :
Saran :
Jangan pernah menganggap sebuah angka atau sebuah kejadian dengan atau dihubung-hubungkan dengan hal sial, karena pertama kita mempunyai sebuah ketakutan yang besar, hal itu akan menjadikan ketakutan untuk kita selama hidup.Ilmu Budaya Dasar # Bab IX
Nama : Galih Rifanda
Kelas : 1ka33
Npm : 12110929
Kelompok : 6
Alamat blog saya : galihrifanda.blogspot.com
Dosen : Ninuk Sekarsari
Kelas : 1ka33
Npm : 12110929
Kelompok : 6
Alamat blog saya : galihrifanda.blogspot.com
Dosen : Ninuk Sekarsari
Ilmu Budaya Dasar #
Bab IX (Manusia dan Harapan)
Bedakan 4 kepercayaan
Kepercayaan adalah hal-hal yang berhubungan dengan pengakuan atau keyakinan akan kebenaran. Ada jenis pengetahuan yang dimiliki seseorang, bukan karena hasil penyelidikan sendiri, melainkan karena diterima orang lain. Kebenaran sangat penting bagi manusia, karena memiliki arti khusus bagi hidupnya. Kebenaran merupakan fokus dari ketidakbenaran dalam bertindak, maupun berucap dapat merusak atau mencemarkan nama baiknya. Karena itu wajar apabila ketidakbenaran menyebabkan kegelisahan, ketidakpastian, dan kedukaan.
Sebutkan usaha manusia untuk meningkatkan rasa percaya kepada Tuhannya :
Dasar kepercayaan adalah kebenaran. Sumber kebenaran adalah manusia. Kepercayaan itu dapat dibedakan atas :
- Kepercayaan Pada Diri Sendiri
Kepercayaan kepada diri sendiri itu ditanamkan setiap pribadi manusia. Percaya kepada diri sendiri pada hakekatnya adalah kepercayaan kepada Tuhan Yang Maha Esa.
- Kepercayaan Kepada Orang Lain
Karena ada ucapan yang berbunyi ” orang dipercaya karena ucapannya”.
- Kepercayaan Kepada Pemerintah
Pandangan demokratis mengatakan bahwa kedaulatan adalah dari rakyat, dan milik rakyat. dalam masyarakat, dan negara. Hanya negara sebagai keutuhan (totalitas) yang ada, karena itu jelaslah bagi kita, baik teori maupun pandangan teokratis atau demokratis negara pemerintah itu benar, karena Tuhan adalah sumber kebenaran.bagai warga negara percaya kepada negara dan pemerintah.
- Kepercayaan Kepada
Kepercayaan itu amat penting karena merupakan tali kuat yang dapat menghubungkan manusia dengan Tuhannya. Kepercayaan berarti keyakinan dan pengakuan akan kebenaran adanya Tuhan. Oleh karena itu, jika manusia ingin memohon pertolongan kep
Studi Kasus :
perjalanan hidup OPRAH WINFREY from zero to something
Bermodal keberanian “Menjadi Diri Sendiri”, Oprah menjadi presenter paling populer di Amerika dan menjadi wanita selebritis terkaya versi majalah Forbes, dengan kekayaan lebih dari US $ 1 Milyar. Copy acara “The Oprah Winfrey Show” telah diputar di hampir seluruh penjuru bumi ini.
Tahukah Anda siapa Oprah?
Lahir di Mississisipi dari pasangan Afro-Amerika dengan nama Oprah Gail Winfrey. Ayahnya mantan serdadu yang kemudian menjadi tukang cukur, sedang ibunya seorang pembantu rumah tangga. Karena keduanya berpisah maka Oprah kecil pun diasuh oleh neneknya di dilingkungan yang kumuh dan sangat miskin.
“Membaca adalah gerai untuk mengenal dunia”, katanya dalam suatu wawancaranya.
Pada usia 9 tahun, Oprah mengalami pelecehan sexual, dia diperkosa oleh saudara sepupu ibunya beserta teman-temannya dan terjadi berulang kali. Di usia 13 tahun Oprah harus menerima kenyataan hamil dan melahirkan, namun bayinya meninggal dua minggu setelah dilahirkan.
Setelah kejadian itu, Oprah lari ke rumah ayahnya di Nashville. Ayahnya mendidik dengan sangat keras dan disiplin tinggi. Dia diwajibkan membaca buku dan membuat ringkasannya setiap pekan. Walaupun tertekan berat, namun kelak disadari bahwa didikan keras inilah yang menjadikannya sebagai wanita yang tegar, percaya diri dan berdisiplin tinggi.
Prestasinya sebagai siswi teladan di SMA membawanya terpilih menjadi wakil siswi yang diundang ke Gedung Putih. Beasiswa pun di dapat saat memasuki jenjang perguruan tinggi. Oprah pernah memenangkan kontes kecantikan, dan saat itulah pertama kali dia menjadi sorotan publik.
Karirnya dimulai sebagai penyiar radio lokal saat di bangku SMA. Karir di dunia TV di bangun diusia 19 tahun. Dia menjadi wanita negro pertama dan termuda sebagai pembaca berita stasiun TV lokal tersebut. Oprah memulai debut talkshow TVnya dalam acara People Are Talking. Dan keputusannya untuk pindah ke Chicago lah yang akhirnya membawa Oprah ke puncak karirnya. The Oprah Winfrey Show menjadi acara talkshow dengan rating tertinggi berskala nasional yang pernah ada dalam sejarah pertelevisian di Amerika. Sungguh luar biasa!
Latar belakang kehidupannya yang miskin, rawan kejahatan dan diskriminatif mengusik hatinya untuk berupaya membantu sesama. Tayangan acaranya di telivisi selalu sarat dengan nilai kemanusiaan, moralitas dan pendidikan. Oprah sadar, bila dia bisa mengajak seluruh pemirsa telivisi, maka bersama, akan mudah mewujudkan segala impiannya demi membantu mereka yang tertindas.
Oprah juga dikenal dengan kedermawanannya. Berbagai yayasan telah disantuni, antara lain, rumah sakit dan lembaga riset penderita AIDs, berbagai sekolah, penderita ketergantungan, penderita cacat dan banyak lagi.
Dan yang terakhir, pada 2 januari 2007 lalu, Oprah menghadiri peresmian sekolah khusus anak-anak perempuan di kota Henley-on-Klip, di luar Johannesburg, Afrika selatan, yang didirikannya bersama dengan pemirsa acara televisinya. Oprah menyisihkan 20 juta poundsterling ( 1 poundsterling kira2 Rp 17.000,- ) atau 340 milyiar rupiah dari kekayaannya. “Dengan memberi pendidikan yang baik bagi anak2 perempuan ini, kita akan memulai mengubah bangsa ini” ujarnya berharap.
Kisah Oprah Winfrey ialah kisah seorang anak manusia yang tidak mau meratapi nasib. Dia berjuang keras untuk keberhasilan hidupnya, dan dia berhasil. Dia punya mental baja dan mampu mengubah nasib, dari kehidupan nestapa menjadi manusia sukses yang punya karakter. Semangat perjuangannya pantas kita teladani!
Opini :
Menurut saya, Oprah ini adalah contoh yang sangat baik bagi yang memiliki kondisi hidup pada usia dini seperti Oprah ini, dikarenakan dia bisa menjadi yang baik dan menjadi sukses berkat kepercayaan dirinya itu sendiri, kepercayaan itu dikarenakan ada suatu tekad yang besar di dalam hatinya untuk menunjukan kalau ia bisa menjadi yang tebaik, dan tidak disepelehkan atau dilecehkan. Hidup terkadang ada enak dan ada tidaknya, ketidak enakan hidup justru bisa menimbulkan rasa bangkit untuk menjalani hidup, dan menimbulkan lembali rasa tegar di dalam hati.
Seseorang seperti Oprah ini sulit ditemui dikarenakan dia bisa memberi sebagian penghasilannya kepada yang membutuhkan, karena Oprah merasa diluar sana pasti banyak anak-anak seperti saya waktu masih kecil, dan Oprah yang sekarang membuktikan bahwa ketidakenakan hidup di masa muda, menjadikan sukses dimasa depan.
Saran :
Jika mendapatkan masalah seperti Oprah ini, harus bersikaplah yang sabar dan tabah atau tegar dalam hidup ini dikarenakan hidup itu untuk memuaskan diri sendiri dan bisa membanggakan orang lai, dan ingat satu hal, haruslah taat beribadah kepada Tuhan Yang Maha Esa, karena seuatu itu harus diseimbangkan, contoh, Berdoa sambil Berusaha.


