Soal 5

begin

writeln(round(frac(3.7)));

end.

Apa keluaran program di atas ?

Jawaban:

Fungsi frac (lihat pembahasan di atas)

Fungsi round

Deklarasi : Function Round (X : Real) : Longint;

Keterangan : membulatkan bilangan X, yang mungkin lebih besar atau lebih kecil dari X.

Frac(3.7) akan menghasilkan 0.7

Round(0.7) akan menghasilkan 1

Soal 6

Jika n dan p adalah dua bilangan bulat, dan n + p berharga ganjil, manakah dari berikut ini bil ganjil?

a. n – p + 1

b. np

c. n2 + p2 – 1

d. 3p + 5n

e. (p – n)(n – p)

Jawaban:

A bukan, karena (n+p) adalah ganjil maka dari n dan p salah satu ganjil dan yang lain genap. Selisih antara n dan p pasti ganjil sehingga jika ditambah 1 menjadi genap.

B bukan karena perkalian antara suatu bilangan genap dengan bilangan apapun akan menjadi genap.

C bukan karena pangkat bulat positif berapapun dari bilangan genap, tetap genap, dan ganjil tetap ganjil, kemudian ganjil ditambah genap dan dikurang ganjil menjadi genap.

D bukan karena pangkat bulat positif berapapun dari bilangan ganjil tetap bilangan ganjil, dan jumlah dua bilangan ganjil menjadi genap.

E benar, karena perkalian antara dua bilangan ganjil menghasilkan bilangan ganjil.

Soal 7

var s:string;

begin

s:='TOKI GO GET GOLD!';

delete(s,1,length(s)-12);

writeln(s);

end.

Apa keluaran program di atas ?

Jawaban:

Procedure delete:

Deklarasi : procedure Delete(var S: String; Index: Integer; Count:Integer);

Keterangan : procedure delete akan menghapus S sebanyak count karakter, dimulai dari posisi Index.

Function length:

Deklarasi : Function Length (S : String) : Integer;

Keterangan : Length menghasilkan panjang dari S, bernilai antara 0 sampai dengan 255.