Latihan Soal BAB 1 SEMESTER 2

1. E

2. A

3. A

4. E

5. A

6. C

7. C

8. E

9. B

10. B

11. C

12. C

13. A

14. A

15. A

16. C

17. C

18. A

19. A

20. B

Isilah titik – titik dengan benar

1. Operating System

2. Internal Command dan external command

3. Make Directory atau membuat direktory

4. Partisi Harddisk

5. menjalankan program.

6. membuat jalur memory yang disebut track dan sector untuk menyimpan data..

7. Baris atau Status.

8. Cascading Menu

9. Program – program

10. tempat untuk menyimpan file.

Jawablah pertanyaan berikut dengan benar !

1. Jawab : pengaturan dalam mengelola dokumen – dokumen yang ada pada computer.

2. Jawab : File merupakan hasil kerja dokumentasi digital computer yang merupakan representasi non fisik data.

3. Jawab : Folder adalah wadah atau tempat untuk menyimpan data

4. Jawab : File merupakan hasil kerja dokumentasi digital computer yang merupakan representasi non fisik data.

5. Jawab :

Memformat disket dengan windows eksplorer klik kanan pilih format, pilih option quick format, tunggu sampai proses selesai, klik close

Buat anak2 Akselerasi kelas X ini contoh soal semester 2

Pilih salah satu jawaban yang paling tepat !

1. Perhatikan penggalan program berikut

X:=1;Y:=1;

While X<=3 do

Begin

Writeln(y);

Y:=2*y;

X:=x+1;

End;

Nilai y adalah…….

1. 1,2,3
2. 1,2,4
3. 3,2,1
4. 2,4,8
5. 1,3,2
6. Perhatikan penggalan program berikut

Begin

Y:=1;Jml:=0;

While Y<=3 do

Begin

Writeln(‘Nilai Tugas  ke ‘,Y);

Readln(y);                 (A)

Jml:=Jml+T;

Rata:=Jml/Y;

t:=t+1;                       (B)

End;

Perintah yang benar untuk (A) dan (B) adalah……

1. (A) →Y:=Y+1 ; (B) →Y:=T+1;
2. (A) →READLN(T); (B) →T:=T+Y;
3. (A) →READLN(JML) ; (B) →Y:=Y+1;
4. (A) →READLN(T) ; (B) →Y:=Y+1;
5. (A) →READLN(T) ; (B) →JML:=JML+1;
6. Perhatikan penggalan program berikut

T:=0;V0:=50; a:=10;

While t<=100 do

begin

S:=V0*t+0.5*a*t*t;

Writeln(t,Vo);

T:=t+5;

End;

Type data yang sesuai untuk S,V0,t dan a adalah…………

1. S:real;    V0,t,a:integer;
2. S:integer;    V0,t,a:real;
3. S,V0,t,a:real;
4. S,V0,t,a:integer;
5. S:string; V0,t:real; a:integer;
6. Perhatikan penggalan program berikut

X:=0;

Repeat

Writeln(‘SMA NEGERI 1 SURAKARTA’);

X:=X+5;

Until ……….;

Kondisi yang tepat untuk until jika ingin menampilkan kalimat tersebut 3 kali …

1. X<=10;
2. X<10;
3. X>=10;
4. X>0
5. X>=0
6. Perhatikan penggalan program berikut

X:= 0.00;

While x<=5.00  do

Begin

Writeln(x:5:2);

X:=X+0.25;

End;

Writeln(x:5:2);

Running program tersebut adalah..

1. 5.00
2. 0.00, 0.25,0.50 …, 5.00
3. X,X,X,X,X
4. 0.25, 5.00
5. 0.00
6. Perhatikan penggalan program berikut

X:=1;Y:=1;

While X<=3 do

Begin

Y:=2*x-1;

X:=x+1;

End;

Writeln(x,y);

Running program tersebut adalah….

1. 1,2,3
2. 3     5
3. 1     3    2     5     3    7
4. 1     1    2     3     3    5
5. 1    3     5
6. Perhatikan penggalan program berikut

