C++ Program Rangkaian Listrik ( switch-case )

C++ Program 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;
}

HASIL COMPILE :

Read More

C++ PROGRAM PANGKAT (REKURSIF)

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 :

Read More

C++ Program Konversi Nilai Ujian

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;
}

Read More

C++ PROGRAM KONVERSI DETIK KE JAM, MENIT, DETIK

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;

}

Read More

C++ PROGRAM DERET FIBONACCI ITERATIF

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 :

Read More

C++ PROGRAM BILANGAN (terbesar, terkecil, rerata)

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 :

Read More

C++ PROGRAM MENCARI BILANGAN TERBESAR DAN TERKECIL ( CLASS )

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 :

Read More

C++ PROGRAM PERSAMAAN KUADRAT 

C++ PROGRAM PERSAMAAN KUADRAT 

#include <iostream>
#include <math.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 a, b, c;
float x1, x2, D;

cout<<"=========================================\n";
cout<<"| <<<<<<PROGRAM PERSAMAAN KUADRAT>>>>>> |\n";
cout<<"=========================================\n\n";
cout<<"Masukkan nilai a = "; cin>>a;
cout<<"\nMasukkan nilai b = "; cin>>b;
cout<<"\nMasukkan nilai c = "; cin>>c;

D=((b*b)-4*(a*c));

if (a==0){
cout<<"Bukan Persamaan Kuadrat";
}
else if (D>0){
x1=((-b)+(sqrt(D)))/(2*a);
x2=((-b)-sqrt(D))/(2*a);
cout<<"persamaan kuadrat ("<<a<<"^2)x + "<<b<<"x +"<<c<<" mempunyai akar-akar yang berbeda yaitu : \n";
cout<<"X1 = "<<x1<<endl;
cout<<"X2 = "<<x2<<endl;
}
else if (D==0){
x1=(-b)/(2*a);
x2=x1;
cout<<"persamaan kuadrat "<<a<<"^2 + "<<b<<"x +"<<c<<" mempunyai akar-akar kembar yaitu : \n";
cout<<"X1 = "<<x1<<endl;
cout<<"X2 = "<<x2<<endl;
} else { cout<<"Akar Imaginer";
}
return 0;
}

HASIL COMPILE :

Read More

C++ Program Jam Digital (tanpa CLASS )

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 :

Read More

C++ Program JAM DIGITAL ( CLASS )

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 :

Read More

Pascal - Program Tukar Tiga Bilangan

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 :

Read More

Pascal - Program Tampil Ganjil

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 :

Read More

Pascal - Program Rangkaian Listrik (switch-case)

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 :

Read More

Pascal - Program Konversi Nilai Ujian

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 :

Read More

Pascal - Program Wujud Air

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 :

Read More

Pascal - Program Deret Fibonacci ( Iteratif )

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 :

Read More

Pascal - Program Pangkat Rekursif

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 :

Read More

Pascal - Program Gaji Pegawai

Berikut ini adalah source code Program Gaji pegawai menggunakan bahasa Pascal.

program Gaji_Pegawai;

{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 NIM.1400018214-SRI WAHYUNI dengan JUJUR

 pada tanggal 30 Mei 2015}

uses crt;

const Nmaks=500;

type

  karyawan=record

        nama, nik : string[25];

        jk : char;

        jamkerja:integer;

        gaji : longint;

  end;

  karyawanArray=array[1..Nmaks] of karyawan;

procedure BacaPegawai(N:integer; var krywan:karyawanArray);

var

   i : integer;

begin

    for i:=1 to N do

    begin

        write('Masukkan NIK Karyawan : '); readln(krywan[i].nik);

        write('Masukkan Nama Karyawan : '); readln(krywan[i].nama);

        write('Masukkan Jenis Kelamin [L/P] : '); readln( krywan[i].jk);

        write('Masukkan Jam Kerja/Minggu : '); readln(krywan[i].jamkerja);

    end;

end;

