Program Phytagoras
Rumus Pythagoras adalah rumus yang digunakan untuk mencari panjang sisi pada sebuah segitiga siku-siku. Penemu rumus ini adalah seorang ahli matematika dari Yunani yang bernama Pythagoras.
Perhatikan gambar berikut:
Sisi AB disebut juga dengan sisi c, sebab berhadapan dengan sudut C. Sisi BC disebut juga dengan sisi a, sebab berhadapan dengan sudut A. Sisi AC disebut juga dengan sisi b, sebab berhadapan dengan sudut B.
Rumus untuk mencari panjang sisi segitiga siku-siku dengan menggunakan rumus Pythagoras adalah sebagai berikut :
Kuadrat sisi AB = kuadrat sisi AC + kuadrat sisi BC.
atau AB2 = AC2 + BC2
atau AB2 = AC2 + BC2
Rumus untuk mencari panjang sisi alas yaitu: a2 = c2 - b2
Rumus untuk mencari sisi samping yaitu: b2 = c2 - a2
Program Phytagoras;
uses wincrt;
var
a,b,c : Real;
Pilih : char;
procedure Samping;
begin
clrscr;
Writeln(' Program Phytagoras ');
writeln(' Mencari Nilai Sisi Samping ');
Writeln;
Write (' Masukkan Nilai Sisi Miring = ');Readln (c);
Write (' Masukkan Nilai Sisi Alas = ');Readln (a);
b := sqrt ((c*c)-(a*a));
Writeln;
Writeln (' Maka Nilai Sisi Samping adalah ', b:0:2);
readln;
end;
procedure Alas;
begin
clrscr;
Writeln(' Program Phytagoras ');
writeln(' Mencari Nilai Sisi Alas ');
Writeln;
Write (' Masukkan Nilai Miring = ');Readln (c);
Write (' Masukkan Nilai Samping = ');Readln (b);
a := sqrt ((c*c)-(b*b));
Writeln;
Writeln (' Maka Nilai Sisi Alas adalah ', c:0:2);
readln;
end;
procedure Miring;
begin
clrscr;
Writeln(' Program Phytagoras ');
writeln(' Mencari Nilai Sisi Miring ');
Writeln;
Write (' Masukkan Nilai Samping = ');Readln (b);
Write (' Masukkan Nilai Alas = ');Readln (a);
c := sqrt ((a*a)+(b*b));
Writeln;
Writeln (' Maka Nilai Sisi Miring adalah ', c:0:2);
readln;
end;
Procedure Menu;
Begin
Writeln (' Program Phytagoras ');
Writeln;
writeln;
Writeln (' 1. Mencari Nilai Sisi Samping');
Writeln (' 2. Mencari Nilai Sisi Alas');
Writeln (' 3. Mencari Nilai Sisi Miring');
end;
Begin
clrscr;
Menu;
Writeln;
Write(' Pilih Menu Yang Anda Inginkan = ');Readln (Pilih);
Case Pilih of
'1' : Begin Samping End;
'2' : Begin Alas End;
'3' : Begin Miring End;
end;
Readln;
end.
screenshot output program
Semoga Bermanfaat.....
0 Comments
