Harusnya Kita bangga jadi bangsa indonesia

Ada banyak prestasi anak bangsa di Indonesia yang dikenal, bahkan digunakan oleh dunia, tetapi masih sedikit yang diwartakan kepada kita. Sungguh sayang kondisi ini, tetapi bagi yang sudah tau pasti akan sangat bangga. Berikut ini beberapa kesuksesan anak bangsa :

1. PT.PAL sukses bikin salahsatu kapal terbaik didunia “Star 50″ berbobot 50,000 ton. Salah satu Negara yg pesan kapal ini adl Singapura.

2. Di singapura gamelan jd mata pelajaran wajib di SD pada hampir sebagian wilayahnya.

3. Pabrik/manufaktur Mattel (boneka Barbie USA) hanya ada 2 didunia yaitu di China dan di Jababeka,Cikarang.
4. Brand internasional yg amat prestisius, Gucci,menggunakan kain tenun asli Indonesia sbg bahan bakunya.

5. Mobil terpopuler diUni Emirat Arab adl Toyota Kijang Innova yg sepenuhnya diproduksi di Indonesia.

6. Bunga nasional Korea Utara yg amat popular Kimilsungia berasal dari Indonesia dan diberi nama oleh Presiden RI Ir. Soekarno

7. Tahukah Anda, airbridge –tangga belalai menuju pintu pesawat yg ngetrend di bandara2 dunia kali pertama dibuat oleh PT Bukaka, Indonesia
8. Pejuang HAM legendaris bapak pembebasan Negara Afrika Selatan Nelson Mandela,setelah berhasil menghapus Apartheid di negerinya, mengakui bahwa perjuangannya itu diinspirasikan perjuangan Syekh Yusuf dari Makassar
9. Thn 2002, dlm Special Edition TIME magazine on Asian Heroes, penyanyi Iwan Fals jd cover fullpage.

10. Mobil prestisius,Mercedes Benz, menggunakan knalpot buatan Indonesia, yg pengerjaannya sepenuhnya dilakukan di Purbalingga,Jawa Tengah
11. Presiden RI ke-3, BJ Habibie adl pemegang 46 paten dibidang aeronautika dunia

12. David Foster mengaku,lagu ciptaanya ‘To Love You More’ yg dibawakan Celine Dion terinspirasi dari musik Keroncong Indonesia
13. Menara Kuala Lumpur dirancang oleh putra Indonesia, Ir.Achmad Murdijat alumni ITB

14. Indofood adl produsen mie instan terbesar di dunia

15. Tas Bagteria made in Indonesia telah dijajakan diberbagai etalase dimall2 kelas atas di 32 negara diseluruh penjuru dunia & dipakai Paris Hilton,Zara Phillips,Emma Thomson,& Audrey Tatou

