Toro Punya Blog

Kamis, 21 Januari 2016

obat penawar rindu

Senin, 08 Juni 2015

http://catatanaktivismuda.blogspot.com/2013/08/peran-fungsi-mahasiswa-pfm.html

http://en.wikipedia.org/wiki/Flip-flop_%28electronics%29

Minggu, 31 Mei 2015

Sistem Informasi Pembayaran Rekening Listrik

uses crt;
var
   kode:integer;
   jnsplg:string;
   beban:real;
   hargakwh:integer;
   pembayaran:real;
   pemakaian:real;
   no:integer;
   q:integer;
label
     ulang;

begin
      clrscr;
      no:=1;
      writeln('Informasi Pembayaran Rekening Listrik');
      writeln('-----------------------------------------------------------------');
      gotoxy(0,3);write('No');
      gotoxy(5,3);write('Kode');
      gotoxy(13,3);write('Jenis Pelanggan');
      gotoxy(30,3);write('Beban');
      gotoxy(40,3);write('Pemakaian');
      gotoxy(55,3);write('Pembayaran');
      writeln;
      writeln('-----------------------------------------------------------------');
ulang:
     gotoxy(0,3+no+1);write(no);
     gotoxy(5,3+no+1);read(kode);
     if (kode=1) then
     begin
          jnsplg:='RUMAH';
          beban:=25000;
          hargakwh:=3000;
     end
     else if(kode=2) then
     begin
          jnsplg:='TOKO';
          beban:=50000;
          hargakwh:=5000;
     end
     else if(kode=3) then
     begin
          jnsplg:='PABRIK';
          beban:=10000;
          hargakwh:=10000;
     end;
     gotoxy(13,3+no+1);write(jnsplg);
     gotoxy(30,3+no+1);write(beban:0:0);
     gotoxy(40,3+no+1);read(pemakaian);
     pembayaran:=beban+hargakwh*pemakaian;
     gotoxy(55,3+no+1);write(pembayaran:0:0);

     gotoxy(63,3+no+1);
     write('Lagi?');
     readln(q);
     no:=no+1;
     if(q=1) then goto ulang;

readkey;
end.

Kamis, 30 April 2015

Program mencari modus dengan C++

Kemarin ada teman dari facebook yang bertanya tentang cara bagai mana untuk menetukan sebuah modulus dengan Array , dan berikut ini, saya share kembali kepada teman-teman yang sudah mampir ke blog ini untuk meihat progam selengkapnya tentang membuat modulus dengan C++.
Berikut adalah sintax program selengkapnya, yang telah saya jalankan pada Borland C++ 5.02

#include<iostream.h>
#include<conio.h>
int x;
void findmod(float bil[], int n, float mod[])
{
int total[100];
int k=1;
x=0;
//untuk mengurutkan secara ascending
for(int c=0;c<n;c++)
{
for(int i=(n-1);i>=0;i--)
{
if(bil[i]<bil[i-1])
{
int temp;
temp=bil[i];
bil[i]=bil[i-1];
bil[i-1]=temp;
}
}
}
//menghitung berapa kali muncul tiap angka
for(int c=0;c<n;c++)
{
total[c]=0;
for(int i=0;i<n;i++)
{
if(bil[c]==bil[i])
{
total[c]++;
}
}
}
//menentukan nilai yang paling sering muncul
for(int c=0;c<n;c++)
{
if(total[c]>k)
{
k=total[c];
}
}
//jika modus lebih dari satu
for(int c=0;c<n;c++)
{
if(x==0)
mod[x]=0;
else
mod[x]=mod[x-1];
if(total[c]==k)
{
if(bil[c]!=mod[x])
{
mod[x]=bil[c];
x++;
}
}
}
//Jika Semua angka muncul sama banyak
int z=0;
for(int c=0;c<n;c++)
{
if(total[c]==k)
{
z++;
}
}
if(z==n)
{
x=0;
}
}
void main()
{
int n;
float bil[100];
float mod[100];
cout<<"Banyak N : ";cin>>n;
for(int c=0;c<n;c++)
{
cout<<"Nilai "<<(c+1)<<" : ";cin>>bil[c];
}
cout<<endl;
findmod(bil,n,mod);
if (x==0)
cout<<"Tidak Ada Modus!"<<endl;
else
{
cout<<"Modus : ";
for(int c=0;c<x;c++)
{
cout<<mod[c]<<" ";
}
}
getch();
}

Dan, hasil Outputnya adalah sbb:

Selasa, 28 April 2015

CONTOH PROGRAM KONDISI IF-ELSE PADA C++ MENGGUNAKAN DEV C++

I.PENDAHULUAN

Dalam bahasa pemograman C++ ada 3 perulangan/looping yaitu if-else dan switch-case.Kali ini saya akan membuat program looping menggunkan if-else dengan apikasi DEV C++.

II.CONTOH PROGRAM

Contoh program if-else pada c++ berikut programnya :

#include<iostream>

using namespace std;

#define phi 3.14

int main()

{

char lagi;

int pilih;

float a,t,r,p,l,luas;

menu:

system ("cls");

cout<< "================================\n";

cout<< "| Menghitung Luas Bangun Datar |\n";

cout<< "================================\n";

cout<< "| 1. Luas segitiga |\n";

cout<< "| 2. Luas lingkaran |\n";

cout<< "| 3. Luas persegi panjang |\n";

cout<< "| 4. Keluar |\n";

cout<< "================================\n";

cout<< "Masukkan pilihan anda [1..4]? ";

cin>>pilih;

cout<< "\n";

if (pilih==1)

{

cout<< "Luas Segitiga \n";

cout<< "====================\n";

cout<< "Masukkan alas : ";

cin>>a;

cout<< "Masukkan tinggi : ";

cin>>t;

luas = (a*t)/2;

cout<< "Luas segitiga : "<<luas;

cout<<"\n\n";

cout<< "Masih lanjut [y/t]? ";

cin>>lagi;

if (lagi == 'y')

goto menu;

else goto keluar;

}

else if (pilih==2) {

cout<< "Luas Lingkaran \n";

cout<< "=====================\n";

cout<< "Masukkan jari-jari : ";

cin>>r;

luas = phi*(r*r);

cout<< "Luas lingkaran : "<<luas;

cout<<"\n\n";

cout<< "Masih lanjut [y/t]? ";

cin>>lagi;

if (lagi == 'y')

goto menu;

else goto keluar;

}

else if (pilih==3) {

cout<< "Luas Persegi panjang \n";

cout<< "===========================\n";

cout<< "Masukkan panjang : ";

cin>>p;

cout<< "Masukkan lebar : ";

cin>>l;

luas = p*l;

cout<< "Luas persegi panjang: "<<luas;

cout<< "\n\n";

cout<< "Masih lanjut [y/t]? ";cin>>lagi;

if (lagi == 'y')

goto menu;

else goto keluar;

}

else if (pilih==4) {

keluar:

cout<< "\n Terima kasih.";

}

else {

cout<< "Maaf input yang anda masukkan salah, silahkan coba lagi \n\n";

goto menu;

}

return 0;

}

Outputnya :

Jika anda memilih 2 dan memasukan nilai jari-jarinya 2 maka outputnya :

Jika anda pilih y program akan kembali ke menu awal tetapi, jika anda memilih t program berhenti.