Seputar Ilmu

Berikut ini Program yang dibuat dengan bahasa C++ untuk rangkaian Listrik ( switch-case ) #include <iostream> /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; int main(int argc, char *argv[]) { /*Dibaca tiga tahanan R1, R2 dan R3, kemudian tampilkan hambatan seri total (RS) atau hambatan paralel total (RP). jika input "1" maka tampilkan RS, jika input "2" maka tampilkan RP. jika tidak keduanya maka keluar program.*/ int menu; float R1, R2, R3, RS, RP;             cout<<"===========================================\n"; cout<<"| <<<<<  Program Rangkaian Listrik  >>>>> |\n"; cout<<"===========================================\n\n"; cout<<"Pilihan : \n"; cout<<"1. Hitung hambatan seri total (RS) \n"; cout<<"2. Hitung hambatan par...

function Fibonacci(n:integer)  ?  integer; Deklarasi :         a, b, c, i : integer; Algoritma :          if n = 0 then               return 0         else if n = 1 then               return  1            else               a  ? 0               b   ? 1               i  ? 2               while i<=n do                  c   ? a +b                  a  ? b                  b  ? c                  i    ? i+1             ...

C++  PROGRAM PANGKAT (REKURSIF) #include <iostream> #include <cstdlib> /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; int pangkat(int a, int N ){ if (N==0){ return (1); } else{ return (a*pangkat (a, N-1)); } } int main(int argc, char *argv[]) { int b, x, hasil_pangkat; cout<<"Masukkan bilangan yang akan dipangkatkan : "; cin>>b; cout<<"\nMasukkan jumlah pangkat : "; cin>>x; system("cls"); cout<<"=============================================\n"; cout<<"|        PROGRAM PANGKAT (REKURSIF)         |\n"; cout<<"|              SRI WAHYUNI                  |\n"; cout<<"|              1400018214                   |\n"; cout<<"|   ...

C++ Program Konversi Nilai Ujian #include <iostream> /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; int main(int argc, char *argv[]) { /*Dibaca nilai ujian mahasiswa dalam angka, konversikan nilai ujian tersebut kedalam kategori sebagai berikut : 80-100=A, 65-79=B, 55-64=C, 40-54=D, 0-40=E . Kemudian tampilkan hasilnya ke layar.*/ float nilai; cout<<"==============================================\n"; cout<<"| <<<<<  Program Konversi Nilai Ujian  >>>>> |\n"; cout<<"==============================================\n\n"; cout<<"Masukkan Nilai Ujian Mahasiswa : "; cin>>nilai; if (nilai>=80 && nilai<=100){ cout<<"Nilai "<<nilai<<" adalah A";} else if(nilai >=65 && nilai <80){ cout<<"Nilai "<<nilai...

C++ PROGRAM KONVERSI DETIK KE JAM, MENIT, DETIK sumber : selipan.com  #include <iostream> #include <string.h> /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; int main(int argc, char *argv[]) { struct jam{ int hh, mm, ss; }j;   int totaldetik, sisa; cout<<"Program Konversi Detik ke Jam, Menit dan Detik\n================================================\n"; cout<<"Masukkan total detik : "; cin>>totaldetik;           j.hh = totaldetik/3600; sisa = totaldetik%3600; j.mm = sisa/60; j.ss = sisa%60; cout<<totaldetik<<" detik = "<<j.hh<<" : "<<j.mm<<" : "<<j.ss; return 0; }

C++ PROGRAM DERET FIBONACCI ITERATIF #include <iostream> /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; void fibonacci(int N){ int U1 = 0, U2 = 1, U3; for (int i = 0; i<N; i++){ U3 = U1 + U2; if (i==0){ cout<<U1; } else if (i==1){ cout<<", "<<U2; } else{ cout<<", "<<U3; U1 = U2; U2 = U3; } } } int main(int argc, char *argv[]) { int a; cout<<"===========================================\n"; cout<<"|         PROGRAM DERET FIBONACCI         |\n"; cout<<"|              SRI WAHYUNI                |\n"; cout<<"|              1400018214                 |\n"; cout<<"|            <06 JUNI 2015...

