kampoeng-IT

Bahasa pemrograman yang akan dipelajari pada mata pelajaran Pemrograman Terstruktur ini adalah bahasa Pascal. Bahasa pascal dirancang oleh Profesor Niklaus Wirth dari Technical University Zurich Swiss. Nama pascal sendiri diambil untuk mengenang dan mengabadikan seorang matematikawan Perancis bernama Blaise Pascal (1623-1662).

Turbo pascal menyediakan fasiltas IDE (Integrated Development Environment), yang diantaranya berisi :

Kompiler (untuk mengkompilasi program menjadi suatu objek yang dapat dipahami oleh komputer)

Debugger ( untuk membantu mencari kesalahan program)

Linker (untuk menggabungkan file objek dan file pustaka serta membentuk file executable)

Editor (untuk menuliskan program sumber).

berikut adalah tampilan dari Turbo Pascal

Nomor 1
Perhatikan Algoritma di bawah ini:
Masukan nilai m,n
Kerjakan baris 3 dan 4 sampai (r=0)
R <- m mod n
Jika (r<>0) maka m<- n, n<- r
Cetak N

Jika nilai m=256 dan n=96 makan nilai n yang dicetak adalah?

a. 48
b. 42
c. 32
d. 16
e. 8

Related Article:

 Blog ini sudah "DO FOLLOW!" 

Jika proses A segera setelah F dan segera sebelum E, maka proses E pada kesempatan?

a. pertama

b. kedua

c. ketiga

d. keempat

e. kelima

Manakah yang benar untuk urutan proses produksi?

a. proses A pada kesempatan pertama

b. proses B pada kesempatan pertama

c. proses C pada kesempatan keenam

d. proses D pada kesempatan keempat

e. proses E pada kesempatan pertama

Ada 5 orang mahasiswa jurusan Matematika dan 7 orang mahasiswa jurusan Informatika. berapa banyak cara membentuk panitia yang teridiri 4 orang jika :

tidak ada batasan urusan

a. C(12,4)

b. C(2,4)

c. C(4,12)

d. C(4,2)

e. C(9,4)

semua anggota panitia dari jurusan yang sama

a. (C(5,4) x C(7,0)) + (C(7,4) x C(5,0))

b. (C(5,4) x C(7,0)) + (C(7,4) x C(4,0))

c. (C(5,4) x C(4,0)) + (C(7,4) x C(4,0))

d. (C(5,4) x C(7,0)) + (C(7,5) x C(5,0))

e. (C(5,4) x C(4,0)) + (C(7,4) x C(5,0))

Tiga buah ujian dilakukan dalam suatu periode salama 6 hari (Senin-Sabtu). berapa banyak pengaturan jadwal yang dapat dilakukan sehingga tidak ada 2 ujian atau lebih yang dilakukan pada hari yang sama?

a. 120

b. 480

c. 720

d. 600

e. 60

Berapa banyak solusi bilangan bulat dari x1 + x2 + x3 = 10 jika 0<= x1 <= 2, x2>1, dan x3>=0 ?

a. 4

b. 8

c. 16

d. 24

e. 32

Tentukan suku keempat dari penjabaran (x-y)5?

a. -10x2y2

b. -10x2y

c. -10xy3

d. -10x2y3

e. -10xy2

Deskripsi untuk 4 soal berikut :

Sebuah perusahaan swasta yang tengah menawarkan pekerjaan memilih satu dari 6 kantor konsultan yang masing-masing diwakili oleh Anwar, Bahtiar, Charles, Dadang, Endang dan Fahrial untuk melakukan presentasi mengenai penawaran mereka di hadapan pimpinan perusahaan swasta tersebut. Untuk menyamakan dengan masalah yang ditawarkan, maka masing-masing wakil perusahaan yang hanya akan melakukan presentasi satu kali dibuat urutan sebagai berikut :

Dari urutan berikut, mana yang memenuhi syarat?

a. Anwar, Fahrial, Charles, Dadang, Bahtiar, Endang

b. Bahtiar, Anwar, Fahrial, Endang, Dadang, Charles

c. Endang, Fahrial, Anwar, Bahtiar, Dadang, Charles .

d. Endang, Fahrial, Anwar, Charles, Bahtiar, Dadang

e. Bahtiar, Anwar, Dadang, Charles, Endang, Fahrial .

Nomor 12

