Program Mencari Rata-rata, Nilai Tertinggi dan Terendah

Contoh program untuk mencari nilai rata-rata, tertinggi dan terendah

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

uses wincrt;   var a, siswa : integer; nilai, total, tinggi, rendah, rata : real;   begin total := 0; write ('jumlah siswa : '); readln (siswa); writeln; for a := 1 to siswa do begin write ('nilai siswa ke ',a,' : '); readln (nilai); total := total + nilai; if a = 1 then begin tinggi := nilai; rendah := nilai; end else begin if nilai > tinggi then tinggi := nilai else begin if nilai < rendah then rendah := nilai; end; end; end; rata := total / siswa; writeln; writeln ('nilai terendah : ', rendah :1:2); writeln ('nilai tertinggi : ', tinggi :1:2); writeln ('rata-rata : ',rata :1:2); end.

Tampilan :
jumlah siswa : 6
nilai siswa ke 1 : 89
nilai siswa ke 2 : 90
nilai siswa ke 3 : 78
nilai siswa ke 4 : 69
nilai siswa ke 5 : 75
nilai siswa ke 6 : 80
nilai terendah : 69.00
nilai tertinggi : 90.00
rata-rata : 80.17
 

Logika.
Awalnya total diberi nilai 0.
Pertama masukkan jumlah siswa { jumlah siswa : 6 }
Maka akan terjadi 6 perulangan untuk menghitung total

Perulangan ke 1 ; a=1 ==:> nilai = 89
total = 0 + 89 = 89
a=1? Ya, berarti 89 adalah nilai tertinggi dan nilai terendah dalam perulangan pertama
perulangan ke 2 ; a=2 ==:> nilai = 90
total = 89 + 90 = 179
a=1? Tidak, apakah nilai 90 > 89 ? ya, maka 90 adalah nilai tertinggi dalam perulangan ke 2.
Perulangan ke 3 ; a=3 ==:> nilai = 78
Total = 179 + 78 = 257
a=1? Tidak, apakah nilai 78 > 90 ? tidak, maka 90 tetap jadi nilai tertinggi dalam perulangan ke 3.
Apakah nilai 78 < 89 ? ya, maka 78 adalah nilai terendah dalam perulangan ke 3. Perulangan ke 4 ; a=4 ==:> nilai = 69
Total = 257 + 69 = 326
a=1? Tidak, apakah nilai 69 > 90? Tidak, maka 90 tetap jadi nilai tertinggi dalam perulangan ke 4.
Apakah nilai 69 < 78 ? ya, maka 69 adalah nilai terendah dalam perulangan ke 4. Perulangan ke 5 ; a=5 ==:> nilai = 75
Total = 326 + 75 = 401
a=1? Tidak, apakah nilai 75 > 90? Tidak, maka 90 tetap jadi nilai tertinggi dalam perulangan ke 5.
Apakah nilai 75 < 69 ? tidak, maka 69 adalah nilai terendah dalam perulangan ke 5. Perulangan ke 6 ; a=6 ==:> nilai = 80
Total = 401 + 80 = 481
a=1? Tidak, apakah nilai 80 > 90 ? tidak, maka 90 tetap jadi nilai tertinggi dalam perulangan ke 6.
Apakah nilai 90 < 69 ? tidak, maka 69 tetap jadi nilai terendah dalam perulangan ke 6.
Menghitung rata-rata = total / siswa
= 481 / 6
= 80.17
 

Ditampilkan hasil :
Nilai terendah : 69.00
Nilai tertinggi : 90.00
Rata-rata : 80.17

Read More...

Membuat Piramid Bintang

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

program bintang_piramid; uses wincrt;   var c,a,b,n : integer; begin write ('masukkan angka : ');readln(n); writeln; if n mod 2 = 0 then for a := 1 to (n div 2) do begin for b := 1 to (n div 2)-a do write (' '); for c := 1 to (a*2) do write ('*'); writeln; end else for a := 1 to (n div 2)+1 do begin for b := 1 to (n div 2)+(1-a) do write (' '); for c := 1 to (a*2)-1 do write ('*'); writeln; end; end.