sumber (http://www.thedollarcorner.com)

Red and White Color Meaning (The Flag of INDONESIA)

1. all the countries of Southeast Asia would have a Red and White colors in its flag (except Vietnam).

- Malaysia: red, white, blue, yellow
- Singapore: red, white
- Brunei: yellow, black, red, white
- Thailand: red, white, blue
- Philippines: red, white, blue, yellow
- Cambodia: red, white, blue
- Myanmar: red, white, blue
- Laos: red, white, blue

and also in other countries

- United States: red, white, blue
- Russia: red, white, blue
- Japan: red, white
- France: red, white, blue
- Italy: red, white, green
- UK: red, white, blue


2. Red and White is the color of the oldest pair in the culture of many countries in the world.

- Among the clothes favored by the Prophet Muhammad was a white dress and red.

* From Jabir ibn Samurah ra: "I saw the Prophet when a red dress. Then I compare it to see the moon. It turned out that in my observation, he was more beautiful than the moon. "(Narrated by Abu Ya'la and Al-Bayhaqi)
* Ibn Qudama said, "Clothes are the main thing is that white clothes because the Prophet said, 'The best clothes that you are white. Use it as your clothes and your shroud. "(Al Mughni, 3 / 229)

-In countries Malay Archipelago and in culture, we are very familiar with the red pulp and white pulp.
-In Japan, there is the term "kouhaku" where in a match then the red one (Kou / beni) and the other white (HAKU / shiro).
* Russian Civil War and the Civil War Finland was the battle between the Red Army and White.
* In China, red is the color of luck and is used for weddings. Angpao in ordinary Chinese people are given in red envelopes. Instead, White is the opposite of Red color, because white is usually interpreted as the color of mourning. So, the Red and White are in pairs.
* In Christian culture, Jesus is often depicted dressed in Red and White.
Colors Red and White is also one of the main color in Natal (see Santa Claus outfit.) Not has it ever occurred to the brain agan why Santa Claus is not just Black and White dress for example?
* There are 150 countries which include the color red on the National Flag of nationality.


3. In anatomy, Red and White is the color of the oldest in the human body. Since the fetus is formed in the womb, then it is composed of blood and meat (red) and bone (white).


4. Geologically, the Red & White is a representation of two natural elements that the hottest and coldest on earth. What is the hottest lava / core of the earth (red), and the coldest is snow (white). Red and White is a representation of the hottest and coldest thing on the planet!


5. In optics, Red is the color with the lowest frequency of light which the human eye can still be captured with a wavelength of 630-760 nm. On the other hand, if the primary color and intensity combined with the portion of the same, it will form the color white.


6. Red Light is the first light which is absorbed by seawater, so many fish and marine invertebrates, which the Red color. On the other hand, the ripple waves always look colored White. So, one might say, Red and White was in itself a symbol of the sea itself. No wonder, Indonesia which is a maritime country / island nation chose to have the flag!



For those who think that our flag was torn from the flag of the Netherlands, please read the facts of history! Precisely the original Red and White is the color of Indonesia!

Colors Red and White taken from the color of the Majapahit Kingdom. Before the Majapahit, the kingdom of Kediri was wearing "the banner of" Red and White.
In addition, the flag of the ground war Batak Sisingamangaraja IX was wearing red and white colors as the color flag, bearing the twin swords with the basic color White Red and White Lights. Red & White color is the flag of war Sisingamangaraja XII. The two swords symbolize the twin blades densely packed Gaja, heritage of kings Sisingamangaraja I-XII.
When there is war in Aceh, Aceh fighters have used the flag of war "banners" with the color Red & White, set in the sword, crescent moon, sun and stars and the holy verses of the Qur'an.
At the time of the Bugis kingdom of Bone, Red and White flag is a symbol of power and greatness of the kingdom of Bone. Bone flag was known as the Woromporang.
At the time Java war (1825-1830 AD) Prince Diponegoro wear "colored banner of Red and White in his struggle against the Dutch.
The flag, called the Red and White was first used by students and nationalists in the early 20th century under Dutch rule.
"Sang Saka Merah Putih" which was unfurled at the time of the Proclamation of Independence August 17, 1945 stitched by Ms. Fatmawati, the wife of President Sukarno, in 1944, measuring 276 x 200 cm.
About Dutch flag rupture events at Hotel Yamato, Surabaya, it happened long after the Proclamation of Independence, on September 19, 1945. While the Proclamation of Independence August 17, 1945, we already flying the flag. So, not really red and white we are the result of tear Dutch flag.
(http://zonapencarian.blogspot.com)

Review dan Free Download MP3 Album Berlayar dari Sheila on 7

"Berlayar itu identik dengan perjalanan panjang, penuh rintangan, cuaca juga. Kita menggambarkan perjalanan Sheila on 7 dulu dan beberapa tahun yang akan datang ibarat berlayar," ujar sang vokalis Duta Modjo
Bagi yang belum dengerin lagu-lagu di album ini disarankan segera dengerin . . .
masih seperti album-album sebelumnya yang sangat enak buat didengar album ini pun wajib dimasukan kedalam playlist anda . . . haha
album ini berbeda dan unik secara fisiknya . . . pokoknya beli aja yang asli kalau pengen tahu . . . ya kalau ga pengen tahu juga tetep beli yang asli . . . hhe
dan ini lagu-lagu yang ada di dalamnya . . .

1. Have Fun (3:28) download
2. Pasti Ku Bisa (3:59) download
3. Hujan Turun (3:56) download
4. On The Phone (4:14) download
5. Hari Bersamanya (3:52) download
6. Berlayar Denganku (4:34) download
7. Perfect Time (4:05) download
8. Kamus Hidupku (Demo Version) (4:23) download
9. Bait Pertama (3:44) download
10. Hari Bersamanya (Accoustic Version) (3:57) download

ini link - link free download (download gratis) mp3 dari album berlayar - sheila on 7.
http://www.ziddu.com/download/14137660/01-Sheila-On-7-Have-Fun.mp3.html
http://www.ziddu.com/download/14138157/02-Sheila-On-7-Pasti-Ku-Bisa.mp3.html
http://www.ziddu.com/download/14138188/03-Sheila-On-7-Hujan-Turun.mp3.html
http://www.ziddu.com/download/14138262/04-Sheila-On-7-On-the-Phone.mp3.html
http://www.ziddu.com/download/14138314/06-Sheila-On-7-Berlayar-Denganku.mp3.html
http://www.ziddu.com/download/14138405/07-Sheila-On-7-Perfect-Time.mp3.html
http://www.ziddu.com/download/14138461/08-Sheila-On-7-Kamus-Hidupku.mp3.html
http://www.ziddu.com/download/14138496/09-Sheila-On-7-Bait-Pertama.mp3.html
http://www.ziddu.com/download/14138620/10-Sheila-On-7-Hari-Bersamanya-Versi-Akustik-.mp3.html
http://www.ziddu.com/download/14138700/05-Sheila-On-7-Hari-Bersamanya.mp3.html

free download contoh program persamaan kuadrat dengan borland delphi 7

program persamaan kuadrat dengan delphi 7 ini berfungsi dan digunakan untuk melihat akar-akar persamaan kuadrat. semoga bemanfaat.

download gratis file lengkapnya disini

free download contoh program aljabar himpunan dengan borland delphi 7

program aljabar himpunan ini berfungsi dan digunakan untuk menampilkan irisan dan gabungan dari dua himpunan. Bagi anda yang membutuhkan contoh program aljabar himpunan yang dibuat dengan borland delphi 7, download file lengkapnya

disini. yang berisi file application, cfg file, dop file, dpr file, res file, dan file file lainnya. Semoga bisa bermanfaat dan digunakan sebagaimana mestinya. terimakasih.

download gratis file lengkapnya disini.
jangan lupa untuk melihat program-program lainnya.

free download contoh program bilangan prima dengan borland delphi 7

program bilangan prima yang berfungsi dan digunakan untuk 3 hal mengenai bilangan prima, yaitu mengetahui apakah sebuah bilangan merupakan bilangan prima atau bukan, untuk menampilkan bilangan prima sebanyak anda inginkan, dan untuk menampilkan bilangan prima kurang dari angka yang anda sebutkan (isikan).
bagi anda yang membutuhkan contoh programt bilangan prima dengan menggunakan borland delphi 7, silakan download file lengkapnya
disini.. semoga bermanfaat! terimakasih.

download gratis file lengkapnya disini.

free download contoh program kalkulator dengan borland delphi 7

Dengan Borland Delphi 7 saya membuat program kalkulator. Untuk anda yang membutuhkan contoh program kalkulator yang dibuat dengan borland delphi 7, download file lengkapnya
disini yang berisi file application, cfg file, dop file, dpr file, res file, dan file file lainnya. kalkulator ini sangat sederhana, saya yakin anda lebih kreatif dan mampu membuat  programkalkulator yang lebih baik lagi dengan delphi 7. selamat berkreasi! terimakasih.

download gratis file lengkapnya disini

free download delphi 7

download gratis delphi 7 disini untuk memulai belajar delphi 7, dan di halaman ini tersedia beberapa contoh project dari delphi 7, namun hanya unitnya saja, untuk file lengkapnya mungkin selanjutnya akan di upload sebagai bahan pembelajaran dan contoh dalam membuat project di delphi 7. namun mohon maaf apabila banyak kesalahan, semuanya hanya dari tugas tugas saya yang kemudian di upload untuk belajar dan berbagi.

bocoran mini album Little Think (we're coming)

Mini album, Sebuah cita - cita yang bukan muncul satu jam sebelum terciptanya mini album tersebut, namun Alif dan Anggit Personil Little think itu telah memikirkannya jauh -jauh hari, bukan hanya saat mereka di Little Think bahkan jauh sebelum terbentuknya Little Think.
Bisa jadi Little Think menjadi jembatan tercapainya cita-cita mereka untuk memperdengarkan karya mereka dan ikut mewarnai dunia musik tanah air setelah sebelumnya menemukan berbagai rintangan untuk menggapainya. Dengan konsep yang lebih matang merekapun yakin mini album ini akan rampung dan siap dinikmati pasar musik nasional maupun internasional.
album ini berisikan 5 lagu, dua diantaranya berbahasa inggris dengan harapan dan tujuan untuk menembus pasar musik internasional.
Singing in The Night,Wake Up, Jln. Jendral Sudirman, Jomblo Tabah, dan Kau Dimana adalah judul-judul lagu yang bisa ditemukan di album ini.
album ini mereka buat sendiri dengan pendirian mereka yang teguh untuk berkreasi sendiri tanpa memohon dan mengemis kepada major label. mereka yakin, mereka dengan indie labelnya mampu membuat mini album yang patut diperhitungkan dan mampu bersaing di belantika musik nasional maupun internasional.
dengarkan lagu-lagunya disini gan!!
(bersambung . . .)

Project Bilangan Pythagoras Delphi 7

.........PHYTAGORAS........
procedure TForm1.Button3Click(Sender: TObject);
var n,i,j,k,a,b,c:integer;
begin
  n:=StrToInt(Edit1.Text);
  For i:=1 to n do
  begin
  For j:=1 to i do
    begin
    for k:=1 to j do
      begin
      a:=i*i;
      b:=j*j+k*k;
      if a=b
      then
        begin
        c:=c+1;
        Listbox1.Items.Add('Bilangan Phytagoras-'+IntToStr(c)+':'+IntToStr(k)+','+IntToStr(j)+','+IntToStr(i));
  end;
  end;
  end;
  end;

end;



end.

PROJECT KONVERSI MATA UANG DELPHI 7

....KONVERSI MATA UANG......
COMBOBOX1=INPUT, COMBOX2=OUT


procedure TForm1.Button1Click(Sender: TObject);
var x:real;
begin
x := strtofloat(Edit1.Text);

if (combobox1.Text='RUPIAH') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x/9000);
 if (combobox1.Text='RUPIAH') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x/1);
if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x*9000);

if (combobox1.Text='RUPIAH') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x/6619);
if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x*6619);

