Just Sadadine

Pada Kesempatan kali ini saya akan share tentang coding pascal pada program untuk menghitung luas segitiga. tidak perlu panjang lebar lagi lets check this out !!!

program segitiga;
uses wincrt;
var a,t,l:real;
begin
     Writeln(‘=======================================’);
     Writeln(‘ => Software Untuk Menghitung Luas Segitiga  <=’);
     Writeln(‘=======================================’);
     writeln;
     writeln;
     write('Masukkan alas   segitiga  = '); readln(a);
     write('Masukkan tinggi segitiga  = '); readln(t);
     writeln;
     l:=1/2*a*t;
     write('Maka luas segitiga  =',l:5:2);
     writeln;
     writeln;
     writeln;
     Write(‘===============> THE END <==============’);
     Writeln;
     Write(‘=========> Created By : Ahmad Tiar <========’);
     Readln;
End.