keluaran:
masukkan jumlah bintang terbawah : 9

*
***
*****
*******
*********

masukkan jumlah bintang terbawah : 8

**
****
******
********
saya membuatnya disertai dengan percabangan karena bila jumlah bintang terbawah yang dimasukkan genap maka yang paling atas juga akan genap dan jika yang dimasukkan ganjil maka yang paling atas juga akan ganjil
logika.
pertama masukkan jumlah bintang terbawah yang diinginkan contoh yang dimasukan adalah 8.
8 div 2 = 0 maka
baris yang yang ada pada piramid adalah setengah dari bintang yang dimasukkan kecuali bila bintang yang paling bawah adalah ganjil, maka tinggi atau barisnya adalah ½ alas+1,kerena bintang piramid berbentuk segitiga samakaki.

jadi pertama kita membuat perulangan untuk membuat baris dengan menggunakan perulangan for a :1 to (n div 2) do, karena saya menggunakan (n/2)tidak mau,jadi saya menggunakan n div 2 karena variabel n yang saya masukkan adalah integer. dan hasil n div 2 pasti integer.

setelah kita membuat perulangan untuk baris,selanjutnya kita membuat perulangan untuk baris kanan yang tidak terisi dan perulangan untuk bintang yang akan dimunculkan.
yaitu dengan cara 

begin for b: 1 to (n div 2)-a do write (‘ ‘);
for c: 1 to (a*2) do write (‘*’); writeln;

perulangan untuk baris, sebanyak (n div 2) yaitu 8 div 2 = 4. jadi akan ada 4 perulangan untuk baris
Perulangan untuk baris yang pertama adalah.

n =8
a =1
=(n div 2)-a
=(8 div 2)-1
= 4-1
= 3
b =1 to (n div 2)-a = 1 to 3 do write (‘ ‘)
jadi tampil sepasi 3x atau sepasi tigakali,setelah itu
c= 1 to (1*2)=1 to 2 do write (‘*’)

jadi disampingnya 3 sepasi tadi terdapat dua bitang berjejeran,yang berarti puncak dari piramid tersebut adalah dua bintang. setelah itu program membaca writeln yang berarti ganti baris.
perulangan untuk baris ke2 adalah .

n =8
a =2
= (n div 2)-a
= (8 div 2)-2
= 4-2
= 2
b =1 to (n div 2)-a = 1 to 2 do write (‘ ‘)
jadi tampil sepasi 2x, setelah itu
c = 1 to (2*2)= 1 to 4 do write (‘*’)

jadi disamping 2 sepasi terdapat 4 bintang berjejeran,setelah itu program membaca writeln yang berarti ganti baris.
perulangan untuk baris ke3 adalah.

n =8
a =3
= (n div 2)-a
= (8 div 2)-3
= 4-3
= 1
b =1 to (n div 2)-a = 1 to 1 do write (‘ ‘) jadi tampil sepasi 1x, setelah itu
c = 1 to (3*2)= 1 to 6 do write (‘*’)

jadi disamping 1 sepasi terdapat 6 bintang berjejeran,setelah itu program membaca writeln yang berarti ganti baris.
perulangan untuk baris ke4 adalah.

n =8
a =3
= (n div 2)-a
= (8 div 2)-4
= 4-4
= 0
b =1 to (n div 2)-a = 1 to 0 do write (‘ ‘)
jadi tidak ada sepasi, setelah itu
c = 1 to (4*2)= 1 to 8 do write (‘*’)

jadi terdapat 8 bintang berjejeran,setelah itu program membaca writeln yang berarti ganti baris.
karena dalam perulangan cuma sampai (n div 2) atau 4, jadi perulangan akan berhenti dan didapatkan tampilan seperti ini

