SELAMAT DATANG KE BLOG SAYA
MOGA BERMANFAAT UNTUK ANDA

Selasa, 05 Februari 2013

logika matematiaka di c++


#include<stdio.h>
#include <iostream.h>
int main()
{
printf("perkenalkan nama saya\n jamilah salwa lala");
return 0;
}

#include<stdio.h>
#include <iostream.h>
int main()
{
Cout<<"perkenalkan nama saya\n jamilah salwa lala");
return 0;
}


#include<stdio.h>
#include <iostream.h>
int main()
{
printf("nim   : 2093067\nnama  : jamilah salwa lala\nalamat: gg.teladan pelintung dumai");
return 0;
}

#include<stdio.h>
#include <iostream.h>
int main()
{
printf("perkenalkan\n nama   :jamilah salwa lala\n nim    :2093067\n alamat :pelintung city");
return 0;
}

Perhitungan
#include<stdio.h>
#include <iostream.h>
int main()
{
//declaring variables:
int a,b;
int jumlah;
// process:
a=5;
b=2;
jumlah= a+b;
printf("hasil jumlah a dan b adalah: ");
printf("%i",jumlah);
}

#include<stdio.h>
#include <iostream.h>
int main()
{

Perhitugan 4 operasi

//declaring variables:
float a,b;
float jumlahb;
int jumlaha;
// process:
a=5;
b=2;
jumlaha= a+b;
printf("hasil jumlah a tambah b adalah: ");
printf("%i\n",jumlaha);

jumlaha= a-b;
printf("hasil jumlah a kurang b adalah: ");
printf("%i\n",jumlaha);

jumlaha= a*b;
printf("hasil jumlah a kali   b adalah: ");
printf("%i\n",jumlaha);

jumlahb= a/b;
printf("hasil jumlah a bagi   b adalah: ");
printf("%f\n",jumlahb);
}
















#include<stdio.h>

void main()
{
float k;
const float v=3.14;
float luas,jari;
printf("------- PROGRAM LUAS DAN KELILING LINGKARAN-------\n");
printf("===================================================\n");
printf("INPUTKAN NILAI LINGKARAN :  ");
scanf("%f",&k);
jari=(k/v)/2;
luas=v*(jari*jari);
printf("nilai jari_jari    : ");
printf("%f",jari);
printf("\n");
printf("nilai luas: ");
printf("%f",luas);
printf("\n================================================");
}

skripsi

uuuhf............ udah semester 8 saat nya berfikir keras untuk skripsi,,, walaupun sebenarnya judul skripsi itu udah harus di fikirkan dari semester 5... biar udah dapat bayangan plus mempersiapkan planning yg tepat...  skripsi itu sama dgn proyek milyaran rupiah berat ny wkwkwkwk lebay.... so ne step2 yg harus kalian jalani saat ingin menentukan judul skripsi kalean:

  1. cari judul yang kreatif namun mudah bagi kalin ... soal nya kalo judul ny biasa2 aja n banyak yang sama jelas2 bakal di tolak namun jgn bunuh diri sendiri dgn menggambil judul  yang berat sehingga binggung sendiri,, kan g lucu tuh,,, so penempatan kata2 dan bahasa dalam kalimat judul ituh yang berperan penting
  2. cari objek penelitian yang terdekat yang bisa kalen jangkau kapan saja,, apa lagi kalo cuman sebelah rumah,, tampa berpakaian formal kalian udah bisa minta data atau bertanya informasi yang masih kurang,,, apa g enak tuh.... nama ny juga tetangga pasti udah sohib banget
  3. usaha kan mengerjakan semuanya sendiri,,, dengan kata lain jgn nempah sama orang,,,, malu dong,, gelar kita yang saandang dengan hasil kerja or karya orang lain walaupun kita keluarkan dana untuk itu namun pas sidang bisa aja kalean mati di tempat karna  pertanyaan dosen yang biasa nya superkiller saat sidang...  kalen pasti g bakal bisa jawab coz bukan kalen yang buat... jadi g ngerti deh,,
  4. bawel aja sama dosen pembimbing kalean,,,,, tanya semua yang kalen g ngerti,,,, toh tuh lah saat nya kita bisa lebih ngerti karena di ajar dari 2 mata ke 2 mata alias eyes to eyes wkwkwkwkwk apa tak seru tuh,, kalo di kelas kan harus berbagi dgn temen2 lain,,, ne lah saat ny kalen bertanya sepuasnya dan harus dekat dgn dosen pendamping,, sesekali bawain deh goreng buat makan bareng sambil skripsi mu di periksa ..... mmmmmmm,, apa lagi y
  5. namanya juga proyek,, jadi harus di kerjakan lebih dari 1 org,,,, api eeessst maksud nya.. kamuh bisa mintak bantuan temen  dalam mencari solusi dari masalah yang kamu temukan di skripsi kamu,, bukan bayar org untuk nyelesaikan nya.....
  6. TERAKHIR..... believe your self,,,, patokan semuanya pada panduan skripsi kampus masing2 jgn copy paste dari pustaka 1000% coz,,,, terkadang skripsi alumni ssebelum kamu masih mempunyai kesalahan,,, toh yang meriksakan juga manusia,,,  GOOD LUCK untuk skipsi kamu dan jadilah SARJANA  yang membuka lapangan pekerjaan bukan mencari pekerjaan sip,,,,,

