Berikut adalah bagaimana caranya membuat program Phytagoras ( menghitung sisi mirng ) menggunakan pascal

kali ini saya menggunakan Free Pascal

free pascal dapat di unduh disini (Free Pascal)

Script :
_________________________________________________________________________________________
 program Phytagoras ;
 uses    crt;  
 var     a,t,m:real;  
 begin   clrscr;
         write ('alas:');
         readln(a);
         write ('tinggi:');
         readln(t);
         m:=sqrt((a*a)+(t*t));
         write   ('phytagoras:'.m:3:2);
         readln;
 end.
_________________________________________________________________________________________

*Jika sudah selesai, pilih menu "Run>Run" atau "ALT+F9"

Screen Shot Hasil akhir :

Begitulah cara membuat program Phytagora (menghitung sisi miring) menggunakan pascal

Terimakasih