Perintah Yang  menunjukkan pengulangan sebanyak 3 kali..

1. While x<=3  do
2. For x:=1 to 3 Do;
3. While X := 1 to 3 do
4. For X:=1 to x:=3 Do
5. Repeat x until x=3
6. Perhatikan penggalan program berikut

For X:= 10 downto 1 do

Writeln(‘X’);

Running program tersebut…

1. 1,2,3,4,5,6,7,8,9,10
2. 10,9,8,7,6,5,4,3,2,1
3. ‘X’ sebanyak 10 kali
4. ‘X’ sebanyak 1 kali
5. error
6. Perhatikan penggalan program berikut

Vo:=50;a:=5;t:=0;

While t<=15 Do

Begin

S := Vo*t+0.5*a*t*t;

Writeln(t:4,’   ‘,S:8:2);

T:=t+a;

End;

Nilai t dari program tersebut….

1. 0,5,10,15
2. 0,1,2,3,4,5,…,15
3. 5,6,7,…,15
4. 5,10,15
5. Tidak ada jawaban

10.  Perhatikan penggalan program berikut

x:=1;

While x<=10 do

Begin

Harga:=1000*x;

Writeln(…{A}:5:0,…{B}:8:2);

x:=x+1;

End;

Titik – titik {A} dan {B} pada program  adalah..

1. {A} diisi X ; {B} diisi B
2. {A} diisi X ; {B} diisi HARGA
3. {A} diisi harga ; {B} diisi   X*HARGA
4. {A} diisi X ; {B} diisi Y
5. {A} diisi X ; {B} diisi X+1

11.  Yang termasuk ke dalam bahasa pemrograman tingkat rendah adalah….

1. Visual Basic
2. Basic
3. Cobol
4. Fortran
5. RPG
6. Dibawah ini yang bukan kegiatan manajemen file adalah…..
   1. Membuat folder
   2. Mengganti nama file
   3. Membuat short cut
   4. Mengcopy File
   5. Mengetik surat
   6. Setiap software memiliki identitas masing-masing dalam pemberian nama file. Identitas ini dapat dikenal melalui…
      1. Nama file
      2. Ekstensi file
      3. Panjang file
      4. Ukuran file
      5. Bentuk file
      6. Perintah klik kanan pada aplikasi digunakan sebagai jalan pintas dalam memanggil menu tertentu yang disebut menu….
         1. Pull – down
         2. Menu bar
         3. Toolbar
         4. Shortcut
         5. On – off menu
         6. Dibawah ini yang dapat dilakukan oleh drag and drop adalah….
            1. Memindahkan file pada direktori yang sama
            2. Memindahkan folder pada direktori yang sama
            3. Memindahkan file pada direktori yang berbeda
            4. Mengcopy file pada direktori yang sama
            5. Mengcopy folder pada direktori yang sama
            6. Apabila tiba – tiba komputer mengalami Hang, maka dilakukan penekanan tombol Ctrl+ALT+Del perintah tersebut….
               1. Cold Booting
               2. Warm Booting
               3. BIOS
               4. DOS
               5. Operating System
               6. Untuk menampilkan toolbar drawing, langkahnya…
                  1. View, Drawing, Toolbar
                  2. View, Toolbar, Drawing
                  3. Insert, Toolbar, Drawing
                  4. File, Open, Drawing

e.View, Open, Drawing

