Selasa, 30 Juni 2015

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 paralel total (RP)\n";
cout<<"3. Not Found \n\n";
cout<<"Masukkan pilihan Anda [1/2/3 ?] : ";
cin>>menu;

switch(menu){
case 1:
cout<<"Masukkan nilai resistor 1 (R1) : ";
cin>>R1;
cout<<"\nMasukkan nilai resistor 2 (R2) : ";
cin>>R2;
cout<<"\nMasukkan nilai resistor 3 (R3) : ";
cin>>R3;
RS=R1+R2+R3;
cout<<"Hambatan seri total = "<<RS<<" ohm";
break;
case 2:
cout<<"Masukkan nilai resistor 1 (R1) : ";
cin>>R1;
cout<<"\nMasukkan nilai resistor 2 (R2) : ";
cin>>R2;
cout<<"\nMasukkan nilai resistor 3 (R3) : ";
cin>>R3;
RP=(1/(1/R1+1/R2+1/R3));
cout<<"Hambatan paralel total = "<<RP<<" ohm";
break;
case 3 :
cout<<"Not Found ";
break;
default:
cout<<" ";
break;
}
return 0;
}

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
                       return  c;
         endwhile
      endif
   endif


Program Fibonacci1
Delarasi :
        i, n:integer
Algoritma :
       read(n)
        for i:= 0 to n-1 do
           write(Fibonacci(i))
       endfor
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<<"|            <06 JUNI 2015>                 |\n";
cout<<"=============================================\n\n";
hasil_pangkat = pangkat(b, x);
cout<<"b = "<<b<<endl;
cout<<"x = "<<x<<endl<<endl;
cout<<"b^x = "<<b<<"^"<<x<<endl;
cout<<"    = "<<hasil_pangkat;
return 0;
}

HASIL COMPILE :


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<<" adalah B";}
else if(nilai >=55 && nilai<65){
cout<<"Nilai "<<nilai<<" adalah C";}
else if (nilai >=40 && nilai <55){
cout<<"Nilai "<<nilai<<" adalah D";}
else {
cout<<"Nilai "<<nilai<<" adalah E";}
return 0;
}
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>               |\n";
cout<<"===========================================\n\n";
cout<<"Masukkan batas : ";
cin>>a;
cout<<"Deret Fibonacci : ";
fibonacci(a);
return 0;}

HASIL COMPILE :


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 = "<<rata;
cout<<"\nBilangan Terbesar = "<<trbesar;
cout<<"\nBilangan Terkecil = "<<trkecil;

return 0;
}

HASIL COMPILE :





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||mak<dua)
cout<<"Bilangan terbesar adalah "<<dua<<endl;
}

int Nilai::minimal(){
min=satu;
if(min<dua)
cout<<"Bilangan terkecil adalah "<<satu<<endl;
else if(min==dua || min>dua)
cout<<"Bilangan terbesar adalah "<<satu<<endl;
}

int Nilai::jumlah(){
if ((satu>0)&&(dua>0))  //mencari jumlah bilangan positif yang dimasukan.
cout<<"Jumlahnya"<<((satu)+(dua))<<endl;
  else
  cout<<"tidak ada nilai positif"<<endl;
}

int main(int argc, char *argv[]) {
Nilai x;
x.awal();
x.maksimal();
x.minimal();

return 0;
}

HASIL COMPILE :


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<<"==========================================\n";
cout<<"||\t\t\t\t\t||\n";
cout<<"||\t\tJAM DIGITAL\t\t\||\n";
cout<<"||\t\t  ";
cout<<jam<<":"<<menit<<":"<<detik;
cout<<"\t\t||\n";
cout<<"||\t\t\t\t\t||\n==========================================\n\n";
Sleep(1000);
detik=detik+1;
if (detik>59){
detik=0;
menit=menit+1;
if(menit>59){
menit=0;
jam=jam+1;
if(jam>23){
jam=0;
}
}
}
}
return 0;
}

hasil compile :




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::proses(){
while (true){
system ("cls");
cout<<"==========================================\n";
cout<<"||\t\t\t\t\t||\n";
cout<<"||\t\tJAM DIGITAL\t\t\ ||\n";
cout<<"||\t\t  ";
cout<<jam<<":"<<menit<<":"<<detik;
cout<<"\t\t||\n";
cout<<"||\t\t\t\t\t||\n==========================================\n\n";
Sleep(1000);
detik=detik+1;
if (detik>59){
detik=0;
menit=menit+1;
if(menit>59){
menit=0;
jam=jam+1;
if(jam>23){
jam=0;

}
}
}
}

}