Selasa, 01 Mei 2012

progam khs pascal

uses wincrt;
var
NIM      :STRING[7];
NAMA     :STRING[7];
PS       :STRING;
SMSTR    :STRING;
MK       :ARRAY[1..10] OF STRING;
NILAIA   :ARRAY[1..10] OF BYTE;
NILAIH   :ARRAY[1..10] OF STRING;
SKS      :ARRAY[1..10] OF BYTE;
BOBOT    :ARRAY[1..10] OF BYTE;
TOTALA   :REAL;
TOTALS   :REAL;
IP       :REAL;
JSYDS    :INTEGER;
I        :INTEGER;

BEGIN
    
          
            WRITE('INPUTKAN NIM: ')          ;READLN(NIM);
            WRITE('INPUTKAN NAMA: ')         ;READLN(NAMA);
            WRITE('INPUTKAN PROGRAM STUDY: ');READLN(PS);
            WRITE('INPUTKAN SEMESTER: ')     ;READLN(SMSTR);
            WRITELN('============================================================================');
            WRITE('BERAPA BANYAK DATA YANG DIBUTUHKAN: ');READLN(I);

            FOR I := 1 TO I DO
            BEGIN
            WRITE('INPUTKAN MATA KULIAH: ')  ;READLN(MK[I]);
            WRITE('INPUTKAN JUMLAH SKS: ')   ;READLN(SKS[I]);
            WRITE('INPUTKAN NILAI ANGKA: ')  ;READLN(NILAIA[I]);
            WRITELN('============================================================================');
                 IF       NILAIA[I] >= 4 THEN

                    BEGIN
                         NILAIH[I]  := 'A';
                         BOBOT[I]   := SKS[I]*NILAIA[I];
                    END

                 ELSE IF  NILAIA[I] >=3  THEN

                    BEGIN
                         NILAIH[I]  :='B';
                         BOBOT[I]   :=SKS[I]*NILAIA[I];
                    END

                 ELSE IF NILAIA[I]  >=2 THEN

                    BEGIN
                         NILAIH[I]  :='C';
                         BOBOT[I]   :=SKS[I]*NILAIA[I];
                    END

                 ELSE IF NILAIA[I]  >=1 THEN

                    BEGIN
                         NILAIH[I]  :='D';
                         BOBOT[I]   :=SKS[I]*NILAIA[I];
                    END

                 ELSE   
                    BEGIN
                         NILAIH[I]   :='E';
                         BOBOT[I]    :=SKS[I]*NILAIA[I];
                    END;
              
               TOTALA := TOTALA + BOBOT[I];
               TOTALS := TOTALS + SKS[I]  ;
              
              
            END;



            WRITELN('         SEKOLAH TINGGI MANAJEMEN INFORMATIKA & KOMPUTER                 ');
            WRITELN('                        STMIK DUMAI                                      ');
            WRITELN('_________________________________________________________________________');
            WRITELN('NIM          : ',NIM);                                                    
            WRITELN('NAMA         : ',NAMA);
            WRITELN('PROGRAM STUDI: ',PS);
            WRITELN('SEMESTER     : ',SMSTR);
            WRITELN('===========================================================================');
            WRITELN(' NO         MATA KULIAH           SKS         NILAI        BOBOT           ');
                   FOR I := 1 TO I DO
                   BEGIN
                   WRITELN(I:3,MK[I]:20,SKS[I]:13,NILAIA[I]:13,NILAIH[I]:13);
                   END;
           WRITELN('============================================================================');

           WRITELN('TOTAL SKS   ANDA: ',TOTALS:12:0);
           WRITELN('TOTAL NILAI ANDA: ',TOTALA:12:0);
           IP:= TOTALA/TOTALS;
           WRITELN('IP ANDA ADALAH: ',IP:12:0);

           IF       IP <= 4 THEN

                    BEGIN
                         JSYDS  := 12*2;
                    END

           ELSE IF  IP <=3  THEN

                    BEGIN
                         JSYDS  :=10+11;
                       
                    END

           ELSE IF  IP <=2 THEN

                    BEGIN
                       JSYDS  :=9*2;
                        
                    END

           ELSE   

                    BEGIN
                         JSYDS  :=8*2;
                        
                    END;

               

         WRITELN('JUMLAH SKS MAK SMSTER Y.A.D : ',JSYDS);