procedure Gaji(N:integer; var krywan : karyawanArray);

var

   i : integer;

   const gajipokok = 2000000;

   const lembur = 50000;

begin

     for i:= 1 to N do

     begin

        if (krywan[i].jamkerja > 48) then

        begin

            krywan[i].gaji := gajipokok+((krywan[i].jamkerja-48)*lembur);

        end

        else

        begin

            krywan[i].gaji:=gajipokok;

        end;

     end;

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

          if (krywan[i].nama = namaygdicari) then

          begin

             ketemu := true;

          end

          else

          begin

         i := i + 1;

         end;

    if (ketemu) then

    begin

       write('Nama ',namaygdicari,' ditemukan');

    end

    else

    begin

        writeln('Nama ',namaygdicari,' tidak ditemukan');

    end;

end;

function rataJamKerja(N:integer; krywan:karyawanArray):real;

var

   i, jml:integer;

begin

   jml:=0;

   for i:=1 to N do

   begin

        jml:=jml+krywan[i].jamkerja;

   end;

   rataJamKerja:=jml/N;

end;

function minimumJamKerja(N: integer; krywan:karyawanArray):integer;

var

   i, min : integer;

begin

   min:=1000;

   for i:=1 to N do

   begin

        if (krywan[i].jamkerja<min) then

        begin

           min:=krywan[i].jamkerja;

        end;

   end;

   minimumJamKerja:=min;

end;

function maxJamKerja(N:integer; krywan:karyawanArray):integer;

var

   i, max : integer;

begin

   max := -1;

   for i:=1 to N do

   begin

        if ( krywan[i].jamkerja > max ) then

        begin

           max := krywan[i].jamkerja;

        end;

   end;

   maxJamKerja := max;

end;

function karyawanLembur(N:integer; krywan : karyawanArray) : integer;

var

   i, lmbur : integer;

begin

     lmbur := 0;

     for i := 1 to N do

     begin

        if (krywan[i].jamkerja > 48 ) then

        begin

           lmbur := lmbur + 1;

        end;

     end;

     karyawanLembur := lmbur;

end;

function karyawanNormal ( N : integer; krywan : karyawanArray ) : integer;

var

   i, normal : integer;

begin

   normal := 0;

   for i := 1 to N do

   begin

        if krywan[i].jamkerja = 48 then

        begin

           normal := normal + 1;

        end;

   end;

   karyawanNormal := normal;

end;

procedure TampilData (N: integer; var krywan : karyawanArray);

var

   i : integer;

begin

     writeln('NIK         Nama        JK     Jam Kerja   Gaji          ');

     for i :=1 to N do

     begin

        write(krywan[i].nik,'         ', krywan[i].nama,'         ');

        write(krywan[i].jk,'       ', krywan[i].jamkerja,'          ');

        writeln(krywan[i].gaji);

     end;

end;

var

   N, jum, min, maxi, Nnormal, Nlembur : integer;

   rerata : real;

   namadicari, enter : string;

   krywan : karyawanArray;

begin

     write('Masukkan Banyaknya Karyawan : '); readln(N);

     writeln(' ');

     BacaPegawai(N, krywan);

     writeln(' ');

     Gaji(N, krywan);

     TampilData(N, krywan);

     writeln(' ');

     rerata := rataJamKerja(N, krywan);

     writeln('Rata-rata Jam Kerja : ', rerata);

     min := minimumJamKerja(N, krywan);

     writeln('Jam Kerja Paling sedikit : ', min);

     maxi := maxJamkerja(N, krywan);

     writeln('Jam Kerja Paling Banyak : ', maxi);

     Nnormal := karyawanNormal (N, krywan);

     writeln ('Banyaknya karyawan yang kerja 48 jam : ', Nnormal);

     Nlembur := karyawanLembur (N, krywan);

     writeln ('Banyaknya karyawan yang lembur : ', Nlembur);

     write('Masukkan nama karyawan yang dicari : ');

     readln(namadicari);

     Carikaryawan(N, krywan, namadicari);

     writeln(' ');

     write('Tekan enter untuk EXIT'); readln(enter);