int main(int argc, char *argv[]) {
Simulator digital;
digital.ambil_jam();
digital.proses();

return 0;
}

Hasil Compile :




#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;
                 a:=b;
                 b:=c;
                 i:=i+1;
              end;
              Fibonacci := c;
           end;
end;

var
        i, n:integer;
begin
        write('masukkan deret fibonacci : ');
        readln(n);
        writeln();
        write('deret fibonacci : ');
        begin
        for i:= 0 to n-1 do
           write(Fibonacci(i),'  ');
        end;
end.
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"<<"Gaji\t"<<endl;
for(i=0;i<N;i++){
cout<<i+1<<"\t"<<krywan[i].nik<<"\t"<<krywan[i].nama<<"\t\t"<<krywan[i].jkel<<"\t";
cout<<krywan[i].jamkerja<<"\t\t"<<krywan[i].gaji<<"\t"<<endl;
}
cout<<endl;
}

int MaxJamKerja(int N, Karyawan krywan[]){
int i,max;
max = -1;
for(i=0; i<N; i++){
if(krywan[i].jamkerja>max){
max=krywan[i].jamkerja;
}
}
return(max);
}

int MinJamKerja(int N, Karyawan krywan[]){
int i,min;
min = 999;
for(i=0; i<N; i++){
if(krywan[i].jamkerja<min){
min=krywan[i].jamkerja;
}
}
return(min);
}

float Rata(int N, Karyawan krywan[]){
int i;
float jum;
jum = 0;
for(i=0; i<N; i++){
jum = jum + krywan[i].jamkerja;
}
return(jum/N);
}

int karyawanlembur(int N, Karyawan krywan[]){
int i,total;
total=0;
for(i=0;i<N;i++){
if(krywan[i].jamkerja>48){
total=total+1;
}
}
return(total);
}

int jamkrjnormal(int N, Karyawan krywan[]){
int i,total;
total=0;
for(i=0;i<N;i++){
if(krywan[i].jamkerja==48){
total=total+1;
}
}
return(total);
}

void CariKaryawan(int N, Karyawan krywan[], string namaygdicari){
int i;
bool ketemu;

i=1;
ketemu = false;

while ((i<=N) && (not ketemu)){
if(krywan[i].nama == namaygdicari)
ketemu = true;
else
i=i+1;
}
if (ketemu)
cout<<"Data ditemukan";
else
cout<<"Data tidak ditemukan";
cout<<endl;
}

int main() {
int N, Max, Min, Lembur, Normal;
string namaygdicari;
float Rata_Rata;

cout<<"       PROGRAM GAJI PEGAWAI       "<<endl;
cout<<"          INDRI AGUSTINA          "<<endl;
cout<<"dibuat dengan JUJUR tgl 29 Mei 2015"<<endl<<endl;

cout<<"Masukkan Banyak Data Karyawan : ";cin>>N;
cout<<endl;

BacaData(N, krywan);
HitungGaji(N, krywan);
TampilDataPegawai(N);

Max = MaxJamKerja(N,krywan);
cout<<"Jam Kerja Terbanyak = "<<Max<<endl;

Min = MinJamKerja(N,krywan);
cout<<"Jam Kerja Terendah = "<<Min<<endl;

Rata_Rata=Rata(N,krywan);
cout<<"Rata-rata Jam Kerja = "<<Rata_Rata<<endl;

Lembur = karyawanlembur(N,krywan);
cout<<"Banyaknya Karyawan yang Lembur = "<<Lembur<<endl;

Normal = jamkrjnormal(N,krywan);
cout<<"Banyaknya Karyawan yang Jam Kerjanya 48 jam = "<<Normal<<endl;

cout<<"Masukkan nama yang dicari : ";cin>>namaygdicari;
CariKaryawan(N, krywan, namaygdicari);

return 0;
}
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(krywan[i].jkel);
    write('Masukkan Jam Kerja : ');
    readln(krywan[i].jamkerja);
    writeln();
  end;
end;

Procedure HitungGaji(N:integer);
var
   i: integer;
   const gajipokok=1000000;
   const gajilembur=25000;
