19 Oktober 2014

Program Dasar Struktur Percabangan C++ pemakaian SWITCH - CASE

Bismillahirrahmaanirrahiim :)

Saya akan sedikit men sharing hasil coding pembelajaran mengenai pemrograman dasar bahasa C++
berikut contoh program dasar pemakaian struktur percabangan dengan menggunakan metode switch - case

Berikut list coding programnya :


#include
#include
void main()
{
int pil;
   char pilihan;
   cobalagi:
   cout<<"==================="<   cout<<"1.HARI SENIN"<   cout<<"2.HARI SELASA"<   cout<<"2.HARI RABU"<   cout<<"2.HARI KAMIS"<   cout<<"2.HARI JUMAT"<   cout<<"2.HARI SABTU"<   cout<<"2.HARI MINGGU"<   cout<<"==================="<   cout<   cout<<"MASUKKAN PILIHAN ANDA (1..7) : ";
   cin>>pil;

   switch (pil)
   {
case 1 : cout<<"1. --> HARI SENIN"<
   break;
   case 2 : cout<<"2. --> HARI SELASA"<
   break;
   case 3 : cout<<"3. --> HARI RABU"<
   break;
   case 4 : cout<<"4. --> HARI KAMIS"<
   break;
   case 5 : cout<<"5. --> HARI JUMAT"<
   break;
   case 6 : cout<<"6. --> HARI SABTU"<
   break;
   case 7 : cout<<"7. --> HARI MINGGU"<
   break;
   default : cout<<"MAAF,HARI YANG ANDA MASUKKAN SALAH"<
   }
   cout<
   cout<<" INGIN ULANGI LAGI [Y/T] ? ";
   cin>>pilihan;
   clrscr();
   if (pilihan=='Y'||pilihan=='y')
   goto cobalagi;
   else cout<<"TERIMA KASIH";
getch();
}


Semoga bermanfaat dan barokah dalam mencari ilmu aamiin

8 Februari 2013

program pascal deklarasi data

program masing_masing_deklarasi_data;
uses wincrt;
var a,b,c:string;
    x,y,rumusnya:integer;
    r,s,t,hasilnya:real;
    senang:char;
begin
clrscr;
writeln ('identitas ku');
writeln ('nama saya:');readln (a);
writeln ('alamat saya:');readln (b);
c:=a+b ;
writeln ('jadi identitasqu adalah',c);
writeln;
writeln ('penjumlahan');
writeln ('masukkan angka= ');readln (x);
writeln ('ditambah dengan= ');readln (y);
rumusnya:=x+y;                                                               
writeln ('hasilnya adalah= ',rumusnya:0);
writeln;
writeln ('perkalian');
writeln ('masukkan angka=');readln (r);
writeln ('masukkan angka=');readln (s);
t:=r*s;
writeln ('hasilnya real=',t:0:2);

writeln;                                      
writeln ('perasaan');
writeln ('jika mendapat nilai A akan merasa=');readln (senang);
writeln ('aku merasa senang=');
writeln (',,,,,,,,,,,,,mator sakalangkong,,,,,,,,,,,,,,,');
write;
end.

program pascal mencari bilangan kelipatan 5

program kelipatan_5;
Uses wincrt;

var
x,y:longint;

begin
    clrscr;
    write('Berapa kelipatan 5 yang ingin ditampilkan = ');
    readln(x);
    writeln('============================================================================');
    write('Hasil dari ',x,' kelipatan 5  = ');
    for x:=1 to x do
        begin
             y :=5*x;
         write(y,' ');
        end;
end.

program pascal penghitung rangkaian


program penghitung_rangkaian;
Uses wincrt;
var
r1, r2, r3, st, pt: real;
pil:integer;
begin
     clrscr;
write(‘Masukkan R1 =’);readln(r1);
write(‘Masukkan R2 =’);readln(r2);
write(‘Masukkan R3 =’);readln(r3);
write(‘Tekan 1 untuk seri atau tekan 2 untuk pararel ?’);
readln(pil);
if pil=1 then
begin
             st:=r1+r2+r3;
             writeln(‘Total Rangkaian Serinya = ’,st:0:2);
end;
else
begin
             pt:= (r1*r2*r3)/(r1*r2+r1*r3+r2*r3);
             writeln(‘Total Rangkaian Pararelnya = ’,pt:0:2);
