Algoritma dan Pemrograman - Ujian M3

1. Function Hasil(Var A,B : Integer) : Integer;
   Begin
   A := A + B; Hasil := A-B; End;
   Var X,Y : Integer;
   Begin
   Readln(X); Readln(Y);Writeln(Hasil(X,Y)); End.
   
   Jika X=5 dan Y=4, maka nilai Hasil adalah ....
   1.       0
   2.      1
   3.     4
   4.        5
2. Kal1 := ‘ ujian ’; Kal2 :=’ akhir ’;
   Hasil dari CONCAT(Kal2,Kal1, “Pascal”) adalah ....
   1.   ujian akhir Pascal
   2.   ujian akhir
   3.   akhir ujian
   4.   akhir ujian Pascal
3. Apakah output program dibawah ini, jika a = 18 dan b = 39 ....
   
   Var a,b,c : integer;
   Begin
   Readln(a,b);
   If a >= b then c:= a div b
   Else c:= b mod a;
   writeln(c);
   End.
   1.   1
   2.   2
   3.   3
   4.   16
4. Ouput program di bawah ini adalah ....
   
   Procedure satu;
   Begin
   Writeln(‘PASCAL’);writeln(‘------------‘);end;
   Procedure dua;
   Begin Writeln(‘BAHASA’);end;
   Begin
   dua;Writeln(‘------------’);satu;Writeln(‘------------‘); END.
   1.   BAHASA
      ------------
      ------------
      PASCAL
      ------------
   2.   PASCAL
      ------------
      BAHASA
      ------------
      ------------
   3.   PASCAL
      ------------
      ------------
      BAHASA
      ------------
   4.   BAHASA
      ------------
      PASCAL
      ------------
      ------------
5. Var a,b : real; c:integer;
   Begin
   A := Trunc(2.85);
   B := Frac(1.35);
   C := Round(3.45);
   Writeln(a:5:2);
   writeln(b:5:2);
   writeln(c);End.
   
   Output dari program di atas adalah ....
   1.   2.00
      3.00
      3
   2.   2.00
      0.35
      3
   3.   0.85
      2.00
      3
   4.   2.00
      1.00
      3
6. Uses Crt;
   Var a, b: char;
   Begin
   ClrScr;
   For a:= ‘A’ to ‘E’ do
   Begin
   For b:= ‘A’ to a do
   begin
   if(a=b) then
   writeln (b)
   else
   write(b);
   end;
   end;
   Readkey;
   End.
   
   Output dari program di atas adalah ....
   1.   A
      B
      C
      D
      E
   2.   A
      BB
      CCC
      DDDD
      EEEEE
   3.   ABCDE
      ABCD
      ABC
      AB
      A
   4.   A
      AB
      ABC
      ABCD
      ABCDE
7. Uses Crt;
   Var
   nilai : Real;
   Begin
   Write ('Jumlah Nilai :');
   Readln (nilai); { Pemasukan data }
   If nilai >= 65 Then
   Writeln('Lulus')
   Else
   Writeln('Tidak lulus');
   End.
   
   Bila variabel nilai diisi dengan angka 65 maka hasilnya adalah ....
   1.   Lulus
   2.   Tidak lulus
   3.   Error
   4.   Semua salah
8. Berikut ini merupakan potongan dari suatu program Pascal :
   
   for i:=1 to 3 do
   begin
   for j:=1 to 5 do
   write(‘*’);
   writeln;
   end;
   
   Jika i dan j bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah ....
   1.   * * *
      * * *
      * * *
      * * *
   2.   * * *
   3.   * * * * *
   4.   * * * * *
      * * * * *
      * * * * *
9. Var a,b : integer;
   Begin
   For a := 1 to 2 do
   Begin
   For b := 2 downto a do
   Begin
   Write (a); writeln(b);
   End;End; End.
   
   Maka output program diatas adalah ....
   1.   12
      22
      21
   2.   12
      11
      22
   3.   21
      11
      22
   4.   12
      11
      23