C++ PROGRAM BILANGAN (terbesar, terkecil, rerata) #include <iostream> /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; int main(int argc, char *argv[]) { int bil, total, trbesar, trkecil, rata, i, n; total=0; cout<<"==================================\n"; cout<<"| <<<<<< PROGRAM BILANGAN >>>>>> |\n"; cout<<"==================================\n\n"; cout<<"Masukkan banyaknya bilangan : "; cin>>n; for(i=1; i<=n; i++){ cout<<"Masukkan bilangan : "; cin>>bil; total=total+bil; rata=total/n; if(i==1){ trbesar=bil; trkecil=bil; } else if(trkecil>bil){ trkecil=bil; } else if (trbesar<bil){ trbesar=bil; } else { } } cout<<"Jumlah Bilangan = "<<total<<endl; cout<<"Rata-rata = ...

C++ PROGRAM MENCARI BILANGAN TERBESAR DAN TERKECIL  ( CLASS ) #include <iostream> #include <cstdlib> using namespace std; /* run this program using the console pauser or add your own getch, system("pause") or input loop */ class Nilai { public: Nilai(); int awal(); int maksimal(); int minimal(); int jumlah(); private: int jum,satu,dua,mak,min; }; Nilai::Nilai(){ } int Nilai::awal(){ cout<<"Masukan banyaknya bilangan yang akan diproses ="; cin>>jum; //tahapan berapa banyak bialangan yang di proses. cout<<"masukan bilangan ke-1 ="; cin>>satu;    //menggunakan input awal sebagai patokan for (int i=2;i<=jum;i++){ cout<<"masukan bilangan ke-"<<i<<" ="; cin>>dua;  // mulai proses memasukan inputan bilangan yang lain. } } int Nilai::maksimal(){ mak=satu; if(mak>dua) cout<<"Bilangan terbesar adalah "<<satu<<endl; else if(mak==dua|...

Program Jam Digital Bahasa C++ ( tanpa CLASS ) #include <iostream> #include <ctime> #include <cstdlib> #include <windows.h> /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; int main(int argc, char *argv[]) { int jam, menit, detik;  //deklarasi objek yang memanfaatkan class dan struct yang ada di library time.h        time_t rawtime;     tm * timeinfo;  //proses pengambilan data waktu sistem        time ( &rawtime ); timeinfo = localtime ( &rawtime ); //proses pemindahan data waktu sesuai dengan format ke dalam variabel        jam=timeinfo->tm_hour;     //format untuk jam        menit=timeinfo->tm_min;    //format untuk menit        detik=timeinfo->tm_sec;    //format untuk detik while (true){ system ("cls"); cout...

Program JAM DIGITAL bahasa C++ menggunakan CLASS #include <iostream> #include <ctime> #include <cstdlib> #include <windows.h> /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; class Simulator{ public : Simulator(); int ambil_jam(); int proses(); private : int jam, menit, detik; }; Simulator::Simulator(){ } int Simulator::ambil_jam(){ //deklarasi objek yang memanfaatkan class dan struct yang ada di library time.h     time_t rawtime; tm * timeinfo; //proses pengambilan data waktu sistem     time ( &rawtime ); timeinfo = localtime ( &rawtime ); //proses pemindahan data waktu sesuai dengan format ke dalam variabel     jam=timeinfo->tm_hour;     //format untuk jam     menit=timeinfo->tm_min;    //format untuk menit     detik=timeinfo->tm_sec;    //format untuk detik } int Simulator::pr...

#include <iostream> using namespace std; int Fibonacci(int n){ int a, b, c, i; if(n==0){ return 0; } else if (n==1){ return 1; } else{ a=0; b=1; i=2; while (i<=n){ c=a+b; a=b; b=c; i=i+1; } return c; } } int main() { int i, n; cout<<"masukkkan deret fibonacci : ";cin>>n; cout<<endl; cout<<"deret fibonacci : "; for(i=0; i<n; i++){ cout<<Fibonacci(i)<<"  "; } return 0; }

