program mencari luas dan keliling segitiga

di bawah ini adalah script dalam bahasa pascal untuk menentukan keliling dan luas segitiga,dan juga selisih antara luas dan keliling.bila kita memasukkan input dan keluaran (output) keliling akan diketauhi apakah bilangan ganjil atau bilangan genap......oke sekarang lihatlah script di bawah ini:


program aritmatika;

uses wincrt;

label 1;

var
   t,a,s,k: integer;
   l,sl   : real  ;

begin
    1:

write('masukan tinggi segitiga      : '); readln(t);
write('masukan alas segitiga        : '); readln(a);
write('masukan sisi miring sgitiga  : '); readln(s);                                                       

k :=(t+a+s);
l :=(a*t)/2;
sl:=(k-l);

   begin
       writeln('_______________________________________________');
       writeln('riescarter.blogspot.com');
       writeln('Aris Nurcahyono');
       writeln('NIM = 10031902');
       writeln('###############################################');
       writeln('mencari luas segitiga');
       writeln('mencari selisih luas dan keliling segitiga');
       writeln('mencari keliling segitiga bilangan ganjil/genap');
       writeln('===============================================');
       writeln;
   end;
   begin
       writeln('luas segitiga                             = ',l :0:0,'');
       writeln('selisih antara luas dan keliling segitiga = ',sl:0:0,'');
   end;
   if (k mod 2=0) then
   write('keliling segitiga = ',k,' & bilangan genap ')
else
    write('keliling segitiga= ',k,' & bilangan ganjil');

   readln;
   clrscr;
   goto 1

end.


semoga bermanfaat sobat...........tapi jangan lupa tinggalkan komentar di bawah....salam kawan berbagi