10. Output dari program berikut adalah ....
    
    Var x,y : integer;
    Begin For x := 1 to 2 do
    Begin
    For y := 1 to x do Writeln(y);
    Writeln(‘done’); End;End.
    1.   1
       1
       2
       done
    2.   1
       done
       1
       2
       done
    3.   1
       oke
       1
       done
       2
       done
    4.   1
       oke
       1
       done
       2
       done
11. Output dari program berikut adalah ....
    
    Var a,b : integer;
    Begin
    For a := 1 to 5 Do
    For b:= 1 to a Do
    Write(b);
    End.
    1.   12345
       1234
       123
       12
       1
    2.   1
       12
       123
       1234
       12345
    3.   112123123412345
    4.   12345
12. Perhatikan program dibawah ini. Outputnya adalah ....
    
    Var i,j : byte;
    Begin
    For i := 1 To 3 Do
    Begin
    For j := 3 DownTo i Do
    Write(j);
    writeln; End; End.
    1.   123
       12
       1
    2.   1
       12
       123
    3.   321
       32
       3
    4.   3
       32
       321
13. Perhatikan program dibawah ini. Jika n=6 maka outputnya adalah ....
    
    Var i,n,bil : integer;
    Begin
    Readln(n);bil:=1; For i := 1 To n Do
    bil := bil * i;
    Writeln(bil);
    End.
    1.   720
    2.   120
    3.   100
    4.   24
14. Var I : Integer ;
    Begin
    For I := 1 To 2 Do Write(‘ Ujian ’);
    Writeln(‘LabSI‘); End.
    
    Output dari program diatas adalah .....
    1.   Ujian
       Ujian
       Labsi
    2.   Ujian Labsi
       Ujian Labsi
    3.   Ujian Ujian
       Labsi
    4.   Ujian Ujian Labsi
15. Procedure hitung(a,b : integer, var c : integer);
    Begin
    C := a+ b;
    End;
    Var x,y,z : integer;
    Begin
    X :=2; Y := 3;
    Hitung(x,y,z); Write(x,y,z); End.
    
    Hasil yang diperoleh adalah ....
    1.   352
    2.   235
    3.   523
    4.   325
16. IF (a>5) AND (b<=3) THEN Writeln(‘UJIAN’) ELSE Writeln(‘PASCAL’);
    Jika a=5 dan b=3maka hasil yang akan dicetak adalah ....
    1.   THEN
    2.   PASCAL
    3.   UJIAN
    4.   ELSE
17. Output dari program berikut adalah ....
    
    Var i : integer;
    Begin
    I :=1; While i <= 5 Do
    Begin
    If 10 Mod I = 0 Then Writeln(10 Div I);
    I := I + 1;
    End; End.
    1.   1 2 5
    2.   10
       5
       2
    3.   2
       5
       10
    4.   2 5 10
18. Program untuk menghasilkan output : 5 4 3 2 1 adalah ....
    1.   var i:integer;
       begin
       For i:= 1 to 5 do Write(i);
       end.
    2.   var i:integer;
       begin
       For i:= 5 downto 1 Do Writeln(i);
       end.
    3.   var i:byte;
       begin
       For i:= downto 1 Do Write(i);
       end.
    4.   var i:byte;
       begin
       For i:=5 to 1 Do Write(i);
       end.
19. Program di bawah ini menampilkan bilangan 1 3 5 7 9 11 13 15 17 19.
    
    program Hitung;
    uses
    WinCrt;
    
    var bil:integer;
    
    begin
    clrscr;
    bil := ..(1)..;
    While ..(2)..
    ..(3)..
    begin
    writeln(bil);
    ..(4)..
    end;
    readln;
    end.
    
    Di bawah ini yang tepat untuk mengisi titik-titik (1) adalah ....
    1.   1
    2.   2
    3.   20
