Soal Dan Jawaban UAS Algoritma & Pemrograman 2 Gunadarma ATA 2014/2015 PART 1

Pada kesempatan kali ini saya ingin berbagi soal dan jawaban UAS ALGORITMA & PEMROGRAMAN 2 ATA 2014/2015 Universitas Gunadarma bagian PART 1, dengan maksud dan tujuan hanya ingin berbagi khususnya untuk para Mahasiswa/i yang sedang menempuh UAS agar dapat belajar dengan mudah. Untuk PART 2 menyusul dilain hari.

Mohon dikoreksi bila ada kesalahan di jawaban, pada kolom komentar yang disediakan.

Soal Ujian Akhir Semester ATA 2014 / 2015
UNIVERSITAS GUNADARMA

1. Diantara pernyataan-pernyataan berikut, manakah yang salah ....

a. Pada saat menggunakan prosedur Write, posisi kursor akan berada di belakang teks yang dituliskan

b. Pada saat menggunakan prosedur Writeln, posisi kursor akan berada ke baris berikutnya
c. Prosedur Write dan Writeln dapat digunakan untuk tipe data string dan numerik
d. Prosedur readln hanya dapat digunakan untuk membaca tipe data numerik

2. Manakah kode yang wajib dituliskan atau pasti ada dalam setiap program yang ditulis dalam bahasa Pascal .....

a. Program, uses, begin dan end
b. Program, begin dan end
c. begin dan end.
d. Progam, var, begin dan end

3.

Begin
Readln;
End.

Apakah yang akan terjadi apabila kode diatas dijalankan ....

a. Tidak tampak hasil apapun dilayar monitor
b. Terjadi kesalahan kompilasi karena tidak terdapat judul program
c. Terjadi kesalahan kompilasi karena tidak terdapat daftar unit yang digunakan
d. Terjadi kesalahan kompilasi karena tidak terdapat statement

4. Berikut ini daftar komentar yang dapat digunakan dalam bahasa Pascal, kecuali ....

a. (*Contoh komentar dalam Pascal*)
b. (**Contoh komentar dalam Pascal**)
c. (*(*Contoh komentar dalam Pascal*)*)
d. {Contoh komentar dalam Pascal}

5. Manakah cara yang tepat untuk mendeklarasikan tipe subrange antara 1 sampai 100 ?

a. Var Tangka: '1'..'100';
b. Var Tangka: '1..100';
c. Var Tangka: 1....100;
d. Var Tangka: 1..100;

6. Bagaiman menampilkan teks HARI JUM'AT kedalam monitor ?

a. write ("HARI JUM'AT");
b. write ("HARI JUM''AT");
c. write ("HARI JUM'''AT");
d. write ("HARI JUM''''AT");

7.

Begin
Writeln(FALSE);
Writeln (2 * integer('A'));
Readln;
End.

Apakah hasil yang ditampilkan dari kode diatas ?

a. 0
2 * 65
b. 0
130
c. FALSE
2 * integer('A')
d. FALSE
130

8.

Var
x : real;
Begin
x := 1+(2*3)-(4/2); Writeln (x:0:2);
Readln;
End.

Apakah hasil yang ditampilkan dilayar monitor berdasarkan kode diatas ?

a. 1.50
b. 2.50
c. 3.50
d. 5.00

9.

Type
Tbilangan = 1..5;
Var
h1,h2,h3 : set of Tbilangan;
Begin
h1 := [1,2,3,4]; h2 := [2,1,5];
h3 := h1 * h2;
if 1 in h3 then write(1); if 2 in h3 then write (2); if 3 in h3 then write(3);
if 4 in h3 then write(4); if 5 in h3 then write (5); readln; 
end.

Apakah hasil yang ditampilkan dilayar monitor berdasarkan kode diatas ?

a. 1

b. 2

c. 12

d. 21

10.

Var
i, hasil : integer;
begin
hasil := 1;
for i := 10 to 10 do begin
i := i + 1;
hasil := hasil + i;
end ;
writeln (hasil); readln ; end.

Apakah hasil yang ditampilkan dilayar monitor berdasarkan kode diatas ?

a. 11

b. 12

c. Terjadi kesalahan pada proses kompilasi

d. Terjadi kesalahan pada saat program berjalan

11.

Type
Tminggu  = (Minggu, Senin, Selasa, Rabu, Kamis, Jumat, Sabtu);
Thari = set of Tminggu;
Var
hari1, hari2 : Thari ;
Begin
hari1 := [Senin..Jumat];
hari2 := [Senin, Selasa, Rabu, Jumat];
................... ;
Readln ;
End.

Berikut statement yang tepat untuk kode diatas yang dapat menampilkan teks 'statement dikerjakan' dilayar monitor adalah ....

a. if (hari1 <= hari2) then write ('statement dikerjakan');

b. if (hari1 >= hari2) then write ('statement dikerjakan');

c. if (hari1 = hari2) then write ('statement dikerjakan');

d. if (kamis in hari2) then write ('statement dikerjakan');

12.

Var
Pilihan : integer;
Begin
Pilihan := 1;
Case boolean (pilihan) of
True : write ('benar');
False : write ('salah');
Else write ('selain benar dan salah'); end;
readln; end.

Apakah hasil yang ditampilkan dilayar monitor berdasarkan kode diatas ?

a. salah

b. benar

c. selain benar dan salah

d. layar kosong

13.

VAR M, N : STRING[14] ;
BEGIN
M := 'iniVGunaDaRma' ;
N := COPY (M,6,4) ;
INSERT ('L',N,3) ; WRITELN (N) ; READLN ;
END. 

Apakah hasil yang ditampilkan dilayar monitor berdasarkan kode diatas ?

a. unLaD

b. UnVGa

c. GunaD

d. gunad

14.

VAR A, B : STRING[10] ;
BEGIN
A := 'arieFHendarsyah' ;
B := COPY ( CONCAT ( COPY (A,7,2), A), 6, 2) ;
WRITELN (B) ; READLN ;
END.

Apakah hasil yang ditampilkan dilayar monitor berdasarkan kode diatas ?

a. eF

b. FH

c. He

d. ar

15. Berikut ini fungsi standar yang ada dalam bahasa pascal, kecuali ....

a. Concat

b. Delete

c. COPY

d. LENGTH

16. Instruksi program yang benar adalah ....

a. Uses Crt;

b. Var

c. real ;

d. nama

17. Kumpulan data yang masing-masing memiliki tipe data berbeda disebut ....

a. File

b. Array

c. Record

d. Pointer

18. Perintah yang digunakan untuk menampilkan program dibawah adalah ...

a. Msgbox "Masukkan data ke:" + A, vbOkCancel, "Perulangan"

b. A =Inputbox ("Masukkan data ke:","Perulangan",0)

c. A =Inputbox ("Masukkan data ke:", vbOkCancel,"Perulangan")
d. Inputbox "Masukkan data ke:" + A, "Perulangan"