1. Yang termasuk Input Device adalah….
   1. Keyboard, Monitor, Harddisk
   2. Keyboard, Speaker, Monitor
   3. Keyboard, Mouse, Scaner
   4. Keyboard, Mouse, Printer
   5. Keyboard, Monitor, CPU
   6. Yang dimaksud etika adalah….
      1. Semua yang bermakna
      2. Aturan yang harus dipatuhi
   7. Undang – Undang yang harus dipatuhi
      1. Ilmu tentang ajaran moral
      2. Tata Krama
      3. Tools berfungsi untuk….
         1. Memformat ketebalan huruf
         2. Memformat jenis huruf
         3. Memformat ukuran huruf
         4. Memformat warna huruf
         5. Memformat garis bawah huruf
         6. Macam – macam jaringan adalah sebagai berikut…
            1. LAN, MAN, WAN
            2. Client-Server, peer to peer
            3. STAR, RING, MESH
            4. Jaringan Kabel, dan Wireless
            5. Topologi dan UTP
            6. Jaringan yang menghubungkan antara satu kota dengan kota lain dalam satu propinsi dinamakan………….
               1. LAN
               2. WAN
               3. MAN
               4. Interconnection town
               5. Global network
               6. Berikut ini yang bukan merupakan teknologi nirkabel adalah…
                  1. Pengiriman gelombang TV
                  2. Pengiriman gelombang HiFi
                  3. RADAR
                  4. TV Kabel
                  5. Bluetooth
                  6. Dibawah ini merupakan media informasi dan komunikasi, kecuali….
                     1. Udara
                     2. Kabel Thick Koaksial
                     3. Kabel Thin Koaksial
                     4. Serat Optik
                     5. Gelombang elektromagnetik
                     6. Berikut ini adalah software media komunikasi dalam jaringan yaitu…
                        1. Paint Brush
                        2. NetMeeting
                        3. Ms. Excel
                        4. MS. Word
                        5. Notepad
                        6. Perintah untuk membuat tabel yang benar adalah…
                           1. Insert Merge Field
                           2. Insert Table
                           3. Table Insert Table
                           4. Table Insert Row
                           5. Insert Entire Table
                           6. Perintah Insert Merge Field pada Mail Merge adalah….
                              1. Memasukkan Field ke Menu Utama
                              2. Memasukkan Field ke dalam DataBase
                              3. Menggabung Field data ke dalam Main Document
                              4. Menggabung Access pada Word
                              5. Menggabung Data pada Surat
                              6. Perangkat keras yang dipergunakan untuk internet dial up adalah ….
                                 1. Antena dan tower
                                 2. Line Telepon dan TV Kabel
                                 3. Antena Waveland
                                 4. Modem dan antena
   8. Modem dan TV Kabel

Jawablah pertanyaan berikut dengan benar !

1. Buat program Untuk membuat deret 1,3,5,7,….19!
2. Jelaskan apa fungsi dari Equation!
3. Buat program sederhana dengan menggunakan looping (perulangan)!
4. Jelaskan apa yang dimaksud dengan folder?
5. Jelaskan apa yang dimaksud dengan File ?

Berikut ini daftar siswa yang belum memenuhi KKM (Nomor yang disebutkan disini adalah nomor absen)

Kelas X – 1 : -

Kelas X-2 : 12, 13, 14, 21, 22, 24, 32

Kelas X-3 : 8, 18

Kelas X-4 : 5, 8, 19, 24, 28, 29

Kelas X-5 : -

Kelas X-6 : 11

Kelas X-7 : -

Kelas X-8 : 2, 18, 19

Kelas X-9 : 28

Materi Remidi : Bahasa Pemrograman Pascal (Kerjakan kembali soal pilihan ganda no 1 – 30) jawaban dikirim via email emi_budi@yahoo.co.id

Bagi anak - anak peserta Pelatihan Olimpiade Komputer coba soal - soal berikut ini :

Deskripsi untuk pertanyaan 1-2

 

Deret bilangan Fibonacci didefisikan secara rekursif sbb.

f1 = 1

f2 = 1

fn = fn-1 + fn-2 untuk semua n > 2

 

1. Berapa banyak kah bilangan Fibonacci antara 10 sampai dengan 100?

 

(A) 90

(B) 9

(C) 5

(D) 10

(E) 12

 

2. Dengan mengambil satu harga n kemudian anda menjumlahkan bilangan-bilangan tsb mulai dari f1 s.d. fn maka berapakah n terkecil agar jumlah itu > 150?

 

(A) 9

(B) 10

(C) 11

(D) 15

(E) 20

 

Deskripsi Pertanyaan 3-4

 