20. Program di bawah ini menampilkan bilangan 1 3 5 7 9 11 13 15 17 19.
    
    program Hitung;
    uses
    WinCrt;
    
    var bil:integer;
    
    begin
    clrscr;
    bil := ..(1)..;
    While ..(2)..
    ..(3)..
    begin
    writeln(bil);
    ..(4)..
    end;
    readln;
    end.
    
    Di bawah ini yang tepat untuk mengisi titik-titik (2) adalah ....
    1.   bil<=20
    2.   bil<20
    3.   bil<20;
    4.   bil<=20;
21. Program di bawah ini menampilkan bilangan 1 3 5 7 9 11 13 15 17 19.
    
    program Hitung;
    uses
    WinCrt;
    
    var bil:integer;
    
    begin
    clrscr;
    bil := ..(1)..;
    While ..(2)..
    ..(3)..
    begin
    writeln(bil);
    ..(4)..
    end;
    readln;
    end.
    
    Di bawah ini yang tepat untuk mengisi titik-titik (3) adalah ....
    1.   begin
    2.   end
    3.   do
    4.   next
22. Program di bawah ini menampilkan bilangan 1 3 5 7 9 11 13 15 17 19.
    
    program Hitung;
    uses
    WinCrt;
    
    var bil:integer;
    
    begin
    clrscr;
    bil := ..(1)..;
    While ..(2)..
    ..(3)..
    begin
    writeln(bil);
    ..(4)..
    end;
    readln;
    end.
    
    Di bawah ini yang tepat untuk mengisi titik-titik (4) adalah ....
    1.   bil := bil+1;
    2.   bil := bil +2;
    3.   bil : bil+1
    4.   bil := bil+2
23. program Hitung;
    uses wincrt;
    
    var a,b : integer;
    
    begin
    clrscr;
    write(..(1)..);
    readln(a);
    write('masukan bil b = ');
    ..(2)..
    writeln;
    writeln('bilangan yang diinput adalah ...');
    writeln('A = ',a);
    writeln('B = ',b);
    writeln;
    writeln(a,' + ',b,' = ',a+b);
    writeln(a,' - ',b,' = ',a-b);
    readln;
    end.
    
    Di bawah ini yang tepat untuk mengisi titik-titik (1) adalah ....
    1.   'masukan bilangan a,b = '
    2.   masukan bil b = ;
    3.   masukan bil b =
    4.   'masukan bil a = '
24. program Hitung;
    uses wincrt;
    
    var a,b : integer;
    
    begin
    clrscr;
    write(..(1)..);
    readln(a);
    write('masukan bil b = ');
    ..(2)..
    writeln;
    writeln('bilangan yang diinput adalah ...');
    writeln('A = ',a);
    writeln('B = ',b);
    writeln;
    writeln(a,' + ',b,' = ',a+b);
    writeln(a,' - ',b,' = ',a-b);
    readln;
    end.
    
    Di bawah ini yang tepat untuk mengisi titik-titik (2) adalah ....
    1.   readln;
    2.   readln(b);
    3.   readln(b)
    4.   readln b
25. program Hitung;
    uses wincrt;
    
    var a,b : integer;
    
    begin
    clrscr;
    write(..(1)..);
    readln(a);
    write('masukan bil b = ');
    ..(2)..
    writeln;
    writeln('bilangan yang diinput adalah ...');
    writeln('A = ',..(4)..);
    writeln('B = ',..(5)..);
    writeln;
    writeln(a,' + ',b,' = ',a+b);
    writeln(a,' - ',b,' = ',a-b);
    readln;
    end.
    
    Di bawah ini yang paling tepat untuk mengisi titik-titik (4) dan (5) adalah....
    1.   a+b dan a-b
    2.   A dan B
    3.   a dan b
    4.   a,b dan b,a
26. Untuk menghasilkan angka dari 1-5, struktur koding yang digunakan adalah ....
    1.   FOR i = 1 TO 5
       i = i + 1
       NEXT
    2.   FOR i = 1
       i = i + 1
       NEXT 5
    3.   FOR i = 1 -> 5
       i = i + 1
       NEXT
    4.   FOR i = 1 - 5
       i = i + 1
       NEXT