if (combobox1.Text='RUPIAH') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x/13650);
if (combobox1.Text='EURO') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x*13650);

if (combobox1.Text='RUPIAH') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/17076);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x*17076);

if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x/0.6994);
 if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x/1);
if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x*0.6994);

if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x/1.4422);
if (combobox1.Text='EURO') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x*1.4422);

if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/1.8041);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x*1.8041);

if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x/2.0618);
if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x/1);
if (combobox1.Text='EURO') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x*2.0618);

if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/2.5792);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x*2.5792);

if (combobox1.Text='EURO') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/1.251);
if (combobox1.Text='EURO') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x/1);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x*1.251);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/1);


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

end.

PROJECT BILANGAN FIBONACCI DELPHI 7

........FIBONACCI..........

procedure TForm1.Button1Click(Sender: TObject);
Var i,n,a,b,c:Integer;
begin
   n:=StrToInt(Edit1.Text);
   a:=1;
   b:=1;
   ListBox1.Items.Add('Bil.Fibonacci ke-1=1');
   ListBox1.Items.Add('Bil.Fibonacci ke-2=1');
   for i:=3 to n do
   begin
   c:=a+b;
   ListBox1.Items.Add('Bil.Fibonacci ke-'+IntToStr(i)+'='+IntToStr(c));
   a:=b;
   b:=c;
   end;
end;


END.

PROJECT DEKOMPOSISI N BUAH BILANGAN (DELPHI 7)

..............DEKOMPOSISI BILANGAN N.........

procedure TForm1.Button1Click(Sender: TObject);
var i,a,b:integer;
        k:real;
begin
    a:=StrToInt(Edit1.Text);
    i:=2;
    b:=a;
    while i<=a do
    begin
    if b mod i=0
    then
    begin
    Listbox1.Items.Add(IntToStr(i));
    k:=b/i;
    b:=trunc(k);
    end
    else i:=1+i;
    end;

end;

end.

PROJECT BILANGAN PRIMA SEBANYAK N (DELPHI 7)

.......BILANGAN PRIMA SEBANYAK n......
EDIT1=MASUKAN,LISTBOX1=KELUARAN

procedure TForm1.Button1Click(Sender: TObject);
var i,a,b,c,d:integer;
            p:boolean;
begin
    a:=StrToInt(Edit1.Text);
    For b:=2 to 1000 do
    begin
    i:=2;
    p:=true;
    while(i<=b-1)and p do
       begin
       c:=b mod i;
       if c=0 then p:=false;
       i:=i+1;
       end;
    if Listbox1.Items.count<a then
    if p=true then
    Listbox1.Items.Add('Bilangan Prima ke-'+IntToStr(Listbox1.Items.count+1)+'='+IntToStr(b));
    end;
end;


end.

PROJECT BILANGAN PRIMA (DELPHI 7)

.........BIL. PRIM ATAU BUKAN.........
EDIT1=MASUKAN, EDIT 2= KETERANGAN

procedure TForm1.Button1Click(Sender: TObject);
var n,i,s:integer;
    p:boolean;
begin
    n:=StrToInt(Edit1.Text);
    i:=2;
    P:=True ;
    while (i<=n-1) and p do
    begin
    s:=n mod i;
    if s=0 then p:=false;
    i:=i+1;
    end;

    if p=true
    then Edit2.Text:='  Bilangan Prima'
    else Edit2.Text:='  Bilangan Komposit';
    if n=1
    then Edit2.Text:='  Bilangan Komposit';
    if n=0
    then Edit2.Text:='  Bilangan Komposit';
end;


end.

PROJECT ALJABAR HIMPUNAN (DELPHI 7)

........ALJABAR HIMPUNAN..........
LISTBOX1=INPUT DATA A, LISTBOX2=AnB,
LISTBOX3=AUB, LISTBOX4=A+B, LISTBOX5=A-B
LISBOX6=INPUTB

procedure TForm1.Button8Click(Sender: TObject);  //SELESAI
begin
  close;
end;

procedure TForm1.Button7Click(Sender: TObject); //HAPUS
begin
edit1.Clear; edit2.Clear;
listbox1.Clear; listbox2.Clear; listbox3.Clear; listbox4.Clear;
listbox5.Clear; listbox6.Clear;

end;

procedure TForm1.Button1Click(Sender: TObject); //>>
begin
with ListBox1.Items do
Add(Edit1.Text);
Edit1.Text:='';
end;


procedure TForm1.Button6Click(Sender: TObject); //<<
begin
with ListBox6.Items do
Add(Edit2.Text);
Edit2.Text:='';
 end;
procedure TForm1.Button2Click(Sender: TObject);//AnB
Var i,j:Integer;
    A,B:Array[0..10] of String;
begin
    For i:=0 to ListBox1.Items.Count-1 do
    A[i]:=ListBox1.Items[i];
    For j:=0 to ListBox6.Items.Count-1 do
    B[j]:=ListBox6.Items[j];
    For i:=0 to ListBox1.Items.Count-1 do
    begin
    For j:=0 to ListBox6.Items.Count-1 do
    if A[i]=B[j] then ListBox2.Items.Add(A[i]);
    end;
    end;

procedure TForm1.Button3Click(Sender: TObject); //AUB
Var i,j:Integer;
    A,B:Array[0..100] of String;
    ada:Boolean;
begin
    For i:=0 to ListBox1.Items.Count-1 do
    A[i]:=ListBox1.Items[i];
    For j:=0 to ListBox6.Items.Count-1 do
    B[j]:=ListBox6.Items[j];
    For i:=0 to ListBox1.Items.Count-1 do
    ListBox3.Items.Add(A[i]);
    For j:=0 to ListBox6.Items.Count-1 do
    begin
    ada:=false;
    For i:=0 to ListBox1.Items.Count-1 do
    if A[i]=B[j] then ada:=true;
    if ada=false then ListBox3.Items.Add(B[j]);
end;
end;
procedure TForm1.Button4Click(Sender: TObject); //A+B
Var i,j:Integer;
    A,B:Array[0..100] of String;
    ada:Boolean;