**
****
******
********

yang ganjilpun sama logikanya. tinggal memasukkan angka didalam variabel-variabel yang sudah saya buat. Silahkan dicoba sendiri untuk pembuktian jumlah bintang ganjil

Read More...

Sejarah Asal Usul Kemunculan Blog

Veerle's Blog at Starbucks by DeaPeaJay

Blog merupakan hasil evolusi dari diary online: Diary atau catatan harian mengenai pendapat, opini, dan apapun itu dalam bentuk yang dipublikasikan secara online (menggunakan website). Salah seorang pioneer dari internet-based journalist ini adalah Justin Hall, yang melakukan membuat online diarynya Justin Links From The Underground ketika dia masih merupakan pelajar dari Swarthmore College.

Kala itu, Blog (atau ketika itu bernama online diary) pada umumnya merupakan website yang berisi kumpulan link menuju halaman web lain yang disertai komentar dan opini pemilik online diary tersebut mengenai halaman dari tujuan link tersebut. Sehingga online diary ketika itu bisa juga dikatakan sebagai katalog link berdasarkan opini pemilik. Para diarist adalah editor yang memilih link mana yang menarik dan menampilkan link tersebut di online diarynya.

Pada tahun 1997, Jorn Barger, seorang programer yang juga mengelola website online diary “robot wisdom” menciptakan istilah weblog yang diambil dari kata “logging the web”. Logging bisa diartikan masuk. So, logging the web bisa diartikan “memasuki web”. Korelasinya adalah blogger awal di kala itu merupakan orang yang masuk ke belantara web dan menyortir link-link menarik berdasarkan opininya.

Hingga 1998, baru ada beberapa website yang dapat diidentifikasikan sebagai blog, hingga ketika itu menjelajahi semua weblog masih memungkingkan untuk di lakukan.

Pada tahun 1999, Peter Merholz menyebutkan istilah weblog sebagai wee-blog, hingga akhirnya dibuat pendek menjadi blog saja. Orang yang mengelola blog kemudian di sebut “blogger”.

Dari titik itulah semuanya berubah. Semakin hari, semakin banyak orang yang membuat blog. Pertumbuhan blog menjadi semakin signifikan ketika Pitas merilis Blogger.com pada Juli 1999. Blogger.com merupakan web service yang memungkinkan orang yang bahkan tidak memiliki kemampuan html sekalipun mampu menciptakan dan mengelola blog.

Di titik ini, blog benar-benar berubah. Bahkan definisi blog mulai bergeser.

Blog yang awalnya merupakan kumpulan link yang dikomentari oleh pemilik blog, mulai bergeser menjadi media ekspresi bebas semau pemilik blog yang ditampilkan secara kronologis terbalik.

Dari sini, semuanya benar-benar berubah. Blog bertumbuh demikian cepat. Terlebih setelah Movable Type diluncurkan dan wordpress sebagai project kelanjutan cms b2 dirilis ke publik sebagai blog engine.

Setelah itu, blog dan blogosphere terus berevolusi menjadi blogosphere yang kita huni hari ini

Read More...

Mencari Bilangan Terkecil dan Terbesar (Pascal)

Ini adalah sebuah coretan program pascal tentang mencari bilangan Terbesar dan Terkecil. Ada 3 variabel yang akan di bandingkan, tapi tidak berlaku jika ada 2 variabel yang sama, So Improve sendiri ya.

uses wincrt;
var
a,b,c,kcl,bsr:integer;