begin

    for i:=1 to n do
    begin
         if krywan[i].jamkerja > 48 then
         begin
             krywan[i].gaji:=gajipokok+((krywan[i].jamkerja-48)*gajilembur);
         end
         else
         begin
             krywan[i].gaji:=gajipokok;
         end;
    end;
end;

procedure TampilDataPegawai(N : integer);
var
  i : integer;
begin
  write('NIK      ','Nama   ','JK    ','Jam Kerja    ','Gaji      ');
  writeln();
  for i:=1 to N do
  begin
    write(krywan[i].nik,'       ');
    write(krywan[i].nama,'      ');
    write(krywan[i].jkel,'      ');
    write(krywan[i].jamkerja,'     ');
    write(krywan[i].gaji,'        ');
    writeln();
  end;
end;

function Rata(N : integer) : real;
var
  i : integer;
  jum : real;
begin
  jum := 0;
  for i:=1 to N do
  begin
    jum := jum + krywan[i].jamkerja;
  end;
  Rata := jum/N;
end;

function MaxJamKerja(N : integer) : integer;
var
  i, max : integer;
begin
  max := -1;
  for i:=1 to N do
  begin
    if(krywan[i].jamkerja > max) then
      max := krywan[i].jamkerja;
  end;
  MaxJamKerja := max;
end;

function MinJamKerja(N : integer) : integer;
var
  i, min : integer;
begin
  min := 999;
  for i:=1 to N do
  begin
    if(krywan[i].jamkerja < min) then
      min := krywan[i].jamkerja;
  end;
  MinJamKerja := min;
end;

function karyawanlembur(N : integer) : integer;
var
  i, total : integer;
begin
  total := 0;
  for i:=1 to N do
  begin
    if(krywan[i].jamkerja > 48) then
      total := total+ 1;
  end;
  karyawanlembur := total;
end;

function jamkrjnormal(N : integer) : integer;
var
  i, total : integer;
begin
  total := 0;
  for i:=1 to N do
  begin
    if(krywan[i].jamkerja = 48) then
      total := total+ 1;
  end;
  jamkrjnormal := total;
end;

procedure CariKaryawan(N :integer; var krywan:KaryawanArray; namaygdicari:string);
var
        i : integer;
        ketemu : boolean;

begin
        i:=1;
        ketemu := false;
        while (i<=N) and (not ketemu) do
        begin
          if(krywan[i].nama = namaygdicari) then
              ketemu := true
          else
              i:=i+1;
        end;
        if(ketemu) then
           write('Data ditemukan')
        else
           write('Data tidak ditemukan');
end;

var
  N, min, max, Lembur, Normal : integer;
  namaygdicari:string;
  Rata_Rata : real;

begin
    write('Banyak data mahasiswa : ');
    readln(N);
    writeln();

  BacaData(N, krywan);
  HitungGaji(N);
  TampilDataPegawai(N);

  Rata_Rata := Rata(N);
  writeln('Rata-rata Jam Kerja = ', Rata_Rata);

  max := MaxJamKerja(N);
  writeln('Jam Kerja Maksimum = ', max);

  min := MinJamKerja(N);
  writeln('Jam Kerja Minimum  = ', min);

  Lembur := karyawanlembur(N);
  writeln('Banyaknya karyawan yang Lembur  = ', Lembur);

  Normal := jamkrjnormal(N);
  writeln('Banyaknya karyawan yang Jam Kerjanya 48 jam  = ', Normal);

  write('Masukkkan nama yang dicari : '); readln(namaygdicari);
  CariKaryawan(N, krywan, namaygdicari);
end.
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;
                b:=c;
                c:=d;

                writeln('A = ',a,'  B = ',b,'  C = ',c);
end.


HASIL COMPILE :


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 nilai resistor 3 (R3) : ');
       readln(R3);
       RS:=R1+R2+R3;
       writeln('Besar hambatan seri total = ',RS,' ohm');
       end;
2: begin
       write('Masukkan nilai resistor 1 (R1) : ');
       readln(R1);
       write('Masukkan nilai resistor 2 (R2) : ');
       readln(R2);
       write('Masukkan nilai resistor 3 (R3) : ');
       readln(R3);
       begin
       RP:= (1/(1/R1+1/R2+1/R3));
       writeln('Besar hambatan paralel total = ',RP,' ohm');
       end;
       end;
3:begin
        write('   ');
        end;
        end;

 end.


