SOAL BASCOM

JABAWAN UJIAN  OLEH : ....................................................................

BAHASA PEMROGRAMAN KOMPUTER/ 3SKS/30 MENIT/ 4-8 JANUARI 2011

PENGASUH               : DRS. SYAHJUZAR/DRS.ANWAR, M.Pd.

SOAL JANGAN DICORET DAN DIKEMBALIKAN

JAWABAN DITULIS LANGSUNG PADA HALAMAN INI

A. Pilihlah jawaban yang benar

1.   Misalkan a,  x  adalah bilangan bulat dan y bilangan real. Maka ekspresi rumus untuk y² =   adalah …

1. y :=sqrt(0.5)*exp(x*ln(a));   b. y := sqrt(0,5*exp(x*ln(a)));  

c. y := sqrt(exp(x*ln(a)/2));       d. y := sqrt(exp(x*ln(a))/2);

e. y := sqrt(exp(a*ln(x))/2);      

2. Penulisan ekspresi matematika untuk D =  yang benar di dalam bahasa Pascal adalah…

a.  D:= sqrt(A*A-2*B/(C-B)* C-B)* C-B));  b.D:= sqrt(A*A-2*B/((C-B)* C-B)* C-B)));

c. D:= sqrt(sqr(A)-2*B)/(sqr(C-B)*(C-B)); d. D:= sqrt(A*A-2*B)/((C-B)* (C-B)*(C-B));

5. D:= sqrt((sqr(A)-2*B)/ (sqr(C-B)*(C-B)));

3.  Perhatikan Listing program berikut.

Program Tanya_Output3; Uses Crt;Var     a, b, c, T : Integer; begin a:=7; b:=3; c:=5;    T:=a; a:=b; b:=T;   If >c then T:=b; b:=c; c:=T; T:=a; If b > T then t:= b;    writeLN(a, ' ',b,' ',c,' ',T);  readln;end.

Output yang diberikan oleh program di atas adalah:…

1. 3  7  7  5         b. 5  7  3  7            c. 5  3  7  7            d. 3  5  7  5           e. 3  5  7  7

4.  Penggunaan Identifier variabel yang benar adalah

1. Gaji/Bulan     b. %Keuntungan      c.1Tahun       d. Program     e. Jumlah_Total

Esai

TERJEMAHKAN PROGRAM BERIKUT KE BAHASA JUSTBASIC DI BELAKANG HALAMAN INI DAN SELANJUTNYA TENTUKAN KELUARANNYA

A pada soal berikut adalah DUA DIGIT TERAKHIR dari NIM Anda

Program Ujian_Akhir;  Uses crt;

Var A,B,C,D : real; UJIAN    : Char;

Begin  Clrscr;

Write “Masukkan nilai A =”; readln(A);  

B := 2*A;

C := A;

A := B;

B := C;

D := B – A;

Writeln (A:2:2);

Writeln B:2:2);

Writeln (B:2:2, A:2:2);

Writeln (A:2:2, B:2:2);

Writeln (‘Jadi nilai D yang saya cari adalah D =’, D:2:2);

UJIAN  := readkey;

End.

1. Bila program di atas di RUN, tulislah TAMPILAN yang terjadi 
2. Program apakah dari masalah tersebut?

isikan DUA DIGIT terahir dari NIM Anda.

2Perhatikan program berikut.

program TanyaHasilSendiri1;

Uses Crt;

var

i,j,k : integer;

begin

  clrscr;

  k:=…………;

  for i:= -1 to 3 do

  begin

       for j:= 3 to 4 do

        begin

            k:= i+j+k;

         end;

  end;

  writeln(K);

end.

            Keluaran yang diberikan program di atas adalah:…