begin
     write('masukkan bil pertama: ');readln(a);
     write('masukkan bil kedua: ');readln(b);
     write('masukkan bil ketiga: ');readln(c);
     kcl:=a;
     bsr:=a;

     if (bsr<b) and (b>c)then
        bsr:=b
     else if (bsr<c) and (c>b) then
          bsr:=c ;


     if (kcl>b) and (b<c) then
        kcl:=b
     else if (kcl>c) and (c<b) then
          kcl:=c;

     if (a=b) and (b=c) then
        write('semua bilangan sama')
     else     
         begin
         writeln (bsr,' adalah bilangan terbesar.');
         write(kcl,' adalah bilangan terkecil.');
         end;
end.

kalau sudah baca dengan teliti, pasti bisa mendapatkan cara untuk membandingkannya dengan baik, kuncinya ada di operator pembandingnya.

Read More...

Menentukan Bilangan Ganjil atau Bilangan Genap

Untuk membuat program C++ yang menentukan bilangan ganjil atau bilangan genap, terlebih dahulu kita harus tahu bagaimana membedakan bilangan ganjil dan genap. Contoh bilangan ganjil adalah 1, 3, 5, 7, 9 dan seterusnya. Contoh bilangan genap adalah 2, 4, 6, 8 dan seterusnya. Sebelum bisa menentukan bilangan ganjil dan genap, anda harus mengetahui operator sisa pembagian (MOD) / modulus.

Operator sisa pembagian menghasilkan sisa hasil bagi, untuk lebih jelasnya lihat contoh berikut :

10 MOD 3 = 1

12 MOD 10 = 2

4 MOD 2 = 0

5 MOD 10 = 5

Kembali ke soal, logika jawabannya, bilangan genap adalah bilangan yang bisa dibagi dua, dalam arti bilangan genap adalah bilangan yang jika dibagi (dengan MOD) dua (2) maka sisa hasil baginya sama dengan nol. Sedangkan bilangan ganjil adalah sebaliknya, yaitu bilangan yang jika dibagi (MOD) dua (2) sisa hasil baginya sama dengan 1 (bukan 0). Contoh :

4 MOD 2 = 0 berarti 4 adalah bilangan genap.

13 MOD 2 = 1 berarti 13 adalah bilangan ganjil.

8 MOD 2 = 0 berarti 8 adalah bilangan genap.

25 MOD 2 = 1 berarti 25 adalah bilangan ganjil.

Berikut source kode untuk Menentukan Bilangan Ganjil atau Genap:

#include <iostream.h>

#include <conio.h>

main()

{

clrscr();

int bil, sisa;

cout<<"Masukkan sebuah bilangan : ";

cin>>bil;

sisa = bil % 2;

if(sisa == 0)

cout<<bil<<" adalah bilangan genap"<<endl;

else

cout<<bil<<" adalah bilangan ganjil"<<endl;

getch();

}

Semoga Bermanfaat !!

Read More...

Contoh Pernyataan For Sederhana Dalam Program C++

Dalam bahasa pemrograman C++ untuk melakukan perulangan (looping) yang paling umum digunakan adalah pernyataan For. Pernyataan For berguna untuk melakukan perulangan (looping) terhadap satu atau sejumlah pernyataan.

Contoh sederhana adalah untuk menampilkan tulisan C++ sebanyak 10 kali, seperti contoh program dibawah ini :

01	#include <iostream.h>

02	#include <conio.h>

03

04	void main()

05

{

06

clrscr();

07

int i;

08	for(i=0; i<10; i++)

09

{

10	cout<<"C++"<<endl;

11

}

12

getch();

13

}

Penjelasan Pernyataan For Sederhana Dalam Program C++ diatas :

Mula-mula kita membuat sebuah variabel baru yaitu i dengan tipe integer. Dalam pernyataan for, i diberi nilai awal yaitu 0. Kemudian dilakukan pengujian apakah i<10, karena hasilnya true maka pernyataan di dalam For dijalankan. Kemudian dilakukan increment terhadap i dalam pernyataan i++. Selanjutnya dilakukan pengujian lagi apakah i<10. Jika iya (true) maka pernyataan di dalam For dijalankan, jika tidak maka program dilanjutkan ke bawah For. Begitu seterusnya hingga pengujian i<10 bernilai false.

