Just Sadadine

Untuk Kalian yang mungkin kesulitan untuk membuat salah satu program melalui program 
Free Pascal, kali ini saya akan share coding pascalnya...

Kurang lebih seperti dibawah ini :

Program Diagonal_Ruang_Balok;
Uses crt;
Var Ds,p,l,t:real;
Begin
  Writeln(‘==============================================================’);
  Writeln(‘ => Software Untuk Menghitung Panjang Diagonal Ruang Balok  <=’);
  Writeln(‘==============================================================’);
  Writeln;
  Writeln;
  Writeln('Masukkan Panjang Balok = '); Readln(p);
  Writeln('Masukkan Lebar   Balok = '); Readln(l);
  Writeln('Masukkan Tinggi  Balok = '); Readln(t);
  Writeln;
  Ds:=SQRT(p*p+l*l+t*t);
  Write('Maka Diagonal Ruang Balok tsb Adalah =',Ds:4:2);
  Writeln;
  Writeln(‘==========================> THE END < ==========================’);
  Writeln;
  Writeln(‘===================> Created By : Ahmad Tiar <==================’);
  Readln;
End. 

Good Luck, Wassalam,