end;
readln(pil);
                       end.

31 Januari 2013

HABIB SYECH - SYI'IR NU ( NAHDLATUL ULAMA )

bolodewo bersholawat live di surabaya 26 januari 2013 ( BOLODEWO BERSHOLAWAT ) - SYI'IR NU

video

30 Januari 2013

BALOTELLI RESMI GABUNG AC MILAN !!

RESMI !!! BALOTELLI gabung AC MILAN !!! FORZAA MILANN !!!

Kabar simpang siur mengenai masa depan Balotelli akhirnya terjawab. Pemain asal Italia itu terus dikaitkan dengan Milan. Kini, mantan pemain Inter Milan itu resmi bergabung dengan Milan setelah tercapai kesepakatan antara The Citizens dan Milan dan akan mengenakan nomor punggung nomor 45 karena nomor 9 yang diinginkan oleh balotelli relah didafraekan sebagai nomor alexandre pato pada musim 2012 - 2013 ini meskipun pemain tersebut telah meninggalkan ac milan pada bursa transfer musim dingin kali ini.

Milan mengikat Balotelli dengan kontrak berdurasi empat setengah tahun. Rossoneri disebut mengeluarkan dana sebesar 20 juta Euro (260 miliar Rupiah) ditambah sejumlah bonus. Harga ini jauh di bawah angka yang diajukan City sebesar 37 juta Euro (482 miliar Rupiah).

"Balotelli akan tiba di Milan besok. Sudah tercapai kesepakatan antara City dan Milan," demikian bunyi sebuah pernyataan di Milan Channel.

"Besok ia akan menjalani tes medis. Setelah itu, Balotelli akan menandatangani kontrak hingga 30 Juni 2017."

Kepindahan Balotelli ke Milan menang tinggal menunggu waktu. Ia sudah menyewakan rumahnya di Manchester ke orang lain. Selain itu, Balotelli disebut telah mengadakan pesta perpisahan dan salah satu staf pelatih City, Brian Kidd, tampak tengah meminta tandatangan Balotelli di jersey City, di tempat latihan.

19 Oktober 2014

Program Dasar Struktur Percabangan C++ pemakaian SWITCH - CASE

Bismillahirrahmaanirrahiim :)

Saya akan sedikit men sharing hasil coding pembelajaran mengenai pemrograman dasar bahasa C++
berikut contoh program dasar pemakaian struktur percabangan dengan menggunakan metode switch - case

Berikut list coding programnya :


#include
#include
void main()
{
int pil;
   char pilihan;
   cobalagi:
   cout<<"==================="<   cout<<"1.HARI SENIN"<   cout<<"2.HARI SELASA"<   cout<<"2.HARI RABU"<   cout<<"2.HARI KAMIS"<   cout<<"2.HARI JUMAT"<   cout<<"2.HARI SABTU"<   cout<<"2.HARI MINGGU"<   cout<<"==================="<   cout<   cout<<"MASUKKAN PILIHAN ANDA (1..7) : ";
   cin>>pil;

   switch (pil)
   {
case 1 : cout<<"1. --> HARI SENIN"<
   break;
   case 2 : cout<<"2. --> HARI SELASA"<
   break;
   case 3 : cout<<"3. --> HARI RABU"<
   break;
   case 4 : cout<<"4. --> HARI KAMIS"<
   break;
   case 5 : cout<<"5. --> HARI JUMAT"<
   break;
   case 6 : cout<<"6. --> HARI SABTU"<
   break;
   case 7 : cout<<"7. --> HARI MINGGU"<
   break;
   default : cout<<"MAAF,HARI YANG ANDA MASUKKAN SALAH"<
   }
   cout<
   cout<<" INGIN ULANGI LAGI [Y/T] ? ";
   cin>>pilihan;
   clrscr();
   if (pilihan=='Y'||pilihan=='y')
   goto cobalagi;
   else cout<<"TERIMA KASIH";
getch();
}


Semoga bermanfaat dan barokah dalam mencari ilmu aamiin

8 Februari 2013

program pascal deklarasi data

program masing_masing_deklarasi_data;
uses wincrt;
var a,b,c:string;
    x,y,rumusnya:integer;
    r,s,t,hasilnya:real;
    senang:char;