Read More...

Membuat Bentuk 3D Corel Draw

 Langkah-langkah di bawah ini :

1. Buat sebuah persegi dengan menggunakan Rectangle Tool. Kemudian warnai persegi tersebut dengan warna gradasi, caranya pilih Interactive Fill Tool (G) kemudian klik dan drag pada objek. Pada Property Bar, pilih Radial. berikan warna gradasi dari hijau muda ke hijau yang lebih pekat/gelap.bagian ini akan kita gunakan sebagai meja nya,lihat gamvar di bwah ini :

2. Buat sebuah lingkaran menggunakan Ellipse Tool, drag pada layar. untuk menjaganya agar tetap dalam bentuk proporsional, tekan Ctrl pada saat melakukan Drag.

3. Copy objek lingkaran tadi, caranya klik dan drag objek, kemudian klik kanan sebelum melepas klik kiri (itu cara simpelnya). Pada gambar, sengaja saya kasih warna biru untuk lingkaran hasil duplikat biar keliatan bedanya. Jika sudah selesai, klik pada kedua objek lingkaran dan pilih Intersect pada property bar untuk membuat objek baru di antara kedua lingkaran. Kemudian hapus lingkaran berwarna biru. Untuk lingkaran yang baru hasil intersect, beri warna putih.

4. lakukan langkah yang sama seperti pada step tiga. Namun kali ini, objek baru yang akan dibuat akan lebih besar. berikan warna hitam untuk objek baru tersebut. Hal ini ditujukan untuk membuat sebuah objek berupa garis dari bagian objek berwarna putih.

5. Buat sebuah pewarnaan gradasi untuk objek lingkaran (sama seperti step satu). berikan gradasi dari warna merah ke warna merah yang lebih gelap. Atur juga jenis gradasi kepada radial.

6. Duplikasi lagi objek lingkaran, lakukan sama seperti pada step tiga. tapi kali ini posisi objek duplikasi berbeda (lihat gambar). Kemudian pilih intersect, dan hapus lingkaran berwarna biru.

7. Berikan warna putih untuk objek hasil duplikasi tadi.

8. Pilih objek hasil duplikasi dan pilih Transparency Tool pada Tool box. Set jenis transparency menjadi Uniform dan atur nilai transparan-nya pada propery bar menjadi 70.

9. Buat teks angka 3 menggunakan Text Tool (T) dan miringkan sesuai gambar dibawah.

10. pilih objek angka 3 kemudian pada menu bar, pilih Effect>PowerClip>Place Insert Container.. maka akan keluar sebuah panah berwarna hitam. Arahkan panah tersebut ke arah objek bagian lingkaran berwarna putih.

11. Pilih objek berwarna putih, kemudian klik kanan lalu pilih edit contents. kemudian atur posisi dari objek angka 3. Jika sudah selesai, klik kanan lalu pilih Finish editing This Level.

12. Tambahkan bayangan pada objek bola dengan Drop Shadow Tool pada Tool Box. Atur posisi bayangan pada Property bar (lihat gambar) kemudian atur juga nilai transparancy dan blur dari bayangan (juga di property bar)

13. Selesai dech...nie hasil akhirnya.

Selamat berkreasi buat temen-temen yang suka dengan Design Grafis

Read More...

Sistem Operasi

Dalam Ilmu komputer, Sistem operasi atau dalam bahasa Inggris: operating system atau OS adalah perangkat lunak sistem yang bertugas untuk memberikan abstraksi terhadap kontrol dan manajemen perangkat keras serta operasi-operasi dasar sistem, yang digunakan oleh software aplikasi seperti program-program pengolah kata dan browser web.