Program Deret_Fibonacci; function Fibonacci(n:integer) : integer; var         a, b, c, i : integer; begin         if n = 0 then            begin            Fibonacci := 0;            end         else if n = 1 then            begin            Fibonacci := 1;            end            else            begin               a:=0;               b:=1;               i:=2;               while i<=n do               begin                  c:=a+b;           ...

function Pangkat(x, y : integer) ? integer Deklarasi lokal : {tidak ada} Algoritma :         if y=0 then            return 1         else           return (x*Pangkat(x,y-1))         endif. Program PangkatRek Deklarasi :         x, y, hasil : integer         function Pangkat(x, y : integer) ? integer Algoritma :        read(x, y)        hasil:=Pangkat(x,y)        write(x,'^',y,' = ',hasil)

Program dalam bahasa Pascal program PangkatRek; function Pangkat(x, y : integer) : integer; begin         if y=0 then           Pangkat:=1         else           Pangkat:=x*Pangkat(x,y-1); end; var         x, y, hasil : integer; begin         write('nilai x = ');readln(x);         write('pangkat = ');readln(y);         writeln();         hasil:=Pangkat(x,y);         writeln(x,'^',y,' = ',hasil); end. Program dalam bahasa C++ #include <iostream> using namespace std; int Pangkat(int x, int y){ if (y==0) return 1; else return x*Pangkat(x, y-1); } int main() { int x,y,hasil; cout<<"nilai x = ";cin>>x; cout<<"pangkat = ";cin>>y; cout<<endl; hasil=Pangkat(x,y); cout<<x<<"^"<<y<<" = "<<hasil; return 0; }

#include <iostream> using namespace std; struct Karyawan{ int jamkerja, gaji; string nik, nama, jkel; }krywan[500]; void BacaData(int N, Karyawan krywan[]){ int i; for (i=0; i<N; i++){ cout<<"Masukkan NIK : ";cin>>krywan[i].nik; cout<<"Masukkan Nama : ";cin>>krywan[i].nama; cout<<"Masukkan Jenis Kelamin : ";cin>>krywan[i].jkel; cout<<"Masukkan Jam Kerja: ";cin>>krywan[i].jamkerja; cout<<endl; } } void HitungGaji(int N, Karyawan krywan[]){ int i, gajipokok, gajilembur; gajipokok=1000000; gajilembur=25000; for (i=0; i<N; i++){ if(krywan[i].jamkerja > 48){ krywan[i].gaji=gajipokok+((krywan[i].jamkerja-48)*gajilembur); } else{ krywan[i].gaji=gajipokok; } } } void TampilDataPegawai(int N){ int i; cout<<"No\t"<<"NIK\t"<<"Nama\t\t"<<"JK\t"<<"Jam Kerja\t"<<"Gaj...

