Membuat Program Kalkulator Phytagoras Menggunakan Lazarus Pascal

Siapa yang tidak kenal dengan rumus segitiga Phytagoras? Sepertinya pelajaran matimateka di sekolah dasar sudah diajarkan :) Phytagoras merupakan rumus baku dari sebuah segitiga siku-siku untuk mendapatkan panjang sisi-sisanya yang (katanya) temukan oleh Phytagoras. Sedangkan segitiga siku siku adalah segitiga yang memiliki sudut 90°. Sisi terpanjangnya disebut dengan sisi miring atau hipotenusa (c). Sisi lainnya adalah alas (a) dan tinggi (b). Lihat gambar dibawah.

Untuk rumus phytagoras sangat mudah, bisa kamu lihat dibawah. Kecuali jika kamu ingin mencari pembuktian lain, bisa googling.

Menggunakan rumus diatas, kita bisa membuat program Phytagoras Calculator menggunakan Lazarus Pascal yang tampilannya bisa kamu lihat juga dibawah.

Gunakan unit Math agar kita bisa memanggil fungsi kuadrat dan akar kuadrat. Kamu bisa mendapat nilai a, b, atau c secara mudah, cukup berikan angka nol (0) pada kolom yang henda dicari nilainya. Misal, kamu ingin mencari panjang sisi miring c, maka berikan nilai nol dan isi angka pada sisi a dan b. Jika semua kolom berisi angka selain nol, maka akan ditampilkan peringatan.

Berikut sepenggal kode program Phytagoras Calculator menggunakan Lazarus. Selanjutnya silahkan unduh disini untuk mendapatkan program utuh.

procedure TForm1.Button1Click(Sender: TObject);

var

i, a, b, c: real;

begin

a:= StrToFloat(Edit1.Text);

b:= StrToFloat(Edit2.Text);

c:= StrToFloat(Edit3.Text);

if c = 0 then

begin

i:= sqrt(sqr(a) + sqr(b));

Edit3.Text:= FloatToStr(i);

Edit3.Font.Style:= [fsBold];

end

else if a = 0 then

begin

i:= sqrt(sqr(c) - sqr(b));

Edit1.Text:= FloatToStr(i);

Edit1.Font.Style:= [fsBold];

end else if b = 0 then

begin

i:= sqrt(sqr(c) - sqr(a));

Edit2.Text:= FloatToStr(i);

Edit2.Font.Style:= [fsBold];

end else

begin

Application.MessageBox('One of Values should be zero', 'Warning',MB_ICONWARNING);

ActiveControl:= Edit1;

end;

end;

Selamat mencoba.

Tunggu, kamu bisa menguji program kalkulator Phytagoras menggunakan nilai-nilai dibawah

• a, b, c
• 3, 4, 5
• 5, 12, 13
• 6, 8, 10
• 7, 24, 25
• 8, 15, 17
• 9, 12, 15
• 10, 24, 26
• 12, 16, 20
• 14, 48, 50