Mencari sisi miring

Program Sisi_miring_segitiga;
uses WinCrt;
Var
a,b :byte;
c :real;

Begin
Write('sisi alas segitiga siku-siku = '); ReadLn(a);
Write('sisi tegak segitiga siku-siku = '); ReadLn(b);
c:=sqrt(sqr(a)+sqr(b));
Write('sisi miring segitiga siku-siku =',c:1:2);
End.

Gaji Pegawai dalam pascal

Program Hitung_Gaji_Pegawai;
Uses WinCrt;
Var
NP:string;
No:byte;
GP:Integer;
N,JL,TJ,Total:Real;
Begin
GotoXY(1,2);Write('Nama Pegawai : ');ReadLn(NP);
GotoXY(1,3);Write('NIP : ');ReadLn(No);
GotoXY(1,4);Write('Lembur(dalam Jam): ');ReadLn(N);

GotoXY(11,5);Write('Perincian Gaji Pegawai : ');
GotoXY(11,6);Write('__________________________ ');
GotoXY(14,7);Write('Gaji Pokok : ');ReadLn(GP);
TJ:=0.15*GP;
JL:=n*0.015*GP;
Total:=TJ+GP+JL;
GotoXY(14,8);Write('Jam Lembur : ',JL:2:0);
GotoXY(14,9);Write('Tunjangan : ',TJ:2:0);
GotoXY(14,10);Write('_______________');
GotoXY(17,11);Write('Gaji Total :Rp. ',Total:2:0);

End.

Referensi Bahasa Pascal untuk mencari luas lingkaran

uses WinCrt;
Var
Pilihan :byte;
R,Luas :real;

Begin
ClrScr;
WriteLn('Masukkan jari-jari Lingkaran?'); ReadLn(R);
Luas:=22/7*R*R;
WriteLn('Luas Lingkaran=',Luas);
End.

Luas Lingkaran.pas

Silahkan bagi orang2 yang ingin mencari referensi program TPW bisa dicari di tempat ini!!Progrma dapat dipesan sesuai keinginan tinggal kirim aja ke facebook saya denagan alamat iprasysj@gmail.com

program Rata_rata_test;
uses wincrt;
var
pi : real;
r,L : real;

begin
write('jari-jari lingkaran = ');
read(r);
pi:= 22/7 ;
L:=pi*sqr(r);
writeLn('Luas Lingkarannya adalah ',L:2:2);
end.

Gaji.pas

Silahkan bagi yang membutuhkan resensi tentang TPW

program hitung_gaji;
uses wincrt;
var
Nama:string;
GP,GT,K,n,T :Real;

begin
write('Nama Sales = ');
read(Nama);
write('Jumlah Mobil yang terjual = ');
read(n);
write('Total Harga Mobil yang terjual(dalam jutaan) = ');
read(T);
GT:= 1;
GP:= GT + 0.1* n + 0.05*T;
write('Gaji Total(dalam Jutaan) = ',GP:2:2);
end.