begin
clrscr;
writeln ('identitas ku');
writeln ('nama saya:');readln (a);
writeln ('alamat saya:');readln (b);
c:=a+b ;
writeln ('jadi identitasqu adalah',c);
writeln;
writeln ('penjumlahan');
writeln ('masukkan angka= ');readln (x);
writeln ('ditambah dengan= ');readln (y);
rumusnya:=x+y;                                                               
writeln ('hasilnya adalah= ',rumusnya:0);
writeln;
writeln ('perkalian');
writeln ('masukkan angka=');readln (r);
writeln ('masukkan angka=');readln (s);
t:=r*s;
writeln ('hasilnya real=',t:0:2);

writeln;                                      
writeln ('perasaan');
writeln ('jika mendapat nilai A akan merasa=');readln (senang);
writeln ('aku merasa senang=');
writeln (',,,,,,,,,,,,,mator sakalangkong,,,,,,,,,,,,,,,');
write;
end.

program pascal mencari bilangan kelipatan 5

program kelipatan_5;
Uses wincrt;

var
x,y:longint;

begin
    clrscr;
    write('Berapa kelipatan 5 yang ingin ditampilkan = ');
    readln(x);
    writeln('============================================================================');
    write('Hasil dari ',x,' kelipatan 5  = ');
    for x:=1 to x do
        begin
             y :=5*x;
         write(y,' ');
        end;
end.

program pascal penghitung rangkaian


program penghitung_rangkaian;
Uses wincrt;
var
r1, r2, r3, st, pt: real;
pil:integer;
begin
     clrscr;
write(‘Masukkan R1 =’);readln(r1);
write(‘Masukkan R2 =’);readln(r2);
write(‘Masukkan R3 =’);readln(r3);
write(‘Tekan 1 untuk seri atau tekan 2 untuk pararel ?’);
readln(pil);
if pil=1 then
begin
             st:=r1+r2+r3;
             writeln(‘Total Rangkaian Serinya = ’,st:0:2);
end;
else
begin
             pt:= (r1*r2*r3)/(r1*r2+r1*r3+r2*r3);
             writeln(‘Total Rangkaian Pararelnya = ’,pt:0:2);
end;
readln(pil);
                       end.

31 Januari 2013

HABIB SYECH - SYI'IR NU ( NAHDLATUL ULAMA )

bolodewo bersholawat live di surabaya 26 januari 2013 ( BOLODEWO BERSHOLAWAT ) - SYI'IR NU

video

30 Januari 2013

BALOTELLI RESMI GABUNG AC MILAN !!

RESMI !!! BALOTELLI gabung AC MILAN !!! FORZAA MILANN !!!

Kabar simpang siur mengenai masa depan Balotelli akhirnya terjawab. Pemain asal Italia itu terus dikaitkan dengan Milan. Kini, mantan pemain Inter Milan itu resmi bergabung dengan Milan setelah tercapai kesepakatan antara The Citizens dan Milan dan akan mengenakan nomor punggung nomor 45 karena nomor 9 yang diinginkan oleh balotelli relah didafraekan sebagai nomor alexandre pato pada musim 2012 - 2013 ini meskipun pemain tersebut telah meninggalkan ac milan pada bursa transfer musim dingin kali ini.

Milan mengikat Balotelli dengan kontrak berdurasi empat setengah tahun. Rossoneri disebut mengeluarkan dana sebesar 20 juta Euro (260 miliar Rupiah) ditambah sejumlah bonus. Harga ini jauh di bawah angka yang diajukan City sebesar 37 juta Euro (482 miliar Rupiah).

"Balotelli akan tiba di Milan besok. Sudah tercapai kesepakatan antara City dan Milan," demikian bunyi sebuah pernyataan di Milan Channel.

"Besok ia akan menjalani tes medis. Setelah itu, Balotelli akan menandatangani kontrak hingga 30 Juni 2017."

Kepindahan Balotelli ke Milan menang tinggal menunggu waktu. Ia sudah menyewakan rumahnya di Manchester ke orang lain. Selain itu, Balotelli disebut telah mengadakan pesta perpisahan dan salah satu staf pelatih City, Brian Kidd, tampak tengah meminta tandatangan Balotelli di jersey City, di tempat latihan.