Di suatu negri antah berantah alat tukar yang digunakan hanya mata uang dengan empat pecahan saja: satu Gordi, satu Gorde yang sama dengan 17 Gordi, satu Gordo yang sama dengan 57 Gordi, dan satu Goram yang sama dengan 115 Gordi.

 

3. Gogolan berjualan snack dan ada seorang pembeli yang hendak membayar 3 potong snack yang dibelinya. Snack-snack tsb masing-masing berharga (dinyatakan sebagai (Gordo, Gorde, Gordi)): (4, 12, 10), (8, 21, 12), (1, 19, 11). Uang yang diserahkan adalah 20 Goram. Berapakah kembalian yang benar?

 

(A)  11 Gordo dan 17 Gordi

(B)  10 Gordo, 3 Gorde dan 21 Gordi

(C)  9 Gordo, 4 Gorde dan 44 Gordi

(D)  8 Gordo, 14 Gorde dan 5 Gordi

(E)  11 Gordo, 1 Gorde dan 1 Gordi

 

4. Seorang kolektor mata uang dari negri lain sangat menyukai Gorde tetapi  membenci Gordi. Baginya setiap Gordi bernilai 2 kali negatif dari nilai Gorde (1 Gordi = -2 Gorde), sementara Gordo dan Goram dilarang untuk dibawa ke luar negeri tsb jadi tidak akan ia koleksi. Ketika ia menukarkan uang di bank, pilihlah jumlah Goram yang ia akan tukarkan untuk mendapatkan total nilai sebesar mungkin baginya.

 

(A)    6

(B)    7

(C)    8

(D)    9

(E)    10

 

 

 

Deskripsi untuk pertanyaan 5-9

Suatu pesan akan saya distribusikan ke orang-orang bernama A, B, C, D, E, F, G, H, dan I melalui pesan singkat (SMS) secara berantai. Mereka mengetahui beberapa nomor telp yang lain sbb.

A hanya mengetahui nomor-nomor telp F, G;

B hanya mengetahui nomor-nomor telp C, E, H;

C hanya mengetahui nomor telp A;

D hanya mengetahui nomor-nomor telp E, I;

E hanya mengetahui nomor telp H;

F hanya mengetahui nomor-nomor telp B, E;

H hanya mengetahui nomor-nomor telp I, C;

G hanya mengetahui nomor telp F;

I hanya mengetahui nomor-nomor telp A, B;

 

Karena teknologi komunikasi masih terbatas maka saat menerima SMS mereka tidak mengetahui siapa dan apa nomor telp pengirimnya. Diasumsikan bahwa begitu mereka menerima SMS, maka dalam jeda tepat 5 menit SMS akan diteruskan secara serentak ke orang-orang yang mereka ketahui nomor teleponnya dan SMS yang dikirim tsb langsung diterima tanpa ada jeda. Dipastikan bahwa mereka tidak akan mengirim SMS yang sama ke orang yang sama lebih dari satu kali.

 

 

 

5.  Siapakah orang yang akan saya kirimi SMS agar dengan hanya dengan satu kali saja maka selanjutnya berita tsb akan sampai ke setiap orang?

 

(A)    A

(B)    E

(C)    D

(D)    F

(E)    G

 

6.    Jika orang yang pertama saya kirimi SMS adalah G maka siapakah yang akan menerima SMS tsb paling banyak akhirnya?

 

(A)    A

(B)    E

(C)    D

(D)    F

(E)    G

 

7.    Jika orang yang pertama saya kirimi SMS adalah A dan, maka berapa menit lagi A akan menerima SMS selanjutnya?

 

(A)    10 menit

(B)    15 menit

(C)    20 menit

(D)    25 menit

(E)    30 menit

 

8.    Jika orang yang pertama saya kirimi SMS adalah A maka berapa menit lagi A akan menerima SMS dari I?

 

(A)    10 menit

(B)    15 menit

(C)    20 menit

(D)    25 menit

(E)    30 menit

 

9.    Jika orang yang pertama saya kirimi SMS adalah A maka siapa saja yang sudah menerima SMS tepat setelah menit ke 15?

 

(A)    Semua

