MENGHITUNG PANJANG SISI MIRING DENGAN TURBO PASKAL

  

1.       MASUKAN SCRIP DI BAWAH INI KEDALAM APLIKASI TURBO PASCAL

Program menghitung_panjang_sisi_miring_segitiga;

Uses Windos,Wincrt;

var

C, a, b :real;

ch:char;

Begin

Clrscr;

writeln ('program ini di buatoleh :');

writeln ('NAMA : HENDRIK WIJAYA');

writeln ('NIM : AFD_109_005);

writeln ('=======================================');

writeln ('Menghitung Panjang Sisi Miring Segitiga');

writeln ('=======================================');

Writeln ('masukan nilai a :     ');

Readln (a);

Writeln ('masukan nilai b :      ');

readln (b);

C:=sqrt(a*a)+(b*b);

writeln ('hasil akhir=',C:10:2,'cm2');

readln;

end.

2.       SETELAH SELESAI JALANKAN APLIKASINYA,

3.       MASUK KE BAGIAN MENU BAR  “RUN ATAU CTRL+F9”. (UNTUK MELIHAT HASILNYA)

4.       SELAMAT MENCOBA.

 

 

UNTUK LEBIH JELASNYA ANDA BISA DOWNLOAD SCRIP YANG SUDAH 

SAYA BUAT KE DALAM TURBO PASCAL

KLIK DISINI UNTUK DOWNLOAD