27. Private Sub Check1_Click()
    Label2.FontBold = Check1.Value
    End Sub
    
    Private Sub Check2_Click()
    Label2.FontItalic = Check2.Value
    End Sub
    
    Private Sub Command1_Click()
    Label2.Caption = Text1.Text
    End Sub
    
    Private Sub Command2_Click()
    End
    End Sub
    
    Private Sub Option1_Click()
    Label2.ForeColor = vbBlue
    End Sub
    
    Private Sub Check1_Click()
    Label2.ForeColor = vbRed
    End Sub
    
    
    Pada koding di atas, perintah untuk mencetak miring adalah ....
    1.   ForeColor
    2.   FontItalic
    3.   FontBold
    4.   vbBlue
28. Source Code Menghitung luas persegi panjang
    
    Private Sub Command1_Click()
    txtluas.Text = Val(txtpanjang.Text) ..(1).. Val(txtlebar.Text)
    End Sub
    
    Private Sub Command2_Click()
    txtpanjang.Text = ""
    txtlebar.Text = ""
    txtluas.Text = ""
    txtpanjang.SetFocus
    End Sub
    
    Private Sub Form_..(2)..()
    Form1.Caption = "UJIAN"
    Label1.Caption = "PANJANG"
    Label2.Caption = "LEBAR"
    Label3.Caption = "LUAS"
    Label4.Caption = "Menghitung Luas"
    Label4.Font = "Monotype Corsiva"
    Label4...(3).. = 24
    txtpanjang.Text = ""
    txtlebar.Text = ""
    txtluas.Text = ""
    Command1.Caption = "Hitung"
    Command2.Caption = "Input Lagi"
    End Sub
    
    
    
    Operator yang tepat untuk mengisi titik-titik (1) adalah ....
    1.   +
    2.   -
    3.   *
    4.   /
29. Source Code Menghitung luas persegi panjang
    
    Private Sub Command1_Click()
    txtluas.Text = Val(txtpanjang.Text) ..(1).. Val(txtlebar.Text)
    End Sub
    
    Private Sub Command2_Click()
    txtpanjang.Text = ""
    txtlebar.Text = ""
    txtluas.Text = ""
    txtpanjang.SetFocus
    End Sub
    
    Private Sub Form_..(2)..()
    Form1.Caption = "UJIAN"
    Label1.Caption = "PANJANG"
    Label2.Caption = "LEBAR"
    Label3.Caption = "LUAS"
    Label4.Caption = "Menghitung Luas"
    Label4.Font = "Monotype Corsiva"
    Label4...(3).. = 24
    txtpanjang.Text = ""
    txtlebar.Text = ""
    txtluas.Text = ""
    Command1.Caption = "Hitung"
    Command2.Caption = "Input Lagi"
    End Sub
    
    
    
    D bawah ini yang tepat untuk mengisi titik-titik (2) adalah ....
    1.   Click
    2.   Load
    3.   Value
    4.   Enabled
30. Source Code Menghitung luas persegi panjang
    
    Private Sub Command1_Click()
    txtluas.Text = Val(txtpanjang.Text) ..(1).. Val(txtlebar.Text)
    End Sub
    
    Private Sub Command2_Click()
    txtpanjang.Text = ""
    txtlebar.Text = ""
    txtluas.Text = ""
    txtpanjang.SetFocus
    End Sub
    
    Private Sub Form_..(2)..()
    Form1.Caption = "UJIAN"
    Label1.Caption = "PANJANG"
    Label2.Caption = "LEBAR"
    Label3.Caption = "LUAS"
    Label4.Caption = "Menghitung Luas"
    Label4.Font = "Monotype Corsiva"
    Label4...(3).. = 24
    txtpanjang.Text = ""
    txtlebar.Text = ""
    txtluas.Text = ""
    Command1.Caption = "Hitung"
    Command2.Caption = "Input Lagi"
    End Sub
    
    
    
    Operator yang tepat untuk mengisi titik-titik (3) adalah ....
    1.   FontColor
    2.   FontBold
    3.   FontValue
    4.   FontSize