A = (4 shl ((2 shl 3) shr 2) mod 5, nilai a adalah?

a. 2

b. 3

c. 4

d. 5

e. 0

Nomor 13

R = (false or true ) xor (true and( false or not false ), T= R and true or false, nilai dari R dan T adalah?

a. True, False

b. False, True

c. True, True

d. False, False

e. Tidak dapat diketahui

Masukan nilai m,n

Kerjakan baris 3 dan 4 sampai (r=0)

R <- m mod n

Jika (r<>0) maka m<- n, n<- r

Cetak N

Jika nilai m=256 dan n=96 makan nilai n yang dicetak adalah?

a. 48

b. 42

c. 32

d. 16

e. 8

Jika baris keempat hanya berisi m<-n, n<-r maka nilai n yang dicetak?

a. 48

b. 42

c. 7

d. 6

e. 0

Tipe data yang memiliki jangkauan dari 3.4*10-4932. . . 1.1*104932 adalah?

a. Real

b. single

c. double

d. extended

e. comp

Besar ukuran tipe data double adalah?

a. 24 bit

b. 32 bit

c. 40 bit

d. 48 bit

e. 64 bit

Jangkauan dari tipe data integer adalah?

b. -32767 .. 32768

c. -32778 .. 32777

d. -32777 .. 32778

e. -32767 .. 32767

4.

function a:Boolean;

begin

write(‘Selamat’);

a:=false;

end;

function b:Boolean;

begin

write(‘Berlomba’);

b:=true;

end;

begin

if a or b then writeln(‘Pemrograman’);

end.

Output program di atas :

a. SelamatBerlombaPemrograman

b. BerlombaPemrograman

c. Pemrograman

d. Berlomba

5.

var

x,y : string;

i : integer;

begin

x:=’Lomba Pemrograman’;

y:=’’;

for i:= 1 to length(x) do y[i]:= x[length(x)-i+1];

for i:=1 to length(x) do write(y[i]);

end.

Output program di atas :

a. Lomba Pemrograman

b. abmoL namargormeP

c. namargormeP

d. namargormeP abmoL

6.

const

nama :string = ‘’;

nilai : integer = 0;

var

data : record

nama: string;

nilai : integer;

end;

begin

data.nama := ‘’; data.nilai := 0;

with data do

nama := ‘ Adi’;

nilai := 85;

writeln(data.nama,’ ’,nilai,’ ’,data.nilai,’ ’,nama);

end.

Output program di atas :

a. Adi 0 85

b. 85 0 Adi

c. Adi 85 0

d. 85 0

7.

procedure tambah(a,b,hasil : integer);

begin

hasil := a+b;

a:= 0;

b:= 0;

end;

var

a,b,hasil : integer;

begin

hasil := 0;

a := 2;

b := 3;

tambah(a,b,hasil);

writeln(a,’ ’,b,’ ’,hasil);

end.

Output program di atas :

a. 2 3 0

b. 2 3 5

c. 0 0 5

d. 0 0 0

8.

var

i,j : integer;

begin

for i :=1 to 3 do

for j :=i to 3 do

write(‘*’);

writeln;

end.

Output program di atas :

a. *

    **

    ***

b. ***

    ***

    ***

c. ***

   **

   *

d. ******

9.

const i: integer = 10;

begin

for i := 1 to 5 do write (i,’ ’);

end.

a. 1 2 3 4 5

b. 1

    2

    3

  

    4

    5

c.10 10 10 10 10

d. program error (variabel identifier expected)

var

T: text;

i,j,k : integer;

begin

assign(T,’input.txt’);

reset(T);

readln(T,i,j,k);

writeln(i,’ ’,j,’ ’,k);

readln(T,i);

readln(T,j);

writeln(i,’ ’j);

close(T);

end.

10. Misalkan input.txt berisi baris-baris sebagai berikut :

3 1 4 9

5 2 6

8 7

0

Bagaimana output dari program tsb ?

a. 3 1 4 9

    5 2 6

    8 7

b. 3 1 4

    9 5

c. 3 1 4

    5 2

d. 3 1 4

    5 8

11. Misalkan input.txt berisi baris-baris sebagai berikut :

1

2

3

4

5

Bagaimana output dari program tsb ?

a. 2 3 1

   4 5

b. 1 0 0

    2 3

c. 1 3 2

    4 5

d. 1 2 3

    4 5

12. Misalkan A dan B bertipe integer dan masing-masing bernilai 10 dan 4. Ekspresi mana yang menghasilkan nilai nilai 5 ?

a. A div 7 *B

b. B div 7 * A

c. A * B div 7

d. A * B / 7

13. Berapakah keluaran program ini, bila pemakai memeberi nilai m = 8 ?

var c,m,j : integer;

begin

j:= 1;

write (‘m= ‘); readln(m);

for c := 5 to m do

j : = j * (m-4);

writeln(j);

end.

a. 120

b. 24

c. 1

d. 256

13. Bila pada soal sebelumnya m = 1, maka berapa keluaran program ?

a. 0

b. 5

c. 1

d. salah semua

14. I dan J masing-masing bertipe integer yang masing-masing bernilai 13000 dan 5, dan L adalah variabel bertipe LongInt. Ekspresi manakah yang bias menghasilkan 65000 dengan tepat dalam bahasa Pascal ?

a. L:= I * J;

b. L := LongInt(I*J);

c. L:= LongInt(J * I);

d. L : = Longint(I) * J;

15. Perhatikan potongan program berikut. Bagaimanakah hasil eksekusi program tersebut?

Function Log2(A: word):word;

Var L : integer;

Begin

L:= 0;

While A > 1 do

Begin

Inc(L);

A:= A div 2;

End;

Log2 := L;

End;

Var A, LogA : word;

Begin

A:= 31;

LogA:= Log2(A);

Writeln(A,’ ’,LogA);

End.

a. 31 4

b. 1 4

c. 1 5

d. 31 5

Jawaban:

1.C

2.B

3.D

4.A

5.D

6.C

7.A

8.D

9.A

10.D

11.D

12.C

13.D

14.D

15.A

Apabila ada kesalahan saya mohon maaf. . semoga bermanfaat bagi yang akan mengikuti Lomba Programming. Amin.