Teknologi Informatika

#include <cstdlib> #include <iostream> using namespace std; struct karyawan{ string nik; string nama; string jk; int jamkerja; double gaji; }; karyawan kary[200]; void Baca_Pegawai(int n){ int i; for (i=0;i<n;i++){ cout<<"Masukan NIK Karyawan :"; cin>>kary[i].nik; cout<<"Masukan Nama Karyawan :"; cin>>kary[i].nama; cout<<"Masukan Jenis Kelamin Karyawan :"; cin>>kary[i].jk; cout<<"Masukan Jam Kerja Karyawan :"; cin>>kary[i].jamkerja; } } void HitungGaji(int n){ int i; double gapok=800000; double lembur=25000; for (i=0;i<n;i++){ if (kary[i].jamkerja > 48){ kary[i].gaji = gapok + ((kary[i].jamkerja -48)*lembur); }else{ kary[i].gaji = gapok ; } } } void Tampil_Pegawai(int n){ int i; cout<<"NIK Nama JenKel Jam Kerja Gaji"<<endl; for (i=0;i<n;i++){ cout<<kary[i].nik<<"\t"; cout<<kary[i].nama<<"\t\t"; cout<<kary[i].jk<<"\t "; cout<<kary[i].jamkerja<<"\t "; cout<<kary[i].gaji<<"\t\n"; } } int Min_jm_kerja(int n){ int i,banding,indek; banding=kary[0].jamkerja; indek=0; for (i=1;i<n;i++){ if (kary[i].jamkerja<banding) { banding=kary[i].jamkerja; indek=i; } } return indek; } int Max_jm_kerja(int n){ int i,banding,indek; banding=kary[0].jamkerja; indek=0; for (i=1;i<n;i++){ if (kary[i].jamkerja>banding) { banding=kary[i].jamkerja; indek=i; } } return indek; } float Rata2Jamkerja(int n){ int i,tJam; tJam=0; for (i=0;i<n;i++){ tJam=tJam+kary[i].jamkerja; } return (tJam/n); } int BanyakLembur(int n){ int i,nKaryLembur; nKaryLembur=0; for (i=0;i<n;i++){ if (kary[i].jamkerja>48){ nKaryLembur=nKaryLembur+1; } } return (nKaryLembur); } int Jamkerja48(int n){ int i,nKary48; nKary48=0; for (i=0;i<n;i++){ if (kary[i].jamkerja==48){ nKary48=nKary48+1; } } return (nKary48); } bool searchnikx(int n, string x){ int i=0; bool ketemu=false; while ((i<n) and (ketemu == false)){ if (kary[i].nik==x){ ketemu = true;} i=i+1; } return ketemu; } int main(int argc, char *argv[]) { int x; int min,maks; float rata2; int nkarylembur,nkary48; string cari; bool ada; cout<<"Masukan banyak data karyawan : "; cin>>x; Baca_Pegawai(x); HitungGaji(x); Tampil_Pegawai(x); min=Min_jm_kerja(x); maks=Max_jm_kerja(x); rata2=Rata2Jamkerja(x); nkarylembur=BanyakLembur(x); nkary48=Jamkerja48(x); cout<<"Jam Kerja Paling sedikit adalah : "<<kary[min].jamkerja<<endl; cout<<"Dengan Nama dan NIK Karyawan : "<<kary[min].nama<<"/"<<kary[min].nik<<endl; cout<<"Dan memiliki Gaji : "<<kary[min].gaji<<endl<<endl; cout<<"Jam Kerja Paling banyak adalah : "<<kary[maks].jamkerja<<endl; cout<<"Dengan Nama dan NIK Karyawan : "<<kary[maks].nama<<"/"<<kary[maks].nik<<endl; cout<<"Dan memiliki Gaji : "<<kary[maks].gaji<<endl; cout<<"Rata rata Jam Kerja Karyawa : "<<rata2<<endl; cout<<"Banyak Karyawan yang lembur : "<<nkarylembur<<endl; cout<<"Banyak Karyawan yang jam kerjanya 48 jam : "<<nkary48<<endl; cout<<"Input NIK yang dicari : "; cin>>cari; ada = searchnikx(x,cari); if (ada==true) cout<<"Data Ada"<<endl; else cout<<"Data Tidak Ada"<<endl; system("PAUSE"); return EXIT_SUCCESS; }

Hasil Program:

