Kuliah

pemrograman pascal

penjumlahan dua bilangan

program penjumlahan;

uses wincrt;

var

bil1,bil2,jumlah:integer;

begin

     write('masukkan bilangan1 ?');readln(bil1);

     write('masukkan bilangan2 ?');readln(bil2);

     jumlah:=bil1+bil2;

     writeln('jumlah =',jumlah);

     readln;

end.

meghitung luas segitiga

program luas_segitiga;

uses wincrt;

var

 a,t :word;

 luas:real;

begin

     write('masukkan alas   ?');readln(a);

     write('masukkan tinggi ?');readln(t);

     luas:=0.5*a*t;

     writeln('luas segitiga =',luas:6:2);

end.

menghitung umur seseorang

uses wincrt;
var
   tl,ts,umur:word;

begin
     write('masukkan tahun sekarang =');readln(ts);
     write('masukkan tahun lahir    =');readln(tl);
     umur:=ts-tl;
     writeln('jadi  umur anda       =',umur);

end.