(B)    Semua kecuali D dan I

(C)    Semua kecuali C, D dan I

(D)    Hanya A, G, F, E, B

(E)    Semua kecuali C, D, G

 

10. Berapakah Nilai A,B,C?

 

 

 

Deskripsi untuk pertanyaan 11 – 13

 

TWO

TWO	+

FOUR

 

 

T,W,O,F,U, dan R masing-masing mewakili satu digit integer (bilangan bulat) positif; dan dan masing-masing mewakili bilangan yang berbeda. F dan T tidak sama dengan 0.

 

 

11. Jika diketahui O = 4, maka berapakah T x W x O ?

 

(A)    84

(B)    210

(C)    48

(D)    734

(E)    0

 

12. Jika diketahui R = 4, maka berapakah F + O + U + T ?

 

(A)    9

(B)    16

(C)    18

(D)    20

(E)    22

 

13. Berapakah hasil dari :

(1000 x F) + (100 x O) + (10 x U) + R

(100 x T) + (10 x W) + 0

 

(A)    10

(B)    8

(C)    2

(D)    6

(E)    4

 

 

 

 

 

 

1. Bagaimana keluaran program di bawah ini?

 

Var I:integer;

Begin

I:=2;

Case I of

1,3,5,7,9:writeln(‘Ganjil’);

2:writeln(‘Prima genap’);

0..10:writeln(‘Normal’);

else writeln(‘Tidak normal’);

end;

end;

 

a. Prima genap

b. Normal

c. Prima genap

Normal

d. Normal

Prima genap

e. Prima genap

Tidak normal

Untuk SOAL no 2 – 4, Perhatikan penggalan program berikut ;

d:=sqr(b)-4*a*c;

if d<0 then

writeln(‘x1 dan x2 adalah bilangan imaginer’)

else

begin

x1:=(-b-sqrt(d))/(2*a);

writeln(x1:5:2);

x1:=(-b+sqrt(d))/(2*a);

writeln(x2:5:2);

end;

2. Type data yang sesuai untuk program diatas adalah…..

 

a. D : real; a,b,c:integer; sqrt:real

b. A,B,C,D : real;

c. A,B,C,X1,X2 :real;

d. A,B,C : Integer; D,X1,X2:real;

e. A,B,C,D : Integer;

 

3. Berdasarkan Program diatas, Variabel input adalah….

 

a. A,B,C,D

b. A,B,C

c. X1,X2

d. A,B,C,D,X1,X2

e. A,B,C,X1,X2

 

4. Berdasarkan program diatas, Variabel output adalah….

 

a. A,B,C,D

b. A,B,C

c. X1,X2

d. A,B,C,D,X1,X2

e. A,B,C,X1,X2

 

5. Perhatikan Penggalan Program berikut…

 

Program kali;

Var A,B,C : Byte;

Begin

A:=20;

B:=20;

C:=A*B;

Writeln(C);

 

Output program tersebut…

a. 400

b. C

c. 0

d. -400

e. 144

 

6. Perintah IF yang benar adalah…

 

a. IF (jenis=L) then

Kalori “=berat*9

Else

Kalori:=berat*8;

b. IF (jenis=’L’) ten

Kalori := berat*9

Else

Kalori := berat*8;

c. IF jenis:=L then

Writeln(kalori:=berat*9);

Else

Writeln(kaori:=berat*8);

d. IF (jenis=’L’) then

Writeln(kalori)

Else

Writeln(kalori);

e. IF (jenis=’L’) then

Writeln(‘berat*9’)

Else

Writeln(‘berat*8);

 

 

7. Kelebihan media nirkabel adalah….

 

a. Mobilitas tinggi, efektif, Keamanan terjamin

b. Mobilitas tinggi, efektif, efisien

c. Efektif, Efisien, Terjaga kerahasiaannya

d. Mudah di ubah setting konfigurasinya, Banyak

sumber inferensi yang masuk

e. Bukan salah satu diatas.

 

8. Yang dimaksud dengan konektor adalah

 

a. Penghubung antara kartu jaringan dengan