#include <cstdlib> #include <iostream> #include <windows.h> #include <time.h> using namespace std; struct jam{ int hh,mm,ss,ms; }; class jam_digital{ public: jam_digital(){ cout<<"\t\t------->>> Program Jam Digital <<<-------"<<endl<<endl;} void input_auto(); void running(); private: jam hour; int z; }; void jam_digital::input_auto(){ struct tm *Sys_T; time_t Tval; Tval = time(NULL); Sys_T = localtime(&Tval);//Mengambil nilai jam computer //Memasukan nilai jam ke variabel hour.hh=Sys_T->tm_hour; hour.mm=Sys_T->tm_min; hour.ss=Sys_T->tm_sec; hour.ms=00; } void jam_digital::running(){ while(hour.hh<=24) { while(hour.mm<=59 ) { while(hour.ss<=59) { while(hour.ms<=10) { hour.ms++; Sleep(71); system("cls"); jam_digital(); printf("\n\n\n\n\n\n\n\n\n\t\t\t\t %02d: %02d: %02d: %02d\n", hour.hh,hour.mm,hour.ss,hour.ms); } hour.ms=0; hour.ss++; } hour.ss=0; hour.mm++; } hour.mm=0; hour.hh++; if (hour.hh==24) hour.hh=0; } } int main(){ jam_digital run; run.input_auto(); run.running(); system("pause"); return 0; }

Hasil Program:

#include <cstdlib> #include <iostream> using namespace std; struct mahasiswa{ int nim; string nama; string makul; int nilai; }; mahasiswa mhs[100]; void input_data( int x){ int i; for (i=0;i<x;i++){ cout<<"Masukan nama : "; cin>>mhs[i].nama; cout<<"Masukan NIM : "; cin>>mhs[i].nim; cout<<"Masukan Nilai : "; cin>>mhs[i].nilai; cout<<"Masukan Makul : "; cin>>mhs[i].makul; } } int maks(int x){ int i; int banding=-1; int indek; for (i=0;i<x;i++){ if (banding<mhs[i].nilai){ banding=mhs[i].nilai; indek=i; } } return indek; } float rata_rata(int x){ int i; int jumlah=0; for (i=0;i<x;i++){ jumlah=jumlah+mhs[i].nilai; } return (jumlah/x); } void nim_lulus_alpro(int x){ int i; for (i=0;i<x;i++){ if (mhs[i].makul== "alpro"){ if (mhs[i].nilai>=55){ cout<<mhs[i].nim<<endl; } } } } float persen_tidak_lulus(int x){ int i; int tdk_lulus=0; for (i=0;i<x;i++){ if (mhs[i].nilai<55){ tdk_lulus=tdk_lulus+1; } } return (tdk_lulus/x)*100; } int main(int argc, char *argv[]) { int n; int max; float rata2; float persen; cout<<"Masukan banyak mahasiswa : "; cin>>n; input_data(n); max=maks(n); rata2=rata_rata(n); persen=persen_tidak_lulus(n); cout<<"Nilai maksimal nya adalah "<<mhs[max].nilai<<" NIM ("<<mhs[max].nim<<")"<<endl; cout<<"Rata-rata seluruh nilai : "<<rata2<<endl; cout<<"Persen lulus alpro : "<<persen<<endl; cout<<"NIM Mahasiswa yang lulus Alpro : "<<endl; nim_lulus_alpro(n); system("PAUSE"); return EXIT_SUCCESS; }

Hasil Program:

program rangkaian_listrik_1_2;
{Dibaca 3 tahanan r1,r2,r3 real lalu hitung total rangkaian seri atau paralelnya
dengan cara input pilihannya 1:seri 2:paralel kemudian ditampilkan }

var r1,r2,r3 : integer ;
    t_seri : integer ;
    t_paralel : real;
    pilihan : integer;

begin
     writeln('');
     writeln('');

     write('Masukan besar tahanan 1 : ');
     read(r1);

     write('Masukan besar tahanan 2 : ');
     read(r2);

     write('Masukan besar tahanan 3 : ');
     read(r3);

     writeln('1.Hitung total seri');
     writeln('2.Hitung total paralel');
     write('Masukan pilihan anda : ');
     read(pilihan);      ;

     if pilihan = 1 then
     begin
        t_seri := r1+r2+r3;
     end
     else
     begin
        t_paralel := 1/(1/r1) + (1/r2) + (1/r3);
     end;


     if pilihan = 1 then
     begin
        writeln('Total rangkaian seri : ',t_seri);
     end
     else
     begin
        writeln('Total rangkaian paralel : ',t_paralel);
     end;

end.

Hasil Program

program konversi_nilai;
{dibaca nilai ujian mahasiswa dalam nilai angka
kemudian tampilkan nilai hurufnya 80-100:A 65-79:B 55-64:C 40-54:D <40:E
}

var nilai : real;