begin
    For i:=0 to ListBox1.Items.Count-1 do
    A[i]:=ListBox1.Items[i];
    For j:=0 to ListBox6.Items.Count-1 do
    B[j]:=ListBox6.Items[j];
    For i:=0 to ListBox1.Items.Count-1 do
    begin
    ada:=false;
    For j:=0 to ListBox6.Items.Count-1 do
    if A[i]=B[j] then ada:=true;
    if ada=false then ListBox4.Items.Add(A[i]);
    end;
    For j:=0 to ListBox6.Items.Count-1 do
    begin
    ada:=false;
    For i:=0 to ListBox1.Items.Count-1 do
    if A[i]=B[j] then ada:=true;
    if ada=false then ListBox4.Items.Add(B[j]);
end;
end;


procedure TForm1.Button5Click(Sender: TObject); //A-B
Var i,j:Integer;
    A,B:Array[0..100] of String;
    ada:Boolean;
begin
    For i:=0 to ListBox1.Items.Count-1 do
    A[i]:=ListBox1.Items[i];
    For j:=0 to ListBox6.Items.Count-1 do
    B[j]:=ListBox6.Items[j];
    For i:=0 to ListBox1.Items.Count-1 do
    begin
    ada:=false;
    For j:=0 to ListBox6.Items.Count-1 do
    if A[i]=B[j] then ada:=true;
    if ada=false then ListBox5.Items.Add(A[i]);
end;
end;
end.

PROJECT MENGURUTKAN KELIPATAN A KURANG DARI B (DELPHI 7)

............URUT KELIPATAN A KURANG DARI B.........

procedure TForm1.Button1Click(Sender: TObject);
var a,b,i:integer;
begin
   a:=strtoint(edit1.text);
   b:=strtoint(edit2.text);
   i:=0;

   while i<b-a do
   begin
   with listbox1.items do
   i:=i+a;
   listbox1.Items.add(inttostr(i));
   end;
end;

end.

PROJECT MENGURUTKAN BILANGAN DARI BESAR KE KECIL (DELPHI 7)

.........URUTIN BESAR-KECIL.........
BIL.PER=EDIT1, BIL2=EDIT2, BIL3=EDIT3

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z: integer ;
begin
  x:=strtoint(edit1.Text);
  y:=strtoint(edit2.Text);
  z:=strtoint(edit3.Text);

  if (x>y) and (y>z)then
  begin
  listbox1.Items.Add(inttostr(z));
  listbox1.Items.Add(inttostr(y));
  listbox1.Items.Add(inttostr(x));
   end
   else

  if (x>y) and (y<z) and (x>z) then
  begin
  listbox1.Items.Add(inttostr(y));
  listbox1.Items.Add(inttostr(z));
  listbox1.Items.Add(inttostr(x));
   end
   else

   if (y>x) and (x>z)then
  begin
  listbox1.Items.Add(inttostr(z));
  listbox1.Items.Add(inttostr(x));
  listbox1.Items.Add(inttostr(y));
   end
   else

   if (x<y) and (y>z) and (z>x) then
  begin
  listbox1.Items.Add(inttostr(x));
  listbox1.Items.Add(inttostr(z));
  listbox1.Items.Add(inttostr(y));
   end
   else

   if (z>y) and (y>x)then
  begin
  listbox1.Items.Add(inttostr(x));
  listbox1.Items.Add(inttostr(y));
  listbox1.Items.Add(inttostr(z));
   end
   else

   if (z>y) and (y<x) and (x<z)then
  begin
  listbox1.Items.Add(inttostr(y));
  listbox1.Items.Add(inttostr(x));
  listbox1.Items.Add(inttostr(z));
   end
   else

 showmessage('ada dua atau lebih bilangan yang sama')
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 listbox1.clear; edit1.Clear; edit2.Clear;edit3.clear;
end;

end.

PROJECT KONVERSI NILAI, BULAN DAN SUHU (DELPHI 7)

.............KONVERSI NILAI, BULAN, SUHU.................

procedure TForm1.Button1Click(Sender: TObject);
var x:real ;
begin
 x:=strtofloat(edit1.Text);
 if x>100 then showmessage('anda salah')else
 if x>=85 then edit2.Text:='A' else
 if x>=70 then edit2.Text:='B' else
 if x>=55 then edit2.Text:='C' else
 if x>=40 then edit2.Text:='D' else
               edit2.Text:= 'gagal'

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear; edit2.clear;
end;

end.

..........KONVERSI BULAN............
procedure TForm1.Button1Click(Sender: TObject);
var x: integer;
begin
x:=strtoint(edit1.Text);

case x of
     1: edit2.Text:='Januari';
     2: edit2.Text:='Februari';
     3: edit2.Text:='Maret';
     4: edit2.Text:='April';
     5: edit2.Text:='Mei';
     6: edit2.Text:='Juni';
     7: edit2.Text:='Juli';
     8: edit2.Text:='Agustus';
     9: edit2.Text:='September';
     10: edit2.Text:='Oktober';
     11: edit2.Text:='November';
     12: edit2.Text:='Desember';

end; 
end;

end.

..........KONVERSI SUHU........
procedure TForm1.Button1Click(Sender: TObject);
  var x:real;
begin
  x:=strtofloat(edit1.text);

  if x>=100 then edit2.Text:='UAP'else
  if x>=0 then edit2.Text:='CAIR'else
  if x<0 then edit2.Text:='PADAT';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EDIT2.Text:='';
EDIT1.Text:='';
end;

end.

PROJECT ANIMASI (DELPHI 7)

................ANIMASI (569,217).......................

procedure Tunda(Detik,MiliDetik:word);
var
  TimeOut: TDateTime;
