ALDHO

Senin, 25 Juli 2011

Menentukan Bilangan Ganjil atau Genap Dengan Free Pascal

Program menentukan bilangan Genap atau Ganjil, dengan memasukan bilangan:

Contoh I:
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. 

Contoh II:
Program suhu;
Uses crt;
Var
F,C,R : Real;
Begin
write (‘Suhu dalam Derajat Farrenheit : ‘);
readln (F);
C := (5/9) * (F – 32);
R := (4/9) * (F – 32);
writeln (‘Suhu dalam Celsius : ‘+C:0:2);
writeln (‘Suhu dalam Reamur : ‘+R:0:2);
end.


Menghitung Penambahan 2 Bilangan Dengan FPC

Pada contoh program Free Pascal ini :
Kita akan menghitung dan mencetak jumlah 2 bilangan.
Bilangan pertama A, harganya 4.
Bilangan kedua B, harganya 5.
Jumlah C.

Contoh:


Program Tambah;
var
A, B, C : integer;
Begin
A := 4;
B := 5;
C := A + B;
Write (C);
End.

Tidak ada komentar:

Poskan Komentar