begin
     writeln('');
     write('Masukan nilai ujian anda : ');
     read(nilai);

     if ( nilai <= 100 ) and ( nilai >= 80 ) then
     begin
          write('Nilai anda A');
     end
     else if ( nilai < 80 ) and ( nilai >= 65 ) then
     begin
          write('Nilai anda B');
     end
     else if ( nilai < 65 ) and ( nilai >= 55 ) then
     begin
          write('Nilai anda C');
     end
     else if ( nilai < 55 ) and ( nilai >= 40 ) then
     begin
          write('Nilai anda D');
     end
     else if ( nilai < 40 ) and ( nilai >= 0 ) then
     begin
          write('Nilai anda A');
     end;

end.

Hasil Program

program N_Bilangan;
{Dibaca N bilangan kemudian hitung jumlah, rata-rata, nilai min, nilai maks
lalu tampilkan di layar}

var n,maks,min,jml,bil,i : integer;
    avg : real;

begin
    writeln('');
    write('Masukan banyaknya bilangan : ');
    read(n);

    bil:=0;

    for i:=1 to n do
    begin
       write('Masukan bilangan : ');
       read(bil);

       jml:=jml+bil;

       if bil > maks then
       begin
          maks := bil;
       end;

       if bil < min then
       begin
          min:=bil;
       end
       else if i = 1 then
       begin
          min:=bil;
       end;

    end;

    avg := jml/n;

    writeln('Jumlah seluruh bilangan : ',jml);
    writeln('Rata-rata seluruh bilangan : ',avg);
    writeln('Nilai maks dari seluruh bilangan : ',maks);
    writeln('Nilai min dari seluruh bilangan : ',min);

end.

Hasil Program

program tukar_3_bilangan;
{Dibaca 3 bilangan integer a,b,c ditukar ketiga bilangan dan ditampilkan

}
var a,b,c,tampung : integer;

begin
     writeln('');
     writeln('');

     write('Masukan bil pertama : ');
     read(a);

     write('Masukan bil kedua : ');
     read(b);

     write('Masukan bil ketiga : ');
     read(c);

     tampung := a;
     a := b;
     b := c;
     c := tampung;

     write('Bil ke-1, ke-2, ke-3 : ');
     write(a,',',b,',',c);
end.

Hasil Program

Program OperasiPecahan;
{Deskripsi Program }
type pecahan = record
     pb,py : integer;
end;

var p1, p2, jumlah, kurang, kali, bagi : pecahan;

begin
     writeln('');
     writeln('');

     write('Masukan penyebut pecahan pertama : ');
     read(p1.py);

     write('Masukan pembilang pecahan pertama : ');
     read(p1.pb);

     write('Masukan penyebut pecahan kedua : ');
     read(p2.py);

     write('Masukan pembilang pecahan kedua : ');
     read(p2.pb);

     jumlah.pb := p1.pb*p2.pb;
     jumlah.py := (p1.py*p2.pb) + (p2.py*p1.pb);

     kurang.pb := jumlah.pb;
     kurang.py := (p1.py*p2.pb) - (p2.py*p1.pb);

     kali.pb := kurang.pb;
     kali.py := p1.py * p2.py;

     bagi.pb := p1.pb * p2.py;
     bagi.py := p1.py * p2.pb;

     writeln('Pecahan 1 : ', p1.py,'/',p1.pb);
     writeln('Pecahan 2 : ', p2.py,'/',p2.pb);
     writeln('Hasil jumlah : ',jumlah.py,'/',jumlah.pb);
     writeln('Hasil kurang : ',kurang.py,'/',kurang.pb);
     writeln('Hasil kali : ',kali.py,'/',kali.pb);
     writeln('Hasil bagi : ',bagi.py,'/',bagi.pb);
end.

Hasil Program

Program KonversiWaktu;

type jam = record
     j,m,d : integer;
end;

var jam1 : jam ;
    detik : integer;

begin
     write('Masukan waktu dalam satuan detik : ');
     read(detik);

     jam1.m := detik div 60;
     jam1.d := detik mod 60;

     jam1.j := jam1.m div 60;
     jam1.m := jam1.m mod 60;

     write('hh:mm:ss = ',jam1.j,':',jam1.m,':',jam1.d);

end.

Program ini mencari titik tengah antara 2 titik koordinat
Coding Pascal :


Program TitikTengah;

type titik = record
     x,y : real ;
end;

var t1,t2,tengah : titik ;

begin

     write('Masukan titik X awal : ');
     read(t1.x);

     write('Masukan titik Y awal : ');
     read(t1.y);

     write('Masukan titik X akhir : ');
     read(t2.x);

     write('Masukan titik Y akhir : ');
     read(t2.y);

     tengah.x := (t1.x+t2.x)/2;
     tengah.y := (t1.y+t2.y)/2;

     write(tengah.x,tengah.y);

end.