Secara umum, Sistem Operasi adalah software pada lapisan pertama yang ditaruh pada memori komputer pada saat komputer dinyalakan. Sedangkan software-software lainnya dijalankan setelah Sistem Operasi berjalan, dan Sistem Operasi akan melakukan layanan inti umum untuk software-software itu. Layanan inti umum tersebut seperti akses ke disk, manajemen memori, skeduling task, dan antar-muka user. Sehingga masing-masing software tidak perlu lagi melakukan tugas-tugas inti umum tersebut, karena dapat dilayani dan dilakukan oleh Sistem Operasi. Bagian kode yang melakukan tugas-tugas inti dan umum tersebut dinamakan dengan "kernel" suatu Sistem Operasi.

Sistem Operasi saat ini

Sistem operasi-sistem operasi utama yang digunakan komputer sistem umum (termasuk PC, komputer personal) terbagi menjadi 3 kelompok besar:

1. Keluarga Microsoft Windows - yang antara lain terdiri dari Windows Desktop Environment (versi 1.x hingga versi 3.x), Windows 9x (Windows 95, 98, dan Windows ME), dan Windows NT (Windows NT 3.x, Windows NT 4.0, Windows 2000, Windows XP, Windows Server 2003, Windows Vista, Windows Server 2008, Windows 7 (Seven) yang dirilis pada tahun 2009, dan Windows 8 yang akan dirilis pada tahun 2012 atau lebih lambat)).
2. Keluarga Unix yang menggunakan antarmuka sistem operasi POSIX, seperti SCO UNIX, keluarga BSD (Berkeley Software Distribution), GNU/Linux, MacOS/X (berbasis kernel BSD yang dimodifikasi, dan dikenal dengan nama Darwin) dan GNU/Hurd.
3. Mac OS, adalah sistem operasi untuk komputer keluaran Apple yang biasa disebut Mac atau Macintosh. Sistem operasi yang terbaru adalah Mac OS X versi 10.6 (Snow Leopard). Musim panas 2011 direncanakan peluncuran versi 10.7 (Lion).

Sedangkan komputer Mainframe, dan Super komputer menggunakan banyak sekali sistem operasi yang berbeda-beda, umumnya merupakan turunan dari sistem operasi UNIX yang dikembangkan oleh vendor seperti IBM AIX, HP/UX, dll.

Read More...

Membuat Jam Digital Dengan Macromedia Flash

Langkah-langkahnya Untuk membuatnya cukup mudah anda hanya perlu mengikuti langkah-langkahnya dengan benar dan jadilah Jam Digital buatan anda sendiri. Ok langsung saja ke cara pembuatannya.

Langkah-langkahnya sebagai berikut :

- Buka aplikasi Macromedia Flash

- Pada Tab Create New pilih Flash Document

- Pilih Layer 1, dan pada Tab Tools pilih Text Tool (tekan T)

- Ketikkan angka 00 dan buat hingga 3 buah seperti gambar di bawah ini :

- Pilih satu-persatu dengan Selection Tool (tekan V) pada Tab Tools, kemudian pada Tab Properties pilih Dynamic Text untuk Text type

- Dan pada kotak Var isikan/ketikkan jam untuk yang akan dijadikan sebagai jam, ketikkan menit untuk yang akan dijadikan menit, dan ketikkan detik untuk yang akan dijadikan detik

- Pilih Frame 1 pada Layer 1 dan tekan F9 untuk membuka Action dan mengisi Script Program untuk jam, menit dan detik, kemudian Copy Paste / ketikkan Script Program seperti berikut :

onEnterFrame = function ()

{

waktu = new Date();

jam = waktu.getHours();

menit = waktu.getMinutes();

detik = waktu.getSeconds();

if (jam<10) {

jam = "0"+jam;

}

if (menit<10) {

menit = "0"+menit;

}

if (detik<10) {

detik = "0"+detik;

}

};

- Sekarang untuk jam, menit ,dan detik sudah selesai dan dapat dilihat hasilnya dengan menekan tombol CTRL+Enter

Read More...