31. Private Sub Check1_Click()
    Label2.FontBold = Check1.Value
    End Sub
    
    Private Sub Check2_Click()
    Label2.FontItalic = Check2.Value
    End Sub
    
    Private Sub Command1_Click()
    Label2.Caption = Text1.Text
    End Sub
    
    Private Sub Command2_Click()
    End
    End Sub
    
    Private Sub Option1_Click()
    Label2.ForeColor = vbBlue
    End Sub
    
    Private Sub Check1_Click()
    Label2.ForeColor = vbRed
    End Sub
    
    
    Pada koding di atas, perintah untuk memberi teks warna biru adalah ....
    1.   Label2.FontBold = Check1.Value
    2.   Label2.FontItalic = Check2.Value
    3.   Label2.ForeColor = vbBlue
    4.   Label2.ForeColor = vbBiru
32. Di bawah ini merupakan sintaks dari struktur kontrol keputusan, kecuali ....
    1.   DO WHILE LOOP
    2.   IF THEN
    3.   SELECT CASE .... END SELECT
    4.   IF THEN ELSE
33. Perintah untuk membuat tulisan tebal adalah ....
    1.   Label2.Caption = Bold
    2.   Label2.FontBold = Check3.Value
    3.   Label2.Bold = Check3.Style
    4.   Label2.Font = Check3.Bold
34. Perintah untuk membuat tulisan miring adalah ....
    1.   Label2.Font = Check2.Italic
    2.   Label2.Italic = Check2.Style
    3.   Label2.Forestyle = Check2.Italic
    4.   Label2.FontItalic = Check2.Value
35. Private Sub Command1_Click()
    If Val(Text1.Text) >= 75 Then
    Text2.Text = "A"
    ElseIf Val(Text1.Text) >= 65 Then
    Text2.Text = "B"
    If Val(Text1.Text) >= 55 Then
    Text2.Text = "C"
    Else
    Text2.Text = "E"
    {...........................}
    End Sub
    
    Pada koding di atas terdapat perintah yang hilang di dalam {...............}. Perintah tersebut ialah ....
    1.   End
    2.   EndIf
    3.   EndElse
    4.   EndSub
36. Private Sub Option_Click()
    Text4.Text = Val(Text3.Text) * Val(Text2.Text)
    Text5.Text = 0.1 * Val(Text4.Text)
    Text6.Text = Val(Text4.Text) * Val(Text5.Text)
    End Sub
    ------------------------------------------------------------------------------------------------------------------
    Private Sub Otion2_Click()
    Text4.Text = Val(Text3.Text) * Val(Text2.Text)
    Text5.Text = {....$....} * Val(Text2.Text)
    Text6.Text = Val(Text4.Text)
    End Sub
    
    Pada Procedure Private Sub Option2_Click() dalam koding di atas, total bayar sama dengan ....
    1.   Diskon
    2.   Jumlah Barang
    3.   Bayar
    4.   Semua salah
37. Private Sub Option_Click()
    Text4.Text = Val(Text3.Text) * Val(Text2.Text)
    Text5.Text = 0.1 * Val(Text4.Text)
    Text6.Text = Val(Text4.Text) * Val(Text5.Text)
    End Sub
    ------------------------------------------------------------------------------------------------------------------
    Private Sub Option2_Click()
    Text4.Text = Val(Text3.Text) * Val(Text2.Text)
    Text5.Text = {....$....} * Val(Text2.Text)
    Text6.Text = Val(Text4.Text)
    End Sub
    
    Perhatikan koding di atas. Nilai di dalam kurung kurawal {...$...} tersebut adalah ....
    1.   100
    2.   10
    3.   5
    4.   0