begin
  TimeOut:=Now+EncodeTime(0,Detik div 60, Detik mod 60, MiliDetik);
  while Now<TimeOut do
    Application.ProcessMessages;
    end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

   with Image1.Canvas do
   begin
   Pen.Width:=3;
   Brush.Color:=clbtnface;
   Pen.Color:=clbtnface;
   Rectangle(0,0,569,217); //layar
   end;

   with Image1.Canvas do
   begin
   Pen.Width:=3;
   Pen.Color:=clblack;
   RoundRect(120,8,430,22,7,7);  //AC
   RoundRect(58,22,504,180,20,20); //body bus
   Rectangle(180,135,351,180)  //bagasi
   end;

   with Image1.Canvas do
   begin
   Brush.Color:=claqua;
   Rectangle(58,95,504,99); //hiasan warna
   Brush.Color:=cllime;
   Rectangle(151,116,504,126); //hiasan warna
   Brush.Color:=clyellow;
   Rectangle(292,168,504,173); //hiasan warna

   Brush.Color:=clred;
   Rectangle(208,142,504,158); //hiasan warna
   end;

   with Image1.Canvas do
   begin
   Brush.Color:=clgray;
   Ellipse(107,162,153,208); //ban hareup
   Ellipse(381,162,428,208); //ban tukang
   Brush.Color:=clsilver;
   Ellipse(121,174,141,195); //pelk
   Ellipse(395,174,416,195); //pelk
   end;


   with Image1.Canvas do
   begin
   Brush.Color:=clblue;
   RoundRect(473,8,502,18,10,10);  //racing na tah
   end;
       //animasi mengecat
      with Image1.Canvas do
      begin
      Brush.Color:=clwhite;
      RoundRect(58,22,504,180,20,20); //body bus
      Pen.Color:=clblue;
      for i:=1 to 440 do
      begin
      MoveTo(61,25);
      LineTo(61,177);
      MoveTo(61+i,25);
      LineTo(61+i,177);
      Tunda(0,10);
      end;
      end;

   //animasi AC
   with Image1.Canvas do
   begin
   Pen.Width:=3;
   Pen.Color:=clblack;
   RoundRect(120,8,430,22,7,7);  //AC
   Pen.Color:=clmedgray;
      for i:=1 to 303 do
      begin
      MoveTo(123,11);
      LineTo(123,19);
      MoveTo(123+i,11);
      LineTo(123+i,19);
      Tunda(0,10);
      end;
      end;

   with Image1.Canvas do
   begin
   Pen.Color:=clblack;
   RoundRect(58,40,71,95,20,2);     //kaca
   RoundRect(156,40,208,95,20,20);  //kaca
   RoundRect(217,40,269,95,20,20);  //kaca
   RoundRect(280,40,332,95,20,20);  //kaca
   RoundRect(341,40,393,95,20,20);  //kaca
   RoundRect(479,40,504,95,2,20);  //kaca
   Brush.Color:=clblue;
   Rectangle(180,135,351,180); //bagasi
   end;
  
   with Image1.Canvas do
   begin
   Pen.Width:=3;
   Pen.Color:=clblack;
   Brush.Color:=clblue;
   Rectangle(79,29,151,158); //pintu depan
   Rectangle(395,29,467,158); //pintu belakang
   Brush.Color:=clwhite;
   Rectangle(89,34,144,95);    //kaca panto
   Rectangle(405,34,460,95);    //kaca panto
   end;

     //animasi hiasan warna aqua
  with Image1.Canvas do
   begin
   Pen.Width:=1;
   Brush.Color:=clwhite;
   Rectangle(58,95,504,99); //hiasan warna
   Pen.Color:=claqua;
   for i:=1 to 443 do
      begin
      MoveTo(59,96);
      LineTo(59,98);
      MoveTo(59+i,96);
      LineTo(59+i,98);
      Tunda(0,10);
      end;
      end;

      //animasi hiasan warna ijo
  with Image1.Canvas do
   begin
   Pen.Width:=1;
   Brush.Color:=clwhite;
   Rectangle(151,116,504,126); //hiasan warna
   Pen.Color:=cllime;
   for i:=1 to 353 do
      begin
      MoveTo(152,117);
      LineTo(152,125);
      MoveTo(152+i,117);
      LineTo(152+i,125);
      Tunda(0,10);
      end;
      end;

       //animasi hiasan warna merah
  with Image1.Canvas do
   begin
   Pen.Width:=1;
   Brush.Color:=clwhite;
   Rectangle(208,142,504,158); //hiasan warna
   Pen.Color:=clred;
   for i:=1 to 295 do
      begin
      MoveTo(209,143);
      LineTo(209,157);
      MoveTo(209+i,143);
      LineTo(209+i,157);
      Tunda(0,10);
      end;
      end;

      //animasi hiasan warna kuning
  with Image1.Canvas do
   begin
   Pen.Width:=1;
   Brush.Color:=clwhite;
   Rectangle(292,168,504,173); //hiasan warna
   Pen.Color:=clyellow;
   for i:=1 to 213 do
      begin
      MoveTo(291,169);
      LineTo(291,172);
      MoveTo(291+i,169);
      LineTo(291+i,172);
      Tunda(0,10);
      end;
      end;


    with Image1.Canvas do
   begin
   Pen.Width:=3;
   Pen.Color:=clblack;
   Brush.Color:=clgray;
   Ellipse(107,162,153,208); //ban hareup
   Ellipse(381,162,428,208); //ban tukang
   Brush.Color:=clsilver;
   Ellipse(121,174,141,195); //pelk
   Ellipse(395,174,416,195); //pelk
   Brush.Color:=clbackground;
   Ellipse(136,109,148,120); //gagang panto
   Ellipse(452,109,464,120); //gagang panto belakang
   Pen.Color:=clblack;
   Brush.Color:=clblack;
   Rectangle(453,180,460,193);    //knalpot
   RoundRect(453,188,481,199,2,20);  //knalpot
   end;

  
 //kata-kata
  with Image1.Canvas do
   begin
    Brush.Style:=bsClear;
    Brush.Color:=clblue;
    Font.Color:=clmaroon;
    Font.Name:='Arial';
    Font.Style:=[fsbold];
    Font.Size:=20;
    TextOut(170,102,'DOELF_PRODUCT');
   end;
   end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

end.

project statistika (DELPHI 7)

........................STATISTIKA...................................

procedure TForm1.Button1Click(Sender: TObject); //>>
begin
with ListBox1.Items do
Add(Edit1.Text);
Edit1.Text:='';
end;

procedure TForm1.Button3Click(Sender: TObject); //SELESAI
begin
  close;
end;

procedure TForm1.Button4Click(Sender: TObject); //BANYAK DATA
begin
Edit2.Text:=IntToStr(ListBox1.Items.Count);
end;

procedure TForm1.Button5Click(Sender: TObject); //JUMLAH
var A:array[0..100] of Integer;
    i,jml:Integer;
begin
    for i:=0 to ListBox1.Items.Count-1 do
    A[i]:=StrToInt(ListBox1.Items[i]);
    jml:=0;
    for i:=0 to ListBox1.Items.Count-1 do
    jml:=jml+A[i];
    Edit3.Text:=IntToStr(jml);
end;


procedure TForm1.Button8Click(Sender: TObject); //MIN
var A:array[0..100] of Integer;
    i,M:Integer;
begin
    for i:=0 to ListBox1.Items.Count-1 do
    A[i]:=StrToInt(ListBox1.Items[i]);
    M:=A[0];
    for i:=0 to ListBox1.Items.Count-1 do
    If M>A[i] then M:=A[i];
    Edit6.Text:=IntToStr(M);
end;

procedure TForm1.Button6Click(Sender: TObject); //RATA-RATA
var A:array[0..100] of Integer;
    i,jml,n:Integer;
    z:Real;
begin
    for i:=0 to ListBox1.Items.Count-1 do
    A[i]:=StrToInt(ListBox1.Items[i]);
    jml:=0;
    for i:=0 to ListBox1.Items.Count-1 do
    jml:=jml+A[i];
    n:=ListBox1.Items.Count;
    z:=jml/n;
    Edit4.Text:=FloatToStr(z);

end;

procedure TForm1.Button7Click(Sender: TObject);//MAX
var A:array[0..100] of Integer;
    i,N:Integer;
