Cara Membuat Source code untuk calculator"Sistem persamaan linear 2 variabel"

           Source code untuk calculator"Sistem persamaan linear 2 variabel"-in ITsystemID penulis selalu berusaha menjawab pertanyaan sobat pembaca setia ITsystemID.nah salah satunya adalah abang Rudi santoso..yaitu bertanya tentang  Source code untuk calculator"Sistem persamaan linear 2 variabel".

Sebetulnya artikel ini sudah lama ada di draf ITsystemID,namun karna belum ada penjelasan maka belum saya update.tapi sekarang ada yang minta source code nya saja..jadi dengan senang hati saya update untuk pembaca setia ITsystemID yang sudah bookmark ITsystemID di browser mereka.

      OK. langsung saja sedot nih source code...

cttn:"seperti saya bilang tadi ,source codenya belum ada penjelasan jadi sabar-sabar saja ea..tapi jika memang butuh sekali silahkan comentar,insyaallah saya bantu".

Skema/interface aplikasi,

ket:

    x1,x2,y1,y2,pers1,pers2,nilaix,nilaiy adalah komponen Tedit (input datanya)

    hitung, adalah komponen TButton (tombol hitung)

    bersih adalah komponen TButton (tombol untuk mengosongkan semua Tedit)

    +/- maksud saya adalah operator penjumlahan/pengurangan yaitu Tbutton

Materi BY:Dholys Syawal

  3x + 5y = 35  

  2x +3y =22

  3x + 5y = 35      |*3|    9x + 15y = 105   

  2x +3y =22        |*5|    10x + 15y = 110
                                        ____________   _
                                                    -x = -5
                                                      x = 5
3(5) + 5y = 35
   15 + 5y =35
             5y =35 -15
             5y =20
               y = 20 /5
               y = 4             

Source Code

Procedure hitungclick (sender:Tobject);

var

    a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s : real;

{credits:dholys syawal-ITsystemID.blogspot.com}

begin

a := strtofloat(x1.text);

b := strtofloat(x2.text);

c  := strtofloat(y1.text);

d := strtofloat(y2.text);

e := strtofloat(pers1.text);

f  := strtofloat(pers2.text);

g := a*b           ;

h := g/a           ;

i :=  g/b          ;

j :=  h*c          ;

k :=  h*e          ;

l:=  i*d               ;

m :=  i*f          ;

n :=  j-l          ;

o :=  k-m          ;

p :=  o/n         ;

q :=  c*p          ;

r :=  e-q          ;

s :=  r/a          ;

nilaix.text:=floattostr (s);

nilaiy.text:=floattostr(p);
{credits:dholys syawal-ITsystemID.blogspot.com}

end;

    OK..mungkin itu saja yang bisa penulis bagi untuk artikel Source code untuk calculator"Sistem persamaan linear 2 variabel" in ITsystemID.jika menurut anda masih kurang jelas atau butuh tambahan,in ITsystemID penulis dengan senang hati menerima saran dan komentar sobat.

mantap sekali..!!