program OlahData; {Dibaca data pegawai dengan tabel NIK, Nama, JK, Jam Kerja, Gaji akan diolah datanya dengan soal: 1. Menginputkan data, 2. Mencetak data, 3. Jam Kerja Minimum, 4. Jam Kerja Maksimum, 5. Rata-rata jam kerja, 6. banyaknya karyawan yang lembur, 7. banyaknya karyawan yang jam kerjanya 48 jam. Program ini dibuat oleh INDRI AGUSTINA dengan JUJUR pada tanggal 29 Mei 2015} uses crt; const Nmaks=500; type   Karyawan = record     jamkerja: integer;     nik, nama, jkel : string[30];     gaji:longint;   end;   KaryawanArray = array[1..Nmaks] of Karyawan;   var krywan:KaryawanArray; procedure BacaData(N : integer ; var krywan:KaryawanArray); var   i: integer; begin   for i:=1 to N do   begin     write('Masukkan NIK : ');     readln(krywan[i].nik);     write('Masukkan Nama : ');     readln(krywan[i].nama);     write('Masukkan Jenis Kelamin : ');     readln(kry...

function tegangan (R, A : integer) : integer Deklarasi lokal :      (tidak ada) Algoritma :       return (R*A) Program Voltage {dibaca resistor dan arus, hitung voltage dan tampilkan hasilnya dilayar} Deklarasi :         R,A:integer;         V:integer;         function tegangan(R,A:integer) :integer; Algoritma :        read(R, A);         V ? tegangan(R,A);         write(V)

Program Tukar Tiga Bilangan menggunakan Bahasa Pascal program Tukar_Tiga_Bilangan; {Dibaca tiga buah bilangan yang bertipe data integer, ditukar ketiga bilangan kemudian tampilkan hasilnya di layar}         {Deklarasi}         var         a, b, c, d:integer;         begin                 write('Masukkan nilai bilangan A : ');                 readln(a);                 write('Masukkan nilai bilangan B : ');                 readln(b);                 write('Masukkan nilai bilangan C : ');                 readln(c);                 d:=a;                 a:=b;           ...

Program Voltage; {dibaca resistor dan arus, hitung voltage dan tampilkan hasilnya dilayar} var         R,A:integer;         V:integer;         function tegangan(R,A:integer) :integer; begin         V:=R*A; end; begin         write('masukkan R : ');readln(R);         write('masukkan A : ');readln(A);         V:=tegangan(R,A);         writeln('V = ',V); end.

#include <iostream> using namespace std; int tegangan(int R, int A){ return(R*A); } int main() { int R,A,V; cout<<"masukkan R : ";cin>>R; cout<<"masukkan A : ";cin>>A; V=tegangan(R,A); cout<<"V = "<<V; return 0; }

Program Tampil Ganjil menggunakan bahasa Pascal program tampil_ganjil; {buatlah program membaca sebuah bilangan bulat, jika bilangan itu ganjil maka tampilkan ke layar.} {deklarasi} var x:integer; {algoritma} begin writeln('Program Tampil Ganjil'); write('Masukkan bilangan : '); readln(x); if (x mod 2 = 1) then         writeln(x,' ADALAH BILANGAN GANJIL') end. HASIL COMPILE :

Program Rangkaian Listrik (switch-case) menggunakan bahasa Pascal program rangkaian_listrik; {Dibaca tiga tahanan R1, R2 dan R3.Disusun tahanan tersebut menjadi paralel  dan seri. Kemudian tampilkan hambatan seri total (RS) atau hambatan paralel  total (RP). jika input "1" maka tampilkan seri (RS), kalau "2" maka tampilkan  paralel (RP)} (*DEKLARASI*) var nomormenu:integer;   R1, R2, R3, RS, RP:real; (*ALGORITMA*) begin writeln('Program Rangkaian Listrik'); writeln('   '); writeln('Pilihan : '); writeln('1. Hitung Hambatan seri total (RS) '); writeln('2. Hitung hambatan paralel total (RP) '); writeln('3. Exit '); write('Masukkan pilihan anda [1/2/3?] : '); readln(nomormenu); case nomormenu of 1: begin        write('Masukkan nilai resistor 1 (R1) : ');        readln(R1);        write('Masukkan nilai resistor 2 (R2) : ');        readln(R2);        write('Masukkan ni...

program Konversi Nilai Ujian menggunakan Bahasa Pascal program Konversi_Nilai_Ujian; {Dibaca nilai ujian mahasiswa dalam angka, konversikan nilai tersebut kedalam kategori nilai sebagai berikut : 80-100=A, 65-79=B, 55-64=C, 40-54=D, 0-40=E. Kemudian tampilkan hasilnya ke layar } (*DEKLARASI*) var         nilai:real;         enter:char; (*ALGORITMA*) begin writeln('Program Konversi Nilai'); writeln('       '); write('Masukkan nilai ujian mahasiswa : '); readln(nilai); if (nilai >= 80) and (nilai <= 100) then         writeln(' nilai anda adalah A') else    if(nilai>=65) and ( nilai<=79) then         writeln(' nilai anda adalah B')       else if(nilai>=55) and ( nilai <=64) then                 writeln('nilai anda adalah C')                 else         ...

Program Wujud Air menggunakan Bahasa Pascal program Wujud_Air(SUHU); {Dibaca suhu air, tampilkan wujud air tersebut dengan ketentuan  suhu>100 adalah UAP, suhu 0 -100 adalah cair, suhu<0 adalah BEKU} {DEKLARASI} var suhu:real; (*ALGORITMA*) begin writeln('Program Wujud Air '); write('Masukkan suhu air : '); readln(suhu); if (suhu <0) then    writeln('BEKU') else     if (suhu>=0) and (suhu<=100) then        writeln('CAIR')     else         writeln('UAP') end. HASIL COMPILE :

Program Deret Fibonacci ( Iteratif ) menggunakan bahasa Pascal program Fibonacci_Iteratif; {Buatlah program deret fibonacci dengan batas sejumlah N.  Contoh : N = 5, maka Output : 0, 1, 1, 2, 3. Program ini dibuat oleh  SRI WAHYUNI-1400018214 pada tanggal 08 JUNI 2015 dengan SEJUJUR-JURURNYA.} uses crt; procedure fibonacci( N : integer); var    U1, U2, U3, i : integer; begin     U1 := 0;     U2 := 1;     for i := 1 to N do     begin         U3 := U1 + U2;         if (i=1) then         begin            write(U1);         end         else         begin              if (i=2) then              begin                 write(', ',U2);            ...

Program Pangkat Rekursif menggunakan bahasa Pascal program Pangkat_Rekursif; uses crt; function pangkat(a : integer; n : integer):integer; begin      if n = 0 then      begin          pangkat := (1);      end      else      begin          pangkat := (a*pangkat(a, n-1));      end; end; var    b, x, hasil_pangkat : integer; begin     write('Masukkan bilangan yang akan dipangkatkan : ');     readln(b);     write('Masukkan jumlah pangkat : ');     readln(x);     clrscr;     writeln('======================================');     writeln('|           PROGRAM PANGKAT (REKURSIF)          |');     writeln('|                          SRI WAHYUNI   ...

POTENSI KULINER KOTA KEDIRI Kediri adalah sebuah daerah di Provinsi Jawa Timur, Indonesia. Kediri ini merupakan pusat perdagangan utama untuk gula Indonesia dan industri rokok. kediri dinobatkan sebagai peringkat pertama Indonesia Most Recommended City for Investment pada tahun 2010.Mengenai makanan khas yang ada di kediri, makanan khas yang terpopuler adalah tumpang pecel, makanan

Bukti pembayaran kedua dari cpmoz.com . Cpmoz adalah jaringan penyedia layanan iklan yang berbasis CPM atau Cost Per Million yang memungkinkan kita untuk mudah mendapatkan penghasilan melalui dunia online,khususnya dengan menggunakan blog sebagai perantara. Cpmoz.com ini mirip dengan Popcash maupun Popads yang mungkin sudah terlebih dulu Anda kenal. Kita akan dibayar per seribu tayangan iklan. Jika tidak punya trafik besar juga bisa mendapatkannya,namun hanya sedikit. Jadi saran saya jika Anda ingin bermain situs CPM seperti ini,langkah yang paling utama yang harus Anda lakukan adalah memperbanyak konten atau postingan blog. Buatlah artikel yang unik dan semenarik mungkin supaya banyak orang yang tertarik ingin membaca atau hanya sekedar melihat isi blog Anda. Cpmoz.com ini cocok buat blog dengan niche Download yang sudah mempunyai pageview diatas 5000 per harinya. Usahakan juga jika Anda bermain dengan situs CPM seperti ini untuk selalu memperhatikan statistik blog Anda setiap hari....

POTENSI RELIGI KOTA KEDIRI Berikut 5 tempat wisata religi di Kota Kediri, sayang untuk dilewatkan. Tentu saja tujuannya agar manusia tidak hanya ingat dengan gemerlapan dunia, namun juga ingat dengan kodratnya sebagai manusia. Menuruti gemerlapan dunia akan membuat manusia lupa dan lebih banyak menuntut. 1. Masjid Agung Kota Kediri Masjid Agung Masjid Agung Kota Kediri,

Bukti pembayaran ketiga dari Bidvertiser.com . Bidvertiser adalah sebuah situs penyedia jaringan periklanan online yang mempunyai system sama seperti Google Adsense,yaitu PPC yang artinya dibayar setiap ada orang yang melakukan klik dari iklan tersebut. Iklan seperti ini sangat banyak diminati oleh para blogger dibanding dengan iklan yang menggunakan popup,atau biasa disebut CPM. Iklan dari situs PPC biasanya berupa iklan banner dan iklan teks. Jadi selain bisa untuk memonetise blog juga bisa untuk menambah menarik tampilan blog kita. Tapi sayangnya saat ini bidvertiser sudah tidak user friendly lagi untuk pengguna ponsel,khususnya pengguna Android. Karena tiap kali membuka blog yang ada iklan bidvertiser ini akan dialihkan menuju google play atau playstore. Tentu saja hal seperti ini akan sangat merugikan sekali,apalagi jika blog kita banyak yang mengakses menggunakan gadget Android. Tapi jika blog Anda mempunyai trafik yang sebagian besar menggunakan desktop/komputer,Anda bisa menggu...

POTENSI WISATA SEJARAH KOTA KEDIRI Kebudayaan yang tercipta hingga sekarang ini memiliki peninggalan yang bersejarah dari zaman dahulu di mana kita dapat menikmati peninggalan tersebut hingga saat ini. Di lihat dari usianya, rata-rata bangunan-bangunan bersejarah tersebut berusia lebih dari seratus tahun. Bangunan-bangunan yang sampai saat ini berdiri kokoh tersebut bisa menjadi sarana

Virus Adware merupakan virus yang selalu menampilkan iklan di mana-mana. Virus ini biasanya menempel pada toolbar dan ekstensi yang ada di browser, namun tidak jarang virus ini berada di sebuah program seperti yang saya alami. Virus ini biasanya sangat jarang terlacak oleh antivirus, oleh karena itu kita membutuhkan tools tambahan untuk menghapus virus Adware ini. Yang juga perlu diwaspadai

POTENSI WISATA ALAM KOTA KEDIRI Kediri, maka di sana terdapat salah satu pesona tempat wisata di Kediri yang terkenal, yakni wisata Gunung Klotok, yang juga merupakan salah satu destinasi wisata Jawa Timur yang populer untuk dikunjungi. Pesona keindahan wisata alam di Kota Kediri memang telah dikenal banyak orang. Di sana, Anda dapat merasakan pengalaman wisata alam yang menyegarkan.

Poweramp is a powerful music player for Android. Follow us on twitter @Poweramp2 to get instant updates on app development progress, feature spotlight, theme sharing, take part in giveaways and even chances for free copies of Poweramp. Please check Common Questions/Answers below in the description. You can downgrade back to 1.4 by downloading it from official Poweramp site. Features � plays mp3, mp4/m4a (including alac), ogg, wma*, flac, wav, ape, wv, tta, mpc, aiff (* some wma pro files may require NEON support) � 10 band optimized graphical equalizer for all supported formats, presets, custom presets � separate powerful Bass and Treble adjustment. Download 

Internet Explorer merupakan browser legendaris yang sudah berjaya sejak datangnya Windows XP. Lama kelamaan browser default Windows tersebut semakin tergantikan oleh browser-browser lain yang lebih populer seperti Google Chrome dan Mozilla Firefox. Kemudian Internet Explorer semakin sedikit penggunanya karena ada kabar bahwa Internet Explorer memiliki tingkat keamanan yang rendah dan sering

Program Persamaan_Kuadrat {Dibaca koefisien persmaan kuadrat tampilkan akar dan jenisnya} Deklarasi : a, b, c : integer D, x, x1, x2 : real Algoritma : read (a, b, c) if a=0 then          write('bukan persamaan kuadrat') else          D  ? (b*b) - (4*a*c)          if (D < 0) then                   write ('akar-akanya imajiner')                  else if (D = 0) then                         x  ? (-b/2)*a                         write ('akar-akarnya kembar', x)                         else                             write ('akar-akarnya berbeda')       ...