HASIL COMPILE :




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
                   if(nilai>=40) and (nilai <=54) then
                        writeln('nilai anda adalah D')
                        else
                         writeln('nilai anda adalah E');
write('Tekan Enter untuk EXIT');
readln(enter);
end.


HASIL COMPILE :





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);
             end
             else
             begin
                  write(', ',U3);
                  U1 := U2;
                  U2 := U3;
             end;
        end;
    end;
end;

var
   a : integer;
begin
writeln('=========================================');
writeln('|   PROGRAM DERET FIBONACCI(ITERATIF)   |');
writeln('|             SRI WAHYUNI               |');
writeln('|             1400018214                |');
writeln('|           <08 JUNI 2015>              |');
writeln('=========================================');
writeln(' ');

write('Masukkan batas : ');
readln(a);
write('Deret Fibonacci : ');
fibonacci(a);

end.


Hasil Compile :



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                               |');
    writeln('|                              1400018214                                  |');
    writeln('|                           <08 JUNI 2015>                              |');
    writeln('======================================');
    writeln(' ');
    writeln('b = ', b);
    writeln('x = ', x);
    writeln(' ');

    hasil_pangkat := pangkat(b, x);
    writeln('b^x = ', b,'^',x);
    writeln('    = ',hasil_pangkat);
end.

Hasil Compile :



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. Apakah trafik blog turun atau tidak. Nah jika trafik blog turun sebaikknya Anda lepas dulu iklannya,baru kemudian pasang lagi setelah trafik blog kembali normal.

Berikut ini bukti pembayaran dari situs CPMOZ.COM yang kedua saya. Yang pertama sudah pernah saya update di Bukti pembayaran cpmoz.com.

Pembayaran kedua dari cpmoz.com
Saat ini system pembayaran dari CPMOZ.COM dilakukan setiap awal minggu,dan harus menunggu jika Anda payout di hari selasa. Payoutnya dilakukan secara otomatis jika saldo kita sudah mencapai 5USD. Yang paling saya suka dari situs ini adalah ketika waktunya payout seperti ini. Misalkan kita setting minimal payout 5USD maka yang akan dibayarkan adalah semua saldo yang ada di balance akun kita.

Artinya mereka akan membayarkan semua saldo meskipun minimal payoutnya kita setting pas 5USD tidak lebih. Berbeda dengan situs lain,ketika kita setting 5USD maka yang akan diberikan ya 5USD saja tidak lebih. Jika Anda tertarik dengan CPM tersebut,silahkan daftar melalui link Cpmoz.com,situs cpm terpercaya terbukti membayar.

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 menggunakan jaringan periklanan ini untuk memonetise blog Anda. Apalagi bagi blog yang tidak dapat diterima google adsense.

Berikut ini bukti pembayaran dari bidvertiser.com saya yang ketiga. Cukup kecil tapi lumayanlah buat nambah-nambah saldo paypal.
bukti Pembayaran ke 3 dari bidvertiser.com

Pembayaran dari bidvertiser ini konsisten dilakukan setiap akhir bulan. Akan diproses setelah saldo kita telah mencapai minimal payout,yaitu sebesar 10USD. Systemnya otomatis,misalkan di bulan ini kita sudah mendapatkan 10USD,maka akan dibayarkan di bulan berikutnya lagi,terus berputar seperti itu. Jika Anda tertarik silahkan daftar di Sini Situs PPC yang membayar Dollar.

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')
                            x ? (-b + ( sqrt (D)))/2 *a
                            ? (-b - ( sqrt (D)))/2 *a
                            write (x1, x2)
                        endif
                endif
endif



#include <iostream>
#include <math.h>
using namespace std;

int main() {
int a, b, c;
float D, x, x1, x2;

cout<<"Nilai a : ";cin>>a;
if(a==0)
cout<<"bukan persamaan kuadrat";
else{
cout<<"nilai b : ";cin>>b;
cout<<"nilai c : ";cin>>c;
D=(b*b)-(4*a*c);
if(D<0)
cout<<"akar-akarnya imajiner"<<endl;
else if (D==0){
x=(-b/2)*a;
cout<<"akar-akarnya kembar : "<<x;
}
else{
cout<<"akar-akarnya berbeda";
x1=(-b+(sqrt(D)))/2*a;
x2=(-b-(sqrt(D)))/2*a;
cout<<"x1 : "<<x1<<endl;
cout<<"x2 : "<<x2;
}
}
return 0;
}