• />

    Resep Perkedel Tahu Jamur

  • Hutan

  • Seniorku Pacarku

  • C++ Program Konversi Detik Ke Jam, Menit, dan Detik

  • Buah Strawberry yang sangat menyegarkan

Selasa, 30 Juni 2015

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 :




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 :


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

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

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 :


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 :





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 :


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 :


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 :




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 :




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 :


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 :





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 :




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 :





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 :







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 :



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 :


Senin, 29 Juni 2015

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 :










Minggu, 07 Juni 2015

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 :