Program FPC

Luas Segitiga dengan FPC

Posted on Juli 3, 2009 by wahcilik

Menghitung Luas segitiga
Alas = 10
Tinggi = 9

Program Lsegitiga;

var
Alas, Tinggi, Luas : Real;

Begin
Alas := 10; {memasukan harga 10 pada variabel Alas}
Tinggi := 9; {Memasukan harga 9 pada variabel tinggi}
Luas := Alas*Tinggi/2; {Menghitung Luas Segitiga}

{ Tampilan dalam bilangan Exponen }
writeln (Luas);

{tampilan dalam format dua angka desimal}
writeln (Luas:0:2);

End.

Menghitung penambahan 2 bilangan dengan FPC

Posted on Juli 3, 2009 by wahcilik

Pada contoh program Free Pascal ini :

Menghitung dan mencetak jumlah 2 bilangan.
Bilangan pertama A, harganya 4.
Bilangan kedua B, harganya 5.
Jumlah C.

Program Tambah;

var
A, B, C : integer;

Begin
A := 4;
B := 5;
C := A + B;

Write (C);

End.

Menentukan bilangan genap atau ganjil dengan free pascal

Posted on Juli 3, 2009 by wahcilik

Program menentukan bilangan Genap atau Ganjil, dengan memasukan bilangan :

Program JenisBil;

var
x, sisa : integer;
ket : string;

Begin

Write (‘Masukan semua Bilangan : ‘); Readln (x);

sisa := x mod 2;

if sisa = 0 then ket := ‘Genap’ else ket := ‘Ganjil’;

write (‘Jadi jenis bilangan adalah :’); write (ket);

end.