begin
    for i:=0 to ListBox1.Items.Count-1 do
    A[i]:=StrToInt(ListBox1.Items[i]);
    N:=A[0];
    for i:=0 to ListBox1.Items.Count-1 do
    If N<A[i] then N:=A[i];
    Edit5.Text:=IntToStr(N);
end;


procedure TForm1.Button9Click(Sender: TObject); //JANGKAUAN
Var x,y,z:integer;
begin
x:=strtoint(edit5.text);
y:=strtoint(edit6.text);
z:=x-y;
edit7.Text:=inttostr(z);
end;

procedure TForm1.Button11Click(Sender: TObject);  //MEDIAN
var
  a: array [0..100] of Integer;
  i,jml,k:Integer;
  l,m,o:Integer;
  n:Real;
begin
  k:=StrToInt(edit2.text) div 2;
  l:=StrToInt(edit2.text) mod 2;
  if l=0 then
  begin
    m:=k;
    n:=(StrToFloat(ListBox2.Items[m])+StrToInt(ListBox2.Items[k-1]))/2;
    Edit5.Text:=FloatToStr(n);
  end
  else
  begin
  o:=StrToInt(listBox2.Items[k]);
  Edit8.Text:=IntToStr(o);

end;
end;

procedure TForm1.Button10Click(Sender: TObject);  //DATA TERURUT
var A:array[0..100] of Integer;
    i,j,k:Integer;
begin
    for i:=0 to ListBox1.Items.Count-1 do
    A[i]:=StrToInt(ListBox1.Items[i]);
    for i:=0 to ListBox1.Items.Count-1 do
    for j:=0 to i do
    if A[i]<A[j]
    then begin
    k:=A[i];
    A[i]:=A[j];
    A[j]:=k;
    end;
    for i:=0 to ListBox1.Items.Count-1 do
    ListBox2.Items.Add(IntToStr(A[i]));
end;


procedure TForm1.Button2Click(Sender: TObject);  //HAPUS
begin
 edit1.clear;edit2.Clear;edit3.clear;edit4.Clear;
 edit5.Clear; edit6.clear;edit7.Clear;edit8.clear;
 edit9.Clear;
 listbox1.Clear;listbox2.Clear;
end;

procedure TForm1.Button12Click(Sender: TObject);  //MODUS
var
  p,q,s,r,i,jml,jml2:integer;

begin
    r:=strtoint(edit2.Text);
    jml:=0;
    jml2:=0;
    p:=strtoint(listbox2.Items[0]);
  for i:=0 to r-2 do
  begin
    q:=strtoint(listbox2.Items[i+1]);
    if p=q then
    begin
      jml:=jml+1;
    end
    else
    begin
       jml2:=jml;
       jml:=0;
       p:= strtoint(listbox2.Items[i+1]);
    end;

if jml>jml2 then
  begin
    s:=strtoint(listbox2.Items[i]);
  end

  end ;
  edit9.Text:=inttostr(s);

end;

end.

PROJECT TRIGONOMETRI (DELPHI 7)

..............TRIGONOMETRI (image 617,329)...................................

Function Absis (x:double):integer;
begin
   result:= round (x+300);
end;

Function ordinat (y:double):integer;
begin
   result:= round (165-y);
end;

procedure TForm1.Button1Click(Sender: TObject);  //KORDINAT
begin
   with image1.Canvas do
   begin
   Pen.Width:=3;
   Pen.Color:=clblue;
   Font.Color:=clblue;
   Font.Name:='Time New Roman';
   Font.Size:=12;

   MoveTo(Absis(-250),Ordinat(0));  //sumbu x
   LineTo(Absis(250),Ordinat(0));
   Font.Color:=clred;
   TextOut(Absis(240),Ordinat(20),'x');

   MoveTo(Absis(0),Ordinat(145));  //sumbuy
   LineTo(Absis(0),Ordinat(-145));
   Font.Color:=clred;
   TextOut(Absis(4),Ordinat(148),'y');
   TextOut(Absis(5),Ordinat(-5),'O');

   Font.Size:=12;
   Font.Style:=[fsBold];         //bold
   TextOut(Absis(80),Ordinat(-5),'180');
   TextOut(Absis(200),Ordinat(-5),'360');
   TextOut(Absis(-125),Ordinat(-5),'-180');
   TextOut(Absis(-200),Ordinat(-5),'-360');
   TextOut(Absis(5),Ordinat(85),'1');
   TextOut(Absis(4),Ordinat(-60),'-1');
   end;
   end;
procedure TForm1.Button3Click(Sender: TObject);  //SIN
var i:real;
begin
   with image1.Canvas do
   begin
   Font.Color:=clgreen;
   Font.Size:=12;
   i:=-200;
   while i<=200 do
     begin
     Pixels[Absis(i),Ordinat(70*Sin(i*2*3.14/200))]:=clgreen;
     i:=i+0.03;
     TextOut(Absis(185),Ordinat(-40),'y = sin x');
     end;
end;

end;

procedure TForm1.Button4Click(Sender: TObject); //COS
var i:real;
begin
    with image1.Canvas do
   begin
   Font.Color:=clBlue;
   Font.Size:=12;
   i:=-200;
   while i<=200 do
     begin
     Pixels[Absis(i),Ordinat(70*Cos(i*2*3.14/200))]:=clred;
     i:=i+0.03;
     TextOut(Absis(200),Ordinat(70),'y = cos x');
     end;
     end;
     end;

end.

PROJECT PERSAMAAN KUADRAT (DELPHI 7)

.....................PERSAMAAN KUARAT......................................

X1=EDIT1,X2=EDIT2, A=EDIT3,B=EDIT4,C=EDIT5, KET,EDIT6

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject); //HITUNG
 Var
    a,b,c,D,m,n,q:Real;
    x1,x2:Real;
begin
    a:=StrToFloat(Edit3.Text);
    b:=StrToFloat(Edit4.Text);
    c:=StrToFloat(Edit5.Text);
    D:=b*b-4*a*c;
    if D>0 then
begin
    x1:=(-b+sqrt(D))/(2*a);
    Edit1.Text:=FloatToStr(x1);
    x2:=(-b-sqrt(D))/(2*a);
    Edit2.Text:=FloatToStr(x2);
    Edit6.Text:='Dua akar Berbeda';
end;
    if D=0 then
begin
    x1:=(-b/(2*a));
    Edit1.Text:=FloatToStr(x1);
    x2:=(-b/(2*a));
    Edit2.Text:=FloatToStr(x2);
    Edit6.Text:='Dua Akar Kembar';
end;
    if D<0 then
begin
    m:=-1*D;
    n:=(-b/(2*a));
    q:=(sqrt(m)/(2*a));
    Edit1.Text:=FloatToStr(n)+'+'+FloatToStr(q)+'i';
    Edit2.Text:=FloatToStr(n)+'-'+FloatToStr(q)+'i';
    Edit6.Text:='Dua Akar Imajiner';
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  edit3.clear; edit4.Clear; edit5.clear;
end;

end.

PROJECT KALKULATOR (DELPHI 7)