END.










                                                                                                         

moga bermanfaat.........

Kamis, 05 April 2012

PROGRAM PASCAL GAJI KARYAWAN

{JAMIAH}
USES WINCRT;
VAR
NAMAPEGAWAI :ARRAY[1..100] OF STRING[25];
GOLONGAN    :ARRAY[1..100] OF STRING[1];
GAJIPOKOK   :ARRAY[1..100] OF REAL;
TUNJAGAN    :ARRAY[1..100] OF REAL;
PAJAK       :ARRAY[1..100] OF REAL;
GAJIBERSIH  :ARRAY[1..100] OF REAL;
BULAN       :STRING;
I,JD           :INTEGER;

BEGIN
WRITE('BULAN :  ');READLN(BULAN);
WRITELN('BANYAK DATA YANG DIBUTUHKAN:  ');READLN(JD);
FOR I := 1 TO JD DO
       BEGIN
            WRITELN('DATA KE:',I);
            WRITELN('INPUTKAN NAMA KARYAWAN:  ');READLN(NAMAPEGAWAI[I]);
            WRITELN('INPUTKAN GOLONGAN     :'  );READLN(GOLONGAN[I]);
            WRITELN('================================================');
       if GOLONGAN[I]= 'A' then
          begin
            GAJIPOKOK[I] := 1000000;
            PAJAK[I]     :=0.1 * GAJIPOKOK[I];
            GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
          end
        else if GOLONGAN[I]= 'B' then
          begin
           GAJIPOKOK[I] := 1500000;
           PAJAK[I]     :=0.15 * GAJIPOKOK[I];
           GAJIBERSIH[I]:=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
        end
        else
          begin
          GAJIPOKOK[I]  := 2000000;
          PAJAK[I]      :=0.2 * GAJIPOKOK[I];
          GAJIBERSIH[I] :=(GAJIPOKOK[I]+TUNJAGAN[I])-PAJAK[I];
          end;
         END;

         WRITELN('                LAPORAN DATA GAJI MAHASISWA                            ');
         WRITELN('================================================================================');
         WRITELN('NO    NAMA      GOLONGAN    GAJI POKOK   TUNJAGAN   PAJAK   GAJI BERSIH');
         WRITELN('=======================================================================');
                 FOR I := 1 TO I DO
                 BEGIN
                 WRITELN(I:3,NAMAPEGAWAI[I]:10,GOLONGAN[I]:2,GAJIPOKOK[I]:10,TUNJAGAN[I]:12:0,PAJAK[I]:12:0,GAJIBERSIH[I]:12:0)
                 END;
       WRITELN('=========================================================================');

  END.

Selasa, 17 Januari 2012

PROGRAM PASCAL EOQ

