NIM : J1F113021
Sehubungan dengan pembelajaraan Algoritma dan Pemrograman I. Saya akan mempostingkan bagaimana "cara menghitung sisi miring segitiga siku-siku dengan rumus pythagoras" dengan memakai program aplikasi TURBO PASCAL 7.0
Sebelumnya disaat kita mencari sisi miring segitiga siku-siku pastinya permasalahan yang dihadapi yaitu seperti gambar dibawah ini:
Rumus yang kita pakai dalam mencari sisi miring segitiga siku-siku tentunya adalah : C2 = A2
+ B2
Dimana:
C= Panjang Sisi Miring
A= Panjang Alas
B= Panjang Tinggi
Jika diaplikasikan ke program, hal yang pertama dilakukan menentukan variabelnya (var).
Disini saya menentukan variabelnya sebagai Alas, Tinggi, Sisimiring: Real;Berikut adalah isi script programnya:
PROGRAM Pythagoras_dengan_Turbo_Pascal;
USES CRT;
VAR Alas,Tinggi,Sisimiring: Real;
BEGIN
CLRSCR;
writeln('Mencari Sisi Miring Segitiga Siku-Siku dengan Rumus Pythagoras');
write('Panjang Alas= ');
readln(Alas);
write('Panjang Tinggi= ');
readln(Tinggi);
Sisimiring:=sqrt(sqr(alas)+sqr(tinggi));
writeln('Panjang Sisi Miring= ',sisimiring:2:2);
write('Panjang sisi miring selalu lebih besar dari panjang alas dan tinggi');
readln;
END
Screenshot scriptnya:
Screenshot programnya:
Jadi, ketika kita memasukan nilai panjang alas dan panjang tinggi dari segitiga siku-siku, maka nilai panjang sisi miringnya akan kita ketahui setelah memasukkan nilai panjang tersebut. Dimana disini saya memberikan keterangan hasil dari panjang sisi miring selalu lebih besar dari panjang alas dan tinggi.
Terima Kasih :)
Salam ALPRO!
(Kita belajar kita belajar kita tuangkan)
Salam ALPRO!
(Kita belajar kita belajar kita tuangkan)