.............KALKULATOR..........................

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Clear; edit2.Clear; edit3.Clear;
end;

procedure TForm1.Button10Click(Sender: TObject);  //ln n
Var x,z:Real;
begin
    x:=StrToFloat(Edit2.Text);
    Z:=ln(x);
    Edit1.Text:=FloatToStr(z);
    Edit3.Text:='';
end;

procedure TForm1.Button11Click(Sender: TObject);  //1/n
var x,z:real ;
begin
     x:=strtofloat(edit2.Text);
     z:=1/x;
     edit1.Text:=floattostr(z);
     Edit3.Text:='';
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
  edit2.Text:=edit2.Text+button23.Caption;
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
  edit2.Text:=edit2.Text+ '-';
end;

procedure TForm1.Button7Click(Sender: TObject);  //tambah
Var x,y,z:Real;
begin
    x:=StrToFloat(Edit2.Text);
    y:=StrToFloat(Edit3.Text);
    Z:=x+y;
    Edit1.Text:=FloatToStr(z);

end;

procedure TForm1.Button6Click(Sender: TObject); //kurang
Var x,y,z:Real;
begin
    x:=StrToFloat(Edit2.Text);
    y:=StrToFloat(Edit3.Text);
    Z:=x-y;
    Edit1.Text:=FloatToStr(z);

end;

procedure TForm1.Button5Click(Sender: TObject);  //kali
Var x,y,z:Real;
begin
    x:=StrToFloat(Edit2.Text);
    y:=StrToFloat(Edit3.Text);
    Z:=x*y;
    Edit1.Text:=FloatToStr(z);

end;

procedure TForm1.Button8Click(Sender: TObject);  //sqrt
Var x,z:Real;
begin
    x:=StrToFloat(Edit2.Text);
    Z:=exp((1/2)*ln(x));
    Edit1.Text:=FloatToStr(z);
    Edit3.Text:='';

end;

procedure TForm1.Button4Click(Sender: TObject);  //bagi
Var x,y,z:Real;
begin
    x:=StrToFloat(Edit2.Text);
    y:=StrToFloat(Edit3.Text);
    Z:=x/y;
    Edit1.Text:=FloatToStr(z);

end;

procedure TForm1.Button9Click(Sender: TObject); //nlogk
Var x,y,z:Real;
begin
    x:=StrToFloat(Edit2.Text);
    y:=StrToFloat(Edit3.Text);
    Z:=ln(y)/ln(x);
    Edit1.Text:=FloatToStr(z);

end;

procedure TForm1.Button13Click(Sender: TObject);  //n^k
Var x,y,z:Real;
begin
    x:=StrToFloat(Edit2.Text);
    y:=StrToFloat(Edit3.Text);
    Z:=exp(y*ln(x));
    Edit1.Text:=FloatToStr(z);

end;

procedure TForm1.Button14Click(Sender: TObject); //nCk
var a,b,i,n,r,z,j:Integer;
    t:Real;
begin
  a:=StrToInt(Edit2.Text);
  b:=StrToInt(Edit3.Text);
  n:=1;
  r:=1;
  z:=1;
  j:=a-b;

For i:=1 to a do
  n:=i*n;
Begin
For i:=1 to j do
  r:=i*r;
End;
Begin
  For i:=1 to b do
  z:=i*z;
End;
  t:=n/(z*r);
  Edit1.Text:=FloatToStr(t);
if a<b then Edit1.Text:='Error';

end;

procedure TForm1.Button19Click(Sender: TObject);  //nPk
var a,b,i,n,r,z,j:Integer;
    t:Real;
begin
   a:=StrToInt(Edit2.Text);
    b:=StrToInt(Edit3.Text);
    n:=1;
    r:=1;
    j:=a-b;
    For i:=1 to a do
        n:=i*n;
        Begin
        For i:=1 to j do
            r:=i*r;
        End;
    t:=n/r;
    Edit1.Text:=FloatToStr(t);
    if a<b then Edit1.Text:='Error';

end;

procedure TForm1.Button18Click(Sender: TObject);  //n!
var a,i,f:Integer;
begin
    a:=StrToInt(Edit2.Text);
    f:=1;
    for i:=1 to a do
    f:=f*i;
    Edit1.Text:=IntToStr(f);
    Edit3.Text:='';

end;

procedure TForm1.Button23Click(Sender: TObject); //n pnkt2
Var x,z:Real;
begin
    x:=StrToFloat(Edit2.Text);
    Z:=exp(2*ln(x));
    Edit1.Text:=FloatToStr(z);
    Edit3.Text:='';

end;

procedure TForm1.Button25Click(Sender: TObject);  //tan
var a,c:real;
begin
  a:=strtofloat(edit2.Text);
  c:=sin((a*pi)/180)/cos((a*pi)/180);
  edit1.Text:=floattostr(c);
  edit3.Text:='';
end;

procedure TForm1.Button26Click(Sender: TObject);  //cos
var a,c : real;
begin
 a:=strtofloat(edit2.Text);
 c:=cos((a*pi)/180);
 edit1.Text:=floattostr(c);
 edit3.Text:='';
end;

procedure TForm1.Button24Click(Sender: TObject);  //sin
var a,c:real ;
begin
 a:=strtofloat(edit2.Text);
 c:=sin((a*pi)/180);
 edit1.Text:=floattostr(c);
 edit3.Text:='';
end;

end.

prokom rada jangar

........ALJABAR HIMPUNAN..........
LISTBOX1=INPUT DATA A, LISTBOX2=AnB,
LISTBOX3=AUB, LISTBOX4=A+B, LISTBOX5=A-B
LISBOX6=INPUTB

procedure TForm1.Button8Click(Sender: TObject);  //SELESAI
begin
  close;
end;

procedure TForm1.Button7Click(Sender: TObject); //HAPUS
begin
edit1.Clear; edit2.Clear;
listbox1.Clear; listbox2.Clear; listbox3.Clear; listbox4.Clear;
listbox5.Clear; listbox6.Clear;

end;

procedure TForm1.Button1Click(Sender: TObject); //>>
begin
with ListBox1.Items do
Add(Edit1.Text);
Edit1.Text:='';
end;


procedure TForm1.Button6Click(Sender: TObject); //<<
begin
with ListBox6.Items do
Add(Edit2.Text);
Edit2.Text:='';
 end;
procedure TForm1.Button2Click(Sender: TObject);//AnB
Var i,j:Integer;
    A,B:Array[0..10] of String;
begin
    For i:=0 to ListBox1.Items.Count-1 do
    A[i]:=ListBox1.Items[i];
    For j:=0 to ListBox6.Items.Count-1 do
    B[j]:=ListBox6.Items[j];
    For i:=0 to ListBox1.Items.Count-1 do
    begin
    For j:=0 to ListBox6.Items.Count-1 do
    if A[i]=B[j] then ListBox2.Items.Add(A[i]);
    end;
    end;

procedure TForm1.Button3Click(Sender: TObject); //AUB
Var i,j:Integer;
    A,B:Array[0..100] of String;
    ada:Boolean;
