Bahasa Pemrograman Delphi

• Program Menghitung Luas Lingkaran
• Program Menghitung Luas Segitiga
• Program Mengurutkan Angka Secara Ascending
• Program Mengurutkan Angka Secara Descending

Program Mengurutkan Angka Secara Descending Menggunakan Delphi

Well, setelah tadi penulis share tentang mengurutkan angka secara Ascending, kini penulis ingin membantu rekan-rekan semua mengurutkannya secara Descending(Dari Angka Terbesar Hingga Terkecil).

Listing Programnya!!!


procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i:=10 downto 1 do
listbox1.items.add(inttostr(i));
end;

end.


Hasil setelah Di Running!

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!

Program Mengurutkan Angka Secara Ascending Menggunakan Delphi

Hi semua.. Kali ini penulis ingin ngasih tambahan ilmu buat para pembaca sekalian,,,

Tentang gimana cara mengurutkan angka dari angka terbesar hingga terkecil.

Disini, Penulis menggunakan Listbox sebagai wadah untuk menampung hasil output yang akan ditampilkan setelah hasil Running dilakukan, dan memakai angka 1-10!!!

wadah??? nampung??? air hujan ya???

hahahaha... tapi yang jelas pengertian yang penulis buat seperti itu adanya. 

Tanpa panjang lebar langsung ke Listingnya yuukkk...

procedure TForm1.Button1Click(Sender: TObject);

var i : integer;

begin

for i:=1 to 10 do

listbox1.items.add(inttostr(i));

end;

end.

Hasil Setelah di Running!!!

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!

Program Menghitung Luas Segitiga Menggunakan Delphi

Langsung aja deh ne listing programnya!!!

procedure TForm1.Button1Click(Sender: TObject);
var alas, tinggi,hasil:real;
begin
alas:=strtofloat(edit1.text);
tinggi:=strtofloat(edit2.Text);
hasil:=alas*tinggi/2;
edit3.text:=floattostr(hasil);

end;

end.

Hasil Running nya!!!

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!

Program Menghitung Luas Lingkaran Menggunakan Delphi

Kali ini Penulis ingin membahas gimana program luas lingkaran menggunakan bahasa Delphi.
Langsung Ke listing nya ya!!!


procedure TForm1.Button1Click(Sender: TObject);
var pi,r,hasil:real;
begin
pi:=3.14;
r:=strtofloat(edit1.Text);
hasil:=pi*r*r;
edit2.Text:=floattostr(hasil);
end;

end.

Hasil Setelah Di Running!!!

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!

Program Mencari Nilai Maksimum dan Minimum Menggunakan Bahasa C

Gimana Kabarnya ne para blogger semua???
Sehat pastinya kan??
Kali ini penulis ingin posting tentang gimana sih program untuk mencari nilai minimum dan maksimum.
Berikut Listing Programnya!!!


#include<stdio.h>
#include<conio.h>
void main()
{
int n,i,max,min,bil;
printf(" Program Mencari Nilai Maksimum dan Minimum\n");
printf("\n Masukkan Banyak Data =  ");
scanf("%d",&n);
printf("\n Masukkan Bilangan ke-1 = ");
scanf("%d",&bil);
max=bil;
min=bil;
for(i=2;i<=n;i++)
{
printf("\n Masukkan Bilangan Ke-%d = ",i);
scanf("%d",&bil);
if(bil>max)
max=bil;
if(bil<min)
min=bil;
}
printf("\n Nilai Maksimum nya adalah %d\n",max);
printf("\n Nilai Minimum  nya adalah %d\n",min);
getch();
}

Beginilah Hasilnya Setelah di Eksekusi...

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!

Program Menentukan Tahun Kabisat Menggunakan Bahasa C

Hello Every Body kini penulis ingin share ni tentang program Menentukan Tahun Kabisat.

Sebelumnya Kita Harus Tau dulu ketentuan soalnya.

Tahun Kabisat, yakni :

1. Tahun yang habis dibagi 4
2. Tahun yang habis dibagi 40 dan 100
3. Tahun yang habis dibagi 100 namun tidak habis dibagi 400

udah tau kan???

sekarang kita buat listing program nya, okeh cekibrottt...

#include <stdio.h>

#include <conio.h>

void main()

{

int tahun;

printf(" Program Menentukan Tahun Kabisat\n");

printf("\n Tahun = ");

scanf("%d",&tahun);

if(tahun%4==0)

printf("\n tahun kabisat");

else

if(tahun%100==0,tahun%40==0)

printf("\n tahun kabisat");

else

if(tahun%100==0,tahun%400!=0)

printf("\n bukan tahun kabisat");

getch();

}

dan Hasilnya Begini

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!

Program Menghitung Jumlah Pecahan Uang Menggunakan Bahasa C

Alooo smua gimana ne kabarnya? Pasti Sehat Semua kan???
Hari ini Penulis ingin share tentang Gimana sih program menghitung jumlah pecahan uang.
Kali ini, penulis menggunakan Switch "case"
okeh langsung aja ke Listing Program Di bawah Ini!!!