computer lain dalam LAN

b. Penterjemah Sistem operasi jaringan ke dalam

komunikasi data

c. Penyambung antar dua atau lebih computer dalam LAN

d. Penghubung kabel agar dapat masuk ke port CPU

e. Penghubung antar jaringan dalam LAN

 

9. Suatu perangkat yang membagi satu buah

jaringankedalam dua buah jaringan ………….

a. Bridge

b. Hub Konsentrator

c. Router

d. Repeater

e. Server

 

10. Topologi jaringan yang mempunyai satu computer

sebagai sentral adalah……………..

a. Mesh

b. Star

c. Bus

d. Tree

e. Ring

 

 

 

 

PROGRAM SOAL1;

USES CRT;

VAR BILANGAN: INTEGER;

KETERANGAN: STRING;

BEGIN

CLRSCR;

WRITE('MASUKAN BILANGAN = ');

READLN(BILANGAN);

IF

(BILANGAN<0) THEN

KETERANGAN:= 'BILANANGAN NEGATIF'

ELSE

IF(BILANGAN>0) THEN KETERANGAN:='BILANGAN POSITIF'

ELSE KETERANGAN:='BILANGAN NOL';

WRITELN('KETERANGAN    = ',KETERANGAN);

READLN;

END.


PROGRAM SOAL2;

USES CRT;

VAR BILANGAN:INTEGER;

KETERANGAN:STRING;

BEGIN

CLRSCR;

WRITE('MASUKAN BILANGAN  = ');

READLN(BILANGAN);

IF(BILANGAN MOD 2=0) THEN 

KETERANGAN:='BILANGAN GENAP'
 ELSE
KETERANGAN:='BILANGAN GANJIL';

WRITELN('KETERANGAN = ',BILANGAN,' ADALAH ',KETERANGAN);

READLN;
END.

PROGRAM SOAL3;

USES CRT;

VAR NAMA,JENISKELAMIN:STRING;

BERATBADAN,JUMLAHKALORI:INTEGER;

BEGIN

CLRSCR;

WRITE('MASUKAN NAMA                  : ');

READLN(NAMA);

WRITE('JENIS KELAMIN [PRIA]/[WANITA] : ');

READLN(JENISKELAMIN);

WRITE('MASUKAN BERATBADAN            : ');

READLN(BERATBADAN);

IF(JENISKELAMIN='PRIA') THEN

JUMLAHKALORI:= 9*BERATBADAN

ELSE

JUMLAHKALORI:= 8*BERATBADAN;

WRITELN('JUMLAHKALORI               :',JUMLAHKALORI);

READLN;

END.

PROGRAM SOAL5;

USES CRT;

VAR NILAI:INTEGER;

IP:CHAR;

BEGIN

CLRSCR;

WRITE('NILAI : ');

READLN(NILAI);

IF

(NILAI>=90) THEN

IP:='A' ELSE

IF

(NILAI>=75) THEN

IP:='B' ELSE

IF

(NILAI>=65) THEN

IP:='C' ELSE

IF

(NILAI>=60) THEN

IP:='D' ELSE

IP:='E';

WRITE('IP= ',IP);

READLN;

END.

 

 

PROGRAM SOAL6;

USES CRT;

VAR A,B,C,D,X1,X2:REAL;

BEGIN

WRITE('MASUKAN A : ');

READLN(A);

WRITE('MASUKAN B : ');

READLN(B);

WRITE('MASUKAN C : ');

READLN(C);

D:=B*B-4*A*C;

WRITELN('NILAI D :',D:3:0);

WRITELN;

IF (D<0) THEN

BEGIN

WRITELN('AKAR - AKAR BILANGAN KOMPLEKS');

X1:=-B/(2*A);

D:=SQRT(-D)/(2*A);

WRITELN('X1=',X1:3:0,' + ',D:3:0,'i');

WRITELN('X2=',X1:3:0,' + ',D:3:0,'i');

END

ELSE IF (D=0) THEN

BEGIN

WRITELN('AKAR - AKARNYA KEMBAR ');

X1:=(-B/(2*A));