hai,,,udah lama g posting listing program,,,,, sorry coz blog nya g bisa dibuka,,,, kini qu kembali lagi.... moga bermanfaat,,,,,
:) :) :)


uses wincrt;
var
A,B,C,D,E,F,Q,REC,PES,PEST,HARI,G,TCC,TOC,SAF,TIC:REAL;
BEGIN
WRITE('PENJUALAN PERTAHUN  : ');READLN(A);
WRITE('BIAYA PEMESANAN  : ');READLN(B);
WRITE('BIAYA PENYIMPANAN  : ');READLN(C);
WRITE('HARGA BELI  : ');READLN(D);
WRITE('PERSEDIAAN : ');READLN(E);
WRITE('WAKTU KIRIM  : ');READLN(F);

Q:=sqrt((2*B*A)/(C*D));
REC:=A/52;
PES:=(F*REC)+E;
PEST:=365/(A/Q);
HARI:=A/365;
G:=Q/2;
TCC:=C*D*G;
TOC:=B*(A/Q);
SAF:=C*D*E;
TIC:=TCC+TOC+SAF;

WRITELN('==================================');
WRITELN('EOQ= ',Q:12:2);
WRITELN('RECORDER POINT= ',REC:12:2);
WRITELN('PESAN ULANG= ',PES:12:2);
WRITELN('PESANAN DLM 1 TAHUN= ',PEST:12:2);
WRITELN('PEMAKAIAN PERHARI= ',HARI:12:2);
WRITELN('TCC= ',TCC:12:2);
WRITELN('TOC= ',TOC:12:2);
WRITELN('SAFETY STOCK= ',SAF:12:2);
WRITELN('TIC= ',TIC:12:2);
END.

Rabu, 13 April 2011

NESTED FOR




#include<iostream.h>

main()

{

int a,b;

clrscr();

cout<<" program nested for \n ";

for(a=1; a<=5; a+=5)

{

printf("\n");

for(b=a; b<=1; b+=1)

cout<<a<<" ";

}



for(a=1; a<=4; a+=4)

{

printf("\n");

for(b=a; b<=2; b+=1)

cout<<a<<" ";

}

for(a=1; a<=3; a+=3)

{

printf("\n");

for(b=a; b<=3; b+=1)

cout<<a<<" ";

}

for(a=1; a<=4; a+=4)

{

printf("\n");

for(b=a; b<=4; b+=1)

cout<<a<<" ";

}

for(a=1; a<=5; a+=5)

{

printf("\n");

for(b=a; b<=5; b+=1)

cout<<a<<" ";

}

getch();

}

Kamis, 07 April 2011

PROGRAM C++ switch case

//jamilah salwa lala//
#include<conio.h>
#include<iostream.h>
#include<stdio.h>
main()
{
char kode1;
char kode2;


clrscr();
cout<<" INPUTKAN KODE KELAS ANDA [E/B/X]: ";
cin>>kode1;
switch(kode1)
{
case 'E':
cout<<" EKONOMI";

cout<<" \n INPUTKAN KODE TUJUAN ANDA [1/2]: ";
cin>>kode2;
switch(kode2)
{
case '1':
cout<<" \nBANGKOK";
cout<<"\nHARGA TIKET Rp$35";
break;
case '2':
cout<<" \nHONGKONG";
cout<<"\nHARGA TIKET Rp$45";
break;}getch();
break;

case 'B':
cout<<" EKONOMI";
cout<<" \n INPUTKAN KODE TUJUAN ANDA [1/2]: ";
cin>>kode2;
switch(kode2)
{
case '1':
cout<<" \nBANGKOK";
cout<<"\nHARGA TIKET Rp$45";
break;
case '2':
cout<<" \nHONGKONG";
cout<<"\nHARGA TIKET Rp$55";
break;}getch();
break;

case 'X':
cout<<" EKONOMI";
cout<<" \n INPUTKAN KODE TUJUAN ANDA [1/2]: ";
cin>>kode2;
switch(kode2)
{
case '1':
cout<<" \nBANGKOK";
cout<<"\nHARGA TIKET Rp$55";
break;
case '2':
cout<<"\n HONGKONG";
cout<<"\nHARGA TIKET Rp$65";
break;}getch();
break;
} getch();
}