38. Private Sub Option_Click()
    Text4.Text = Val(Text3.Text) * Val(Text2.Text)
    Text5.Text = 0.1 * Val(Text4.Text)
    Text6.Text = Val(Text4.Text) * Val(Text5.Text)
    End Sub
    ------------------------------------------------------------------------------------------------------------------
    Private Sub Otion2_Click()
    Text4.Text = Val(Text3.Text) * Val(Text2.Text)
    Text5.Text = {....$....} * Val(Text2.Text)
    Text6.Text = Val(Text4.Text)
    End Sub
    
    Pada Procedure Private Sub Option1_Click() dalam koding di atas, total bayar didapat dari ....
    1.   Diskon+Bayar
    2.   Bayar-Diskon
    3.   Jumlah barang-Bayar
    4.   jumlah barang*Diskon
39. Private Sub Option_Click()
    Text4.Text = Val(Text3.Text) * Val(Text2.Text)
    Text5.Text = 0.1 * Val(Text4.Text)
    Text6.Text = Val(Text4.Text) * Val(Text5.Text)
    End Sub
    ------------------------------------------------------------------------------------------------------------------
    Private Sub Otion2_Click()
    Text4.Text = Val(Text3.Text) * Val(Text2.Text)
    Text5.Text = {....$....} * Val(Text2.Text)
    Text6.Text = Val(Text4.Text)
    End Sub
    
    Pada koding di atas, diskon yang diberikan sebesar ....
    1.   0%
    2.   1%
    3.   10%
    4.   11%
40. Untuk menjumlahkan 2 buah teks dengan data berupa angka, misalkan 1+2 dan hasilnya ditampilkan pada label 1, yaitu 3, maka pernyataan berikut yang benar adalah ....
    1.   label1.caption=text1.text+text2.text
    2.   label1.text=text1.text+text2.text
    3.   label1.caption=cint(text1.text)+(text2.text)
    4.   text1.text=text2.text+label1.caption
41. FOR i - 1 ...(1)... 5
    i = i + 1
    ...(2)...
    
    Perintah (2) seharusnya adalah ....
    1.   NEXT
    2.   ELSE
    3.   THEN
    4.   TO
42. FOR i - 1 ...(1)... 5
    i = i + 1
    ...(2)...
    
    Perintah (1) seharusnya adalah ....
    1.   NEXT
    2.   THEN
    3.   TO
    4.   ELSE
43. IF Text1.Text = 1 ...(1)...
    Text1.Text = " "
    ...(2)...
    Text1.Text = 2
    END IF
    
    Perintah (2) yang seharusnya adalah ....
    1.   ELSE
    2.   THEN
    3.   CASE
    4.   SELECT
44. IF Text1.Text = 1 ...(1)...
    Text1.Text = " "
    ...(2)...
    Text1.Text = 2
    END IF
    
    Perintah (1) yang seharusnya adalah ....
    1.   ELSE
    2.   THEN
    3.   CASE
    4.   SELECT
45. Suatu kejadian yang dapat dialami oleh sebuah object disebut ....
    1.   event
    2.   tool
    3.   object
    4.   method
46. Pada saat pertama kali membuka Visual Basic, pilihan tipe project yang kita gunakan adalah ....
    1.   VB.EXE
    2.   ActiveX.EXE
    3.   Standard.EXE
    4.   Project.EXE
47. Dalam koding Visual Basic, perintah untuk menampilkan sebuah pesan adalah ....
    1.   Message
    2.   MsgBox
    3.   Display
    4.   Msg
48. Untuk mendeklarasikan sebuah variabel digunakan sintaks ....
    1.   Declare
    2.   Dim
    3.   Var
    4.   Value
49. Untuk menambahkan sebuah data ke dalam List Box digunakan perintah ....
    1.   Plus
    2.   Add
    3.   AddItem
    4.   PlusItem
50. Private Sub Check1_Click()
    If Check1...(?).. = 1 Then
    Text4.Text = 50000
    Text6.Text = "Ganti Oli+Bersih Kaburator+Ganti Rem+Cuci Motor"
    Else
    Text4.Text = 0
    text6.text=""
    End If
    End Sub
    
    
    Di bawah ini yang paling tepat untuk mengisi titik-titik (?) adalah ....
    1.   Click
    2.   Load
    3.   Enabled
    4.   Value