Algortima & Pemrograman 1 ( menghitung Panjang sisi miring pada segitiga menggunakan pascal )

menghitung Panjang sisi miring pada segitiga menggunakan pascal

 

 

Bnyak hal yang bisa dibuat oleh program pascal, salah satunya adalah  program penghitung panjang sisi Miring pada segitiga . pada program ini  bisa digunakan untuk menghitung sisi miring apabila kita masukkan alas dan tinggi segitiga , karena pada segitiga menggunakan rumus phytagoras yaitu sisi kuadrat = panjang alas kuadrat x tinggi segitiga kuadrat
ini dia sricpt penghitung panjang sisi miring pada segitiga siku-siku menggunakan rumus phytagoras

Program phitagoras;
uses wincrt;
var alas,tinggi,miring : real ;

Begin
clrscr;
writeln('----aplikasi menghitung sisi miring pada segitiga siku-siku----');
writeln('---------------tekan enter dan masukkan nilai------------------');
readln;
write('Panjang alas =');
readln(alas); 
write('tinggi segitiga =');
readln(tinggi);
miring:=sqrt((alas*alas)+(tinggi*tinggi));
writeln('panjang sisi miring =',miring:2:2);
readkey;
writeln(' ');
write('jadi panjang sisi miring segitiga dengan alas',' ',alas:2:2,' ','dan tinggi',' ',tinggi:2:2,' ','adalah =',miring:2:2);
end.


dan output nya akan terlihat jika kita masukkan angka 3 pada panjang alas dan 4 pada tinggi segitiga

----aplikasi menghitung sisi miring pada segitiga siku-siku----
---------------tekan enter dan masukkan nilai------------------

Panjang alas = 3
tinggi segitiga = 4
panjang sisi miring =5,00

Jadi panjang sisi miring segitiga dengan alas 3,00 dan tinggi 4,00 adalah =5,00

screbshott script pascal

screenshot ketika program dijalankan

itulah Program Penghitung Panjang sisi Miring pada segitiga siku-siku menggunakan Pascal
semoga artikel ini bisa bermanfaat. terimakasih :)

\

 

Nama : Alfian

Nim   : 20142205090