ALIGN="CENTER"
"CENTER"
4. Untuk a. b. c. d. e.
mengatur paragraph, rata tengah :
ALIGN="CENTER"
"CENTER"
5. Yang dapat digunakan untuk link antara lain : a. teks, tag b. teks, gambar c. tombol, tag d. obyek, target e. target, gambar 6. Untuk mengakhiri sebuah baris dari isi dokumen tanpa memulai sebuah paragraph baru digunakan tag : a.
d.
c.
d. b.
c. d.
b. c. d. e.
REPEAT dan diakhiri dengan kata tercadang UNTIL. FOR dan diakhiri dengan kata tercadang DO. IF dan diakhiri dengan kata tercadang THEN. CASE dan diakhiri dengan kata tercadang OF.
10. Hasil dari program berikut ini adalah : begin writeln('Belajar Program Pascal'); end. a. b. c. d. e.
tidak ada hasil program tak berjalan terjadi Error kode 36 terjadi Error kode 12 Belajar Program Pascal
11. Setiap akhir pernyataan dalam bahasa pascal selalu diakhiri dengan tanda : a. titik koma ( ; ) b. titik dua ( : ) c. titik saja ( . ) d. petik tunggal ( ' ) e. petik ganda ( " ) 12. Untuk menjalankan dan melihat hasil program pascal digunakan tombol : a. Alt + R b. Ctrl + R c. Run d. Alt + F9 e. Ctrl + F9 13. Cara penulisan judul program yang benar adalah : a. Program Membuat Tabel Harga; b. Program membuat tabel harga; c. Program_Membuat_Tabel_Harga; d. Program MembuatTabelHarga; e. Program Membuat_Tabel_Harga. 14. Program yang benar adalah : a. begin writeln('Belajar Program Pascal'); readln; end; b. begin writeln('Belajar Program Pascal'); readln; end. c. begin writeln("Belajar Program Pascal"); readln; end. d. begin; writeln('Belajar Program Pascal'); readln; end; e. begin; writeln('Belajar Program Pascal'); readln; end; 15. uses DOS; begin clrscr; write('SMU Sewon is the best'); readln; end. Program diatas tidak dapat berjalan (error) karena : a. menggunakan READLN; b. kurang Uses CRT; c. kurang Uses GRAPH; d. seharusnya ("SMU Sewon is the best"); e. begin kurang tanda titik koma ( ; ) 16. Beberapa Unit yang telah disediakan Turbo Pascal antara lain : a. CRT, DOS, GRAPH, SYSTEM b. FILE, EDIT, RUN, COMPILE c. clrscr, begin, end, readln d. repeat-until, for-to-do, while-do e. run, error, succses, compile 17. Untuk menghapus layar dalam mode teks, digunakan :
a. b. c. d. e.
AssignCrt NormVideo ClrEol NoSound ClrScr
18. Untuk merubah warna huruf dalam mode teks, digunakan : a. Color b. TextBackGround c. TextColor d. FontColor e. TextMode 19. 1,2546E+04 digunakan pascal untuk menyatakan bilangan ... dalam format real. a. 12546 b. 1,2546 c. 12,546 d. 125,46 e. 1254,6 20. var a,c : integer; b : real; begin a := 12.0; b := 6; c := a * b; write(c:8:2); end. Hasil dari program diatas adalah : a. 2 b. 4 c. 72 d. 720 e. program tak berjalan 21. var a, b : integer; c : real; begin a := 2; b := 4; c := a * b; write(c:8:3); end. Hasil dari program diatas adalah : a. 2 b. 4 c. 0,008 d. 8,000 e. program tak berjalan 22. var a, b, c : integer; begin a := 3; b := 7; c := b mod a; end. Variabel c bernilai : a. 0 b. 0,3333
c. 1 d. 2 e. 2,3333 23. uses crt; var a, b, c : integer; begin clrscr; a := 3; b := 7; c := b div a; write(c); end. Variabel c bernilai : a. 0 b. 0,3333 c. 1 d. 2 e. 2,3333 24. VAR n : integer; BEGIN n := 1; REPEAT write(n); n := n + 1; UNTIL n > 5; END. Hasil dari perulangan diatas adalah : a. 234 b. 1234 c. 12345 d. 2345 e. 123456 25. VAR n : integer; BEGIN n := 0; for n := 1 to 5 do write(n); END. Hasil dari perulangan diatas adalah : a. 00000 b. 01234 c. 012345 d. 12345 e. 012345 26. Uses crt; Var a : integer; Begin Clrscr; Write('masukkan nilai a = '); Readln(a);
While a > 5 Do Writeln('SMU Sewon'); End.
a. b. c. d. e.
Jika Jika Jika Jika Jika
a a a a a
adalah adalah adalah adalah adalah
1 5 5 6 7
maka maka maka maka maka
menulis menulis menulis menulis menulis
'SMU 'SMU 'SMU 'SMU 'SMU
Sewon' Sewon' Sewon' Sewon' Sewon'
1 kali 1 kali 5 kali 5 kali berkali-kali
27. Var Tekan : Char; Begin Repeat Write('Tekan tombol huruf keyboard ! '); ReadLn(Tekan); Case Tekan Of 'a'..'e' : writeln('Aduuh'); else writeln('Anda menekan ',Tekan); End Until Tekan = 'x'; End. Jika kita tekan tombol : a. a,b,c,d atau e akan tampil tulisan Aduuh b. a,b,c,d atau e akan tampil tulisan Aduuh dan program selesai c. a bersama-sama e akan tampil tulisan Aduuh d. tidak menampilkan apa-apa selain ditekan x e. jika ditekan x akan tampil tulisan Anda menekan x 28. Untuk membuat lingkaran dengan jari-jari 50 pixel, dengan pusat di koordinat X = 100 dan Y = 200 adalah : a. PutPixel(50,100,200); b. Pixel(50,100,200); c. Circle(50,100,200); d. Circle(100,200,50); e. Rectangle(100,200,50); 29. Untuk memindahkan pointer (kursor grafik) ke koordinat X,Y dalam mode grafik : a. SetPointer b. PointerXY c. SetXY d. MoveTo e. LineTo 30. LineTo(20,300); adalah perintah membuat garis : a. di koordinat 20,300 b. dari koordinat 20,300 c. lebar 20 pixel tinggi 300 pixel d. dari posisi pointer terakhir ke koordinat 20,300 e. dari sudut kiri atas ke koordinat 20,300. II. SOAL URAIAN 1. Buatlah program untuk menghitung Y dari persamaan Y = 2 X2 – 3X + 4, jika X bernilai dari 1 sampai dengan 3. 2. Buatlah program untuk membuat kotak (tanpa arsiran) berwarna merah dengan sudut kiri atas 200,200 panjang sisi 150 pixel dan lebarnya 75 pixel. Berilah tulisan nama Anda berwarna kuning. 3. Jelaskan kepanjangan/arti dari :
a. b. c. d.
HTML Browser Attributes DownLoad
e. f. g. h.
E-mail LAN Internet Hypertext
i. j. k. l.
Page Banner TCP HomePage WebSite
4. Jelaskan yang dimaksud dengan search engine dan berikan contohnya minimal 3. 5. Tuliskan beberapa software browser untuk mengkases situs-situs di internet, minimal 2 browser.
Sign In
Our partners will collect data and use cookies for ad personalization and measurement. Learn how we and our ad partner Google, collect and use data. Agree & close