menghitung sisi miring menggunakan pascal

assalamualaikum.Wr.Wb.
sebelumnya saya akan memperkenalkan aplikasi turbo pascal kepada anda dan bagaimana cara kerjanya."
turbo pascal adalah suatu aplikasi untuk menunjang bagaimana cara membentuk pola pikir manusia untuk menjadi realitis,karena di dalam turbo pascal terdapat urutan-urutan yang harus dilalui sebelum kita dapat mengerjakan atau menggunakannya, berikut salah satu cara kerjanya yaitu saya akan menampilkan sebagian kemampuan turbo pascal untuk mencari sisi miring segitiga:




ini adalah salah satu scriptnya

Berikut adalah rumusnya:

PROGRAM menhitung_panjang_sisimiring_segitiga;

USES WINCRT ;

VAR

A,B,C:REAL;

CH:CHAR:

BEGIN

CLRSCR;

WRITE ('ALAS SEGITIGA:');

READLN(A) ;

WRITE('TINGGI SEGITIGA:');

READLN(B) ;

C:=SQRT ((A*A)+(B*B)) ;

writeln ('panjang sisi miring=',c:3:2);

ch:=readkey;

END.

pada gambar diatas itu adalah tampilan saat kita mengecek apakah program tersebut sudah benar-benar siap digunakan dan tidak ada bahasa pemograman yang tertinggal didalamnya yaitu dengan cara menekan F9

pada gambar diatas itu adalah tampilan turbo pascal tersebut sudah siap digunakan atau rumus pemograman sudah benar semua,dengan cara mengeceknya menggunakan F9 dan menjalankannya dengan menekan ctrl F9

Terima kasih dan sekian dari saya semoga apa yang saya lakukan ini dapat bermanfaat untuk anda.