end. 

Hasil Tampilan Setelah diRunning :

Read More

Program C++ - Titik Tengah

Program C++ - Titik Tengah

Hello, guys... Jumpa lagi di blog ku yang sederhana ini.

yaa.. Setelah beberapa minggu lamanya aku vakum dari dunia blogger dikarenakan saking banyaknya tugas kuliah hingga membuatku lupa sejenak sama blogku tercinta ini, kini aku kembali lagi untuk sekedar berbagi ilmu dengan kalian wahai para sahabat bukailmu... 

Kali ini aku akan sharing ilmu mengenai program titik tengah menggunakan bahasa C++. Karena aku tidak suka berbasa-basi jadi langsung saja aku share programnya yaa.. Ini dia source code dari program C++ Titik Tengah yang pernah aku buat... 

/* Program HitungTitikTengah */ 
/* Program untuk menghitung titik tengah dari dua buah titik di bidang. */ 
#include <iostream>

using namespace std;

int main(int argc, char *argv[]) {

struct Titik{ 
float x,y; 
}P1, P2, P3;

cout<<"==================================\n";
cout<<"====== Program Titik Tengah ======\n";
cout<<"========== SRI WAHYUNI ===========\n";
cout<<"=================================\n\n";
cout << " Titik P1 : " << endl; 
cout << " x = "; cin >> P1.x ; 
cout << " y = "; cin >> P1.y ; 
cout << " Titik P2 :" << endl; 
cout << " x = "; cin >> P2.x ;
cout << " y = " ; cin >> P2.y ; 
P3.x = (P1.x + P2.x)/2; 
P3.y = (P1.y + P2.y)/2; 

cout << " Titik Tengah : ( "<< P3.x << ","<< P3.y<<" )" ; 

 return 0;

} 

berikut ini adalah hasil tampilan setelah dicompile : 

Read More

Haruskah Begitu?

Haruskah Begitu?

Karya : Sri Wahyuni  

Kini tak ada lagi rindu yang merayap dihatiku.

Rindu yang slalu menghantui disaat kau melintas dalam fikiranku

Mungkin, kini aku akan mulai acuh kepadamu

Aku akan mulai memudar untukmu 

Rindu yang terus kutahan sejak dulu, kini aku sudah mulai lelah menahannya

Tak kuasa ku menahan rinduku terhadapmu yang ku rindu

Hari-hari kujalani seperti biasa walau tanpa mu

Tapi, aku tak tahu.. mengapa ada yang tidak biasa yang kurasakan dalam hatiku 

Hatiku tak terbiasa menjalani hari-hari hampa tanpa kabar, suara dan pesan dari dirimu

Mungkin kini aku akan benar-benar mencoba untuk menjauh darimu

Untuk membiasakan diri jikalau kau tak  ada disisiku, dengar! Tapi aku tak mengharapkan itu!

Akan akan mencoba membiasakan diri dengan itu semua

Sudah cukup lama dari satu bulan yang lalu kau mulai jarang memmberi kabar padaku

Kau tak mengkhawatirkanku, memperdulikanku, dan sepertinya kau juga tak punya hasrat untuk menemuiku meski hanya satu kali

Aku slalu merindumu ….

Entah mengapa aku slalu betah untuk merindumu

Air mata berjatuhan saat tau bahwa kau sudah tak ada hasrat untuk merindukanku

Dalam senyum yang mengembang ini tersimpan sebuah tangisan hati, keinginan hati  yang  ingin kau mengerti

“Diri ini ingin sesekali kau rindu seperti dahulu”

Itulah keinginan hati ini,sederhana memang..

Aku tak tahu harus bagaimanakah aku terhadap dirimu

Aku tak ingin mengulang kejadian yang tlah lalu saat bersama orang yang terdahulu. 

23 April 2015 || 08:49 a.m

Read More