begin
    For i:=0 to ListBox1.Items.Count-1 do
    A[i]:=ListBox1.Items[i];
    For j:=0 to ListBox6.Items.Count-1 do
    B[j]:=ListBox6.Items[j];
    For i:=0 to ListBox1.Items.Count-1 do
    ListBox3.Items.Add(A[i]);
    For j:=0 to ListBox6.Items.Count-1 do
    begin
    ada:=false;
    For i:=0 to ListBox1.Items.Count-1 do
    if A[i]=B[j] then ada:=true;
    if ada=false then ListBox3.Items.Add(B[j]);
end;
end;
procedure TForm1.Button4Click(Sender: TObject); //A+B
Var i,j:Integer;
    A,B:Array[0..100] of String;
    ada:Boolean;
begin
    For i:=0 to ListBox1.Items.Count-1 do
    A[i]:=ListBox1.Items[i];
    For j:=0 to ListBox6.Items.Count-1 do
    B[j]:=ListBox6.Items[j];
    For i:=0 to ListBox1.Items.Count-1 do
    begin
    ada:=false;
    For j:=0 to ListBox6.Items.Count-1 do
    if A[i]=B[j] then ada:=true;
    if ada=false then ListBox4.Items.Add(A[i]);
    end;
    For j:=0 to ListBox6.Items.Count-1 do
    begin
    ada:=false;
    For i:=0 to ListBox1.Items.Count-1 do
    if A[i]=B[j] then ada:=true;
    if ada=false then ListBox4.Items.Add(B[j]);
end;
end;


procedure TForm1.Button5Click(Sender: TObject); //A-B
Var i,j:Integer;
    A,B:Array[0..100] of String;
    ada:Boolean;
begin
    For i:=0 to ListBox1.Items.Count-1 do
    A[i]:=ListBox1.Items[i];
    For j:=0 to ListBox6.Items.Count-1 do
    B[j]:=ListBox6.Items[j];
    For i:=0 to ListBox1.Items.Count-1 do
    begin
    ada:=false;
    For j:=0 to ListBox6.Items.Count-1 do
    if A[i]=B[j] then ada:=true;
    if ada=false then ListBox5.Items.Add(A[i]);
end;
end;
end.

.........BIL. PRIM ATAU BUKAN.........
EDIT1=MASUKAN, EDIT 2= KETERANGAN

procedure TForm1.Button1Click(Sender: TObject);
var n,i,s:integer;
    p:boolean;
begin
    n:=StrToInt(Edit1.Text);
    i:=2;
    P:=True ;
    while (i<=n-1) and p do
    begin
    s:=n mod i;
    if s=0 then p:=false;
    i:=i+1;
    end;

    if p=true
    then Edit2.Text:='  Bilangan Prima'
    else Edit2.Text:='  Bilangan Komposit';
    if n=1
    then Edit2.Text:='  Bilangan Komposit';
    if n=0
    then Edit2.Text:='  Bilangan Komposit';
end;


end.

.......BILANGAN PRIMA SEBANYAK n......
EDIT1=MASUKAN,LISTBOX1=KELUARAN

procedure TForm1.Button1Click(Sender: TObject);
var i,a,b,c,d:integer;
            p:boolean;
begin
    a:=StrToInt(Edit1.Text);
    For b:=2 to 1000 do
    begin
    i:=2;
    p:=true;
    while(i<=b-1)and p do
       begin
       c:=b mod i;
       if c=0 then p:=false;
       i:=i+1;
       end;
    if Listbox1.Items.count<a then
    if p=true then
    Listbox1.Items.Add('Bilangan Prima ke-'+IntToStr(Listbox1.Items.count+1)+'='+IntToStr(b));
    end;
end;


end.

..............DEKOMPOSISI BILANGAN N.........

procedure TForm1.Button1Click(Sender: TObject);
var i,a,b:integer;
        k:real;
begin
    a:=StrToInt(Edit1.Text);
    i:=2;
    b:=a;
    while i<=a do
    begin
    if b mod i=0
    then
    begin
    Listbox1.Items.Add(IntToStr(i));
    k:=b/i;
    b:=trunc(k);
    end
    else i:=1+i;
    end;

end;

end.

........FIBONACCI..........

procedure TForm1.Button1Click(Sender: TObject);
Var i,n,a,b,c:Integer;
begin
   n:=StrToInt(Edit1.Text);
   a:=1;
   b:=1;
   ListBox1.Items.Add('Bil.Fibonacci ke-1=1');
   ListBox1.Items.Add('Bil.Fibonacci ke-2=1');
   for i:=3 to n do
   begin
   c:=a+b;
   ListBox1.Items.Add('Bil.Fibonacci ke-'+IntToStr(i)+'='+IntToStr(c));
   a:=b;
   b:=c;
   end;
end;


END.

....KONVER UANG......
COMBOBOX1=INPUT, COMBOX2=OUT


procedure TForm1.Button1Click(Sender: TObject);
var x:real;
begin
x := strtofloat(Edit1.Text);

if (combobox1.Text='RUPIAH') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x/9000);
 if (combobox1.Text='RUPIAH') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x/1);
if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x*9000);

if (combobox1.Text='RUPIAH') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x/6619);
if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x*6619);

if (combobox1.Text='RUPIAH') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x/13650);
if (combobox1.Text='EURO') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x*13650);

if (combobox1.Text='RUPIAH') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/17076);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='RUPIAH')
then edit2.Text:= floattostr(x*17076);

if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x/0.6994);
 if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x/1);
if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x*0.6994);

if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x/1.4422);
if (combobox1.Text='EURO') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x*1.4422);

if (combobox1.Text='DOLLAR (US)') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/1.8041);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='DOLLAR (US)')
then edit2.Text:= floattostr(x*1.8041);

if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x/2.0618);
if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x/1);
if (combobox1.Text='EURO') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x*2.0618);

if (combobox1.Text='DOLLAR (SINGAPURA)') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/2.5792);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='DOLLAR (SINGAPURA)')
then edit2.Text:= floattostr(x*2.5792);

if (combobox1.Text='EURO') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/1.251);
if (combobox1.Text='EURO') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x/1);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='EURO')
then edit2.Text:= floattostr(x*1.251);
if (combobox1.Text='POUND (INGGRIS)') and (combobox2.Text='POUND (INGGRIS)')
then edit2.Text:= floattostr(x/1);


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

end.

.........PHYTAGORAS........

procedure TForm1.Button3Click(Sender: TObject);
var n,i,j,k,a,b,c:integer;
begin
  n:=StrToInt(Edit1.Text);
  For i:=1 to n do
  begin
  For j:=1 to i do
    begin
    for k:=1 to j do
      begin
      a:=i*i;
      b:=j*j+k*k;
      if a=b
      then
        begin
        c:=c+1;
        Listbox1.Items.Add('Bilangan Phytagoras-'+IntToStr(c)+':'+IntToStr(k)+','+IntToStr(j)+','+IntToStr(i));
  end;
  end;
  end;
  end;

end;



end.