#include<stdio.h>
#include<conio.h>
void main ()
{
int uang,temp;
long int i,jml;
printf(" Program Menghitung Jumlah Pecahan uang\n");
printf("\n Jumlah Uang : ");
scanf("%i",&uang);
printf("\n ------------------------");
temp = uang;
printf("\n Pecahan Jumlah");
printf("\n ------------------------");
for (i=1; i<=14; i++)
{
switch(i)
{
case 1 : jml = temp/100000;
temp = temp-(100000*jml);
printf("\n 100000 = ",i);
break;
case 2 : jml = temp/50000;
temp = temp-(50000*jml);
printf("\n 50000 = ",i);
break;
case 3 : jml = temp/20000;
temp = temp-(20000*jml);
printf("\n 20000 = ",i);
break;
case 4 : jml = temp/10000;
temp = temp-(10000*jml);
printf("\n 10000 = ",i);
break;
case 5 : jml = temp/5000;
temp = temp-(5000*jml);
printf("\n 5000 = ",i);
break;
case 6 : jml = temp/2000;
temp = temp-(2000*jml);
printf("\n 2000 = ",i);
break;
case 7 : jml = temp/1000;
temp = temp-(1000*jml);
printf("\n 1000 = ",i);
break;
case 8 : jml = temp/500;
temp = temp-(500*jml);
printf("\n 500 = ",i);
break;
case 9 : jml = temp/200;
temp = temp-(200*jml);
printf("\n 200 = ",i);
break;
case 10 : jml = temp/100;
temp = temp-(100*jml);
printf("\n 100 = ",i);
break;
case 11 : jml = temp/50;
temp = temp-(50*jml);
printf("\n 50 = ",i);
break;
case 12 : jml = temp/25;
temp = temp-(25*jml);
printf("\n 25 = ",i);
break;
case 13 : jml = temp/10;
temp = temp-(10*jml);
printf("\n 10 = ",i);
break;
case 14 : jml = temp/1;
temp = temp-(1*jml);
printf("\n 1 = ",i);
break;
}
printf("%d",jml);
}
printf("\n ------------------------");
getch();
}

Ini Dia Hasil Setelah di Running

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!

Bahasa Pemrograman C/C++

• Program Menghitung Luas Persegi Panjang
• Program Menghitung Luas Lingkaran
• Program Menghitung Jumlah Pecahan Uang
• Program Menentukan Tahun Kabisat
• Program Mencari Nilai Maksimum dan Minimum

Program Menghitung Luas Lingkaran Menggunakan Bahasa C

Halo Semua, kali ini penulis mau ngasih tau ne gimana membuat program menghitung luas lingkaran
Langsung aja ne Ke TKP

Algoritmanya!!!

Algoritma Luas_Segitiga

{Menghitung luas persegi panjang dengan memasukkan nilai alas dan tinggi}

Deklarasi

   pi,r,luas : float;

Deskripsi

               printf("jari-jari");

               scanf("%f",&r);

               3.14 ß pi

               luas ß pi*r*r

                    printf("luas = %.2f",luas);

Ini Listing Programnya :

#include<stdio.h>
#include<conio.h>
void main()
{
float pi,r,luas;
printf(" Program Menghitung Luas Lingkaran\n");
printf(" \n jari-jari = ");
scanf("%f",&r);
pi = 3.14;
luas=pi*r*r;
printf("\n luas      = %.2f\n",luas);
getch();
}

Hasil Setelah di Running :

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!

Program Menghitung Luas Persegi Panjang Menggunakan Bahasa C

Di Postingan Kali Ini Penulis ingin share program sederhana untuk menghitung luas persegi panjang.

Algoritmanya!!!

Algoritma Luas_Persegi_Panjang

{Menghitung luas persegi panjang dengan memasukkan nilai panjang dan lebar}

Deklarasi

    p,l,luas : float;

Deskripsi

                printf(“Panjang”);

                scanf(“%f”,&p);

                printf(“Lebar”);

                scanf(“%f”,&l);

                luas ß p*l

                printf(“luas = %.2f”,luas);

Flowchartnya!!!

Listing Programnya!!!

#include<stdio.h>

#include<conio.h>

void main()

{

float p,l,luas;

printf(" Program Menghitung Luas Persegi Panjang\n");

printf(" \n Panjang = ");

scanf("%f",&p);

printf("\n Lebar   = ");

scanf("%f",&l);

luas=p*l;

printf("\n luas    = %.2f\n",luas);

getch();

}

Hasil Setelah Di Running

Terima Kasih Atas Kunjungan Anda ^_^

Lebih dan Kurang Penulis Memohon Maaf
Silahkan Tinggalkan Komentar Anda!!!

A Thousand Splendid Suns

Judul Buku         : A Thousand Splendid Suns
Pengarang         : Khaled Hosseini      
Penerbit             : Qanita          
Jumlah Halaman : 626

Klik Tombol Ini Untuk Mendownload

Kick Andy

Judul Buku         : Kick Andy
Pengarang          : Gantyo Koespradono      
Penerbit             : Bentang           
Jumlah Halaman : 318

Klik Tombol Ini Untuk Mendownload

Hafalan Shalat Delisa

Judul Buku         : Hafalan Shalat Delisa
Pengarang          : Tere Liye      
Penerbit             : Republika          
Jumlah Halaman : 308

Klik Tombol Ini Untuk Mendownload

Sang Pemimpi

Judul Buku         : Sang Pemimpi
Pengarang          : Andrea Hirata
Penerbit             : Bentang
Jumlah Halaman : 276

Klik Tombol Ini Untuk Mendownload

Edensor

Judul Buku         : Edensor
Pengarang          : Andrea Hirata
Penerbit             : Bentang
Jumlah Halaman : 314

Ayat Ayat Cinta

Judul Buku         : Ayat Ayat Cinta

Pengarang          : Habiburrahman El Shirazy

Penerbit             : Republika

Jumlah Halaman : 550

Klik Tombol Ini Untuk Mendownload

Novel