Program menentukan Wujud Air menggunakan Delphi 7

Pseudo Code: var a : real; begin   a:=strtofloat(Edit1.Text);   if (a>0) and (a<100) then Edit2.Text:='cair';   if a=100...

Program Statistika menggunakan Delphi 7

Pseudo Code: BUTTON PROSES var m,i,z,max,min:integer;     a:array[1..100] of integer; begin   z:=listbox1.items.Count;   edit2.Text:=inttostr(z);  ...

Program Tripel Phytagoras menggunakan Delphi 7

Pseudo Code: var p,n,k,l,m : integer; begin   p:=StrToInt(edit1.text);   k:=3;   l:=4;   m:=5;   n:=0;   while n <...

Program Persamaan Akar Kuadrat menggunakan Delphi 7

Pseudo Code: var a,b,c,d,x1,x2,e,f:real; begin   //memasukkan nilai vaiabel   a:=StrToFloat(editA.Text);   b:=StrToFloat(editB.Text);  ...

Program Penghitung Hari Menggunakan Delphi 7

Pseudo Code: var a,b,c : integer; begin   a:=strtoint(edit1.Text);   b:=strtoint(edit3.Text);   c:=(a+b)mod 7;   case a of  ...

Program N Bilangan Bulat Kelipatan K menggunakan Delphi 7

Pseudo Code: var n,k,i : integer; begin   n:=strtoint(edit1.Text);   k:=strtoint(edit2.Text);   for i:=1 to n do   listbox1.Items.Add(inttostr(i*k)); end; Semoga...

Program Luas Segitiga: Alas dan Tinggi menggunakan Delphi 7

Pseudo Code: var a,t,l : real; begin   a:=StrToFloat(edit1.text);   t:=StrToFloat(edit2.text);   l:=(a*t)/2;   edit4.Text:=FloatToStr(l); end; Semoga...

Program Luas Segitiga: 3 sisi menggunakan Delphi 7

Pseudo Code: var a,b,c,s,l : real; begin   a:=StrToFloat(edit1.Text);   b:=StrToFloat(edit2.Text);   c:=StrToFloat(edit3.Text);  ...

Program Luas Sgitiga: 2 Sisi 1 Sudut menggunakan Delphi7

Pseudo Code: var a,b,c,d,l :real; begin   a:=StrToFloat(edit1.Text);   b:=StrToFloat(edit2.Text);   c:=StrToFloat(edit3.Text);  ...

Program Konversi Suhu menggunakan Delphi 7

Pseudo Code: var c,r,f,k:real; begin   c:=StrToFloat(Edit1.Text);   r:=c/5*4;   f:=c/5*9+32;   k:=c+273;   Edit2.Text:=FloatToStr(r);  ...

Program Kelipatan Bilangan Bulat K antara a sampai b menggunakan Delphi 7

Pseudo Code: var a,b,k,i : integer; begin   a:=strtoint(edit1.Text);   b:=strtoint(edit2.Text);   k:=strtoint(edit3.Text);  ...

Membuat Grafik Sin dan Cos menggunakan Delphi 7

Pseudo Code: BUTTON SUMBU KOORDINAT Function SumbuX(LojikX:Double):Integer;   begin     result:=Round(LojikX + 400);   end; Function...

Contoh Membuat Gambar menggunakan Delphi 7

ketika di tekan button di atas maka akan berubah menjadi seperti ini: Bagaimanakah caranya? Hanya menambahkan Pseudo Code di bawah ini ke dalam...

Program Penghitungan Volume Kolam dengan Ember menggunakan Delphi 7

Pseudo Code: var i,e,k,m:integer; begin   k:=StrToInt(edit1.Text);   e:=StrToInt(edit2.Text);   i:=0;   m:=0;   while i...

Program Daftar N! menggunakan Delphi 7

Pseudo Code: var a,b,i: real; begin    a:=StrToFloat(edit1.Text);    b:=1;    i:=1;    while i <= a do  ...

Program Menentukan Bilangan Prima atau Komposit menggunakan Delphi 7

Pseudo Code: var n,i,s:integer;     p:boolean; begin     n:=StrToInt(Edit1.Text);     i:=2;     P:=True...

Program untuk Menentukan Bilangan Ganjil atau Genap Menggunakan Delphi 7

Pseudo Code: var p:integer; begin   p:=StrToInt(edit1.Text);   if p mod 2 = 0 then edit2.Text:='genap';   if p mod 2 = 1 then...

Program Deret Bilangan Fibonacci menggunakan Delphi 7

Pseudo Code: var  p,c,d,b,g,e : integer; begin   p:=StrToInt(edit1.Text);   g:=0;   c:=1;   d:=0;   e:=1;   while...

Contoh Animasi Gerak Menggunakan Delphi

Bagian yang bergerak dalam program ini adalah: mata keduanya, rok, peci, dan kancing yang keluar satu per satu. berikut adalah Pseudo Codenya: procedure...

Program Aljabar Himpunan Menggunakan Delphi 7

Bagaimana membuat program di atas?Cukup sediakan entri entri seperti contoh pada gambar. berikut adalah Pseudo Codenya: Button A irisan B Var x,y:Integer;  ...

LUCID DREAM

Setelah mendiskusikan mengenai dunia mimpi, saya jadi tertarik dengan hal-hal berbau pengendalian mimpi, meskipun terlalu takut untuk mempelajarinya,...