WRITELN('X1=X2=',X1:3:0);

END

ELSE

BEGIN

WRITELN('AKAR - AKARNYA BILANGAN REAL ');

X1:=(-B+SQRT(D))/(2*A);

WRITELN('X1=',X1:5:2);

X2:=( -B-SQRT(D))/(2*A);

WRITELN('X2= ',X2:5:2);

END;

READLN;

END.

PROGRAM SOAL7;

USES CRT;

VAR BARANG: INTEGER;

TOTAL, HARGAPERBARANG: LONGINT;

BEGIN

CLRSCR;

WRITE('BERAPA JUMLAH BARANG YANG DIBELI = ');

READLN(BARANG);

IF

(BARANG<100) THEN

HARGAPERBARANG:=10000 ELSE

IF

(BARANG<150) THEN

HARGAPERBARANG:=9500 ELSE

HARGAPERBARANG:=9000 ;

TOTAL:=HARGAPERBARANG*BARANG;

WRITE('TOTAL YANG HARUS DIBAYAR : ',TOTAL);

READLN;

END.

PROGRAM SOAL8;

USES CRT;

VAR NILAIKURIKULER,MATEMATIKA,FISIKA,BIOLOGI,EKONOMI,KIMIA:REAL;

NILAIEKSTRAKULIKULER,PRAMUKA,PMR,RATARATA:REAL;

PREDIKAT:STRING;

BEGIN

CLRSCR;

WRITELN('MEMASUKKAN NILAI KURIKULER');

WRITE('MASUKAN NILAI MATEMATIKA : ');

READLN(MATEMATIKA);

WRITE('MASUKAN NILAI FISIKA     : ');

READLN(FISIKA);

WRITE('MASUKAN NILAI BIOLOGI    : ');

READLN(BIOLOGI);

WRITE('MASUKAN NILAI EKONOMI    : ');

READLN(EKONOMI);

WRITE('MASUKAN NILAI KIMIA      : ');

READLN(KIMIA);

NILAIKURIKULER:=(MATEMATIKA+FISIKA+BIOLOGI+EKONOMI+KIMIA)/5;

WRITELN('NILAI RATA-RATA KURIKULER        : ',NILAIKURIKULER:4:0);

WRITELN;

WRITELN('MEMASUKKAN NILAI EKSTRA KURIKULER');

WRITE('MASUKAN NILAI PRAMUKA    : ');

READLN(PRAMUKA);

WRITE('MASUKAN NILAI PMR        : ');

READLN(PMR);

NILAIEKSTRAKULIKULER:=(PRAMUKA+PMR)/2;

WRITE('NILAI RATA-RATA EKSTRA KURIKULER   : ',NILAIEKSTRAKULIKULER:4:0);

WRITELN;

RATARATA:=(60/100*NILAIKURIKULER)+(NILAIEKSTRAKULIKULER*40/100);

IF

(RATARATA>=80) THEN

PREDIKAT:= 'SANGAT BAGUS' ELSE

IF

(RATARATA>=60) THEN

PREDIKAT:= 'BAGUS' ELSE

IF

(RATARATA>=40) THEN

PREDIKAT:= 'CUKUP BAGUS' ELSE

IF

(RATARATA>=20) THEN

PREDIKAT:= 'KURANG' ELSE

PREDIKAT:= 'SANGAT KURANG';

WRITELN('NILAI KURIKULER        = ',NILAIKURIKULER:5:0);

WRITELN('NILAI EKSTRA KURIKULER = ',NILAIEKSTRAKULIKULER:5:0);

WRITELN('INDEKS PRESTASI        = ',RATARATA:5:0);

WRITELN('PREDIKAT               = ',PREDIKAT);

READLN;

END.

 

Ujian Semester 1

MEMAHAMI KETENTUAN PENGGUNAAN TEKNOLOGI INFORMASI DAN KOMUNIKASI

Bab 2 (Dasar Kerja Teknologi Informasi dan Komunikasi)

Pembahasan LKS Bab 1 Tentang Operasi Dasar Komputer :