Materi Dan Soal TIK SMA

1. SUM -- digunakan untuk menjumlahkan dalam range tertentu --SUM(range)--
contoh
jika kita ingin menjumlahkan data dalam A1 dan A5 maka kita gunakan rumus =sum(A1,A5) atau =sum(A1;A5)
jika kita ingin menjumlahkan data dalam A1 hingga A5 maka kita gunakan rumus =sum(A1:A5)
excel atau pada open office sama penggunaanya.

? kapan anda harus menggunakan (,) maka region option and language pada posisi English
? kapan anda harus menggunakan (;) maka region option and language pada posisi indonesia pada excel atau pada open office
? muncul "/Value" data yang dioperasikan mempunyai format yang beda(biasanya text dan number)
? muncul "####" sel yang disediakan tidak cukup atau kurang lebar
? muncul "false" terjadi kesalahan (biasanya pada penggunan " / ,/ . / ; / =)
jika kita ingin menjumlahkan data dalam A1 hingga A5 maka kita gunakan rumus =sum(A1:A5)
excel atau pada open office sama penggunaanya.

2. Average digunakan untuk mendapatkan rata-rata dalam range tertentu (penulisan rumus sama dengan perintah SUM)
contoh
jika kita ingin mendapatkan rata-rata data dalam A1 dan A5 maka kita gunakan rumus =average(A1,A5) atau =average(A1;A5)
jika kita ingin mendapatkan rata-rata data dalam A1 hingga A5 maka kita gunakan rumus =average(A1:A5)
excel atau pada open office sama penggunaanya.

3. Product digunakan untuk mendapatkan perkalian dalam range tertentu (penulisan rumus sama dengan perintah SUM)
contoh
jika kita ingin mendapatkan perkalian data dalam A1 dan A5 maka kita gunakan rumus =Product(A1,A5) atau =Product(A1;A5)
jika kita ingin mendapatkan perkalian data dalam A1 hingga A5 maka kita gunakan rumus =Product(A1:A5)
excel atau pada open office sama penggunaanya.

4. Count digunakan untuk mendapatkan jumlah data dalam range tertentu (penulisan rumus sama dengan perintah SUM)
contoh
jika kita ingin mendapatkan jumlah data dalam A1 hingga A5 maka kita gunakan rumus =count(A1:A5)
excel atau pada open office sama penggunaanya.
5. CountIF digunakan untuk mendapatkan jumlah data dalam range tertentu dengan dyarat tertentu
contoh
jika kita ingin mendapatkan jumlah data dengan inisial A dalam A1 hingga A15 maka kita gunakan rumus =countif(A1:A15,"A")
excel atau pada open office sama penggunaanya.

6. IF digunakan untuk mendapatkan suatu data/nilai dengan kondisi yang ditentukan
contoh :
seseorang akan tuntas jika nilainya>=80 jika kurang dari itu dia harus remidi
Nilai Pada sel A3 dan keterangan pada sel B3
B3=IF(A3>=80,"tuntas","remidi")

variasi penggunaan IF
a. IF(-A-,-B-,IF(-C-,-D-,-E-)) ditentukan lebih dari satu syarat A/C sebagai syarat dan B/D/E sebagai hasil
contoh :
seseorang akan dapat nilai
A 90-100
B 80-90
C 0-80
Nilai Pada sel A3 dan keterangan pada sel B3
B3=If(A3>=90,"A",if(A3>=80,"B"<"C"))

b.IF-And ditentukan oleh dua syarat yang sama atau lebih
=if(and(A,B),C,D) A/B sebagai syarat dan C/D sebagai hasil

Contoh
seseorang boleh ikut ujian jika BKS dan Komite sudah Lunas
A3 -- keterangan BKS
B3 -- Keterangan Komite
C3 -- Keterangan Boleh Ikut
C3=IF(AND(A3="LUNAS",B3="LUNAS"),"BOLEH IKUT","TIDAK BOLEH IKUT")

c. IF Or
=if(OR(A,B),C,D) A/B sebagai syarat dan C/D sebagai hasil

Contoh
seseorang boleh ikut MID jika BKS dan Komite sudah Lunas
A3 -- keterangan BKS
B3 -- Keterangan Komite
C3 -- Keterangan Boleh Ikut
C3=IF(OR(A3="LUNAS",B3="LUNAS"),"BOLEH IKUT","TIDAK BOLEH IKUT")

7. Vlookup(sel/bagian yang diuji,tabel penguji,nomer kolom)
atau
Hlookup(sel/bagian yang diuji,tabel penguji,nomer baris)

8. bagian dari sel-- bisa juga dikombinasikan dengan formula IF dan Variasi IF
a. Left-- beberapa data kiri =left(sel,jumlah data)
contoh A3 berisi GA-JK-E kita hanya butuh GA saja yang diletakan di sel B3 maka B3=left(A3,2)
a. MID-- beberapa data dari karakter tertentu =Mid(sel,nomer karakter,jumlah data)
contoh A3 berisi GA-JK-E kita hanya butuh JK saja yang diletakan di sel B3 maka B3=Mid(A3,4,2)
a. Right-- beberapa data kanan =Right(sel,jumlah data)
contoh A3 berisi GA-JK-E kita hanya butuh E saja yang diletakan di sel B3 maka B3=Right(A3,1)

perulangan while do dan repeat until

while do
program1
Uses wincrt;
Var i : Integer;
Begin
i := 0;
While < 5 do
Begin
Write (i+1);
End;
End.

Repeat – until
Program2
Uses wincrt;
Var
i : Integer;
Begin
i:=0;
Repeat
i:= i+1;
Writeln (i);
Until i=5;
End.



Perulangan While – Do tersarang
Perulangan While – Do tersarang (nested While - Do) merupakan perulangan While – Do yang satu di dalam perulangan While – Do yang lainnya.
Contoh :
Uses wincrt;
Var
a, b : Integer;
Begin
a:=1;
b:=1;
While a < 4 Do{ loop selama a masih lebih kecil dari 4 }
Begin
a := a+1;
While b < 3 Do{ loop selama b masih lebih kecil dari 3 }
Begin
Write (a:3,b:2);
b:=b+1;
End;
End;
Readln;
End.

Repeat – Until tersarang
Repeat – Until tersarang adalah suatu perulangan Repeat - Until yang satu berada didalam perulangan Repeat – Until yang lainnya.
Contoh :
uses wincrt;
Var
a,b,c : Real;
Begin
Writeln('========================================');
Writeln(' sisi A sisi B Sisi C ');
Writeln (' =======================================');
a:= 1;
Repeat { perulangan luar }
b := 0;
Repeat{ perulangan dalam }
c:=Sqrt (a*a+b*b);
Writeln (a:6:2, b:9:2, c:9:2);
b:=b+5;
Until b>25; { berhenti jika b lebih besar dari 5 untuk
perulangan dalam }
a:=a+1;
Until a>3; { berhenti jika a lebih besar dari 3 untuk
perulangan luar }
Writeln(' =======================================');
End.

Praktikum 5
Program1

Uses wincrt;
Var
i:integer;

begin
writeln(‘progran perulangan 1-5’);
for i:=1 to 5 do
writeln(i);
end.

Program 2

Uses wincrt;
Var
i:integer;

begin
writeln(‘progran perulangan 5-1’);
for i:=5 downto 1 do
writeln(i);
end.

tugas anda
buatlah program perulangan
1. 1-4-9-16-25 dan 25-16-9-4-1
2. 2-4-6-8-10 dan 10-8-6-4-2
3. 10-14-18-22-24 dan 24-22-18-14-10
4. 3-6-11-18-27 dan 27-18-11-6-3

Logika If-then

Membuat program dengan logika seseorang akan tuntas jika nilai lebih dari 80

Uses wincrt;
Var
Nilai:real;
Ket: string[35];

Begin
Write(‘Masukan nilai anda :’);readln(nilai);
If nilai>=80 then ket:=’tuntas’;
If nilai<80 then ket:=’remidi’;
Writeln(ket);
End.

Tugas anda ! Buatlan program dengan keterangan
90-100 A
80-90 B
70-80 C
60-70 D
0 -60 E

Praktikum 3

Membuat program matematika sederhana dengan eksekusi lebih dari satu kali

Program1 penjumlahan
Uses wincrt;
Var
Angka1,Angka2,Hasil:real;
K:Char;
Label A;
Begin
A:
Write(‘masukan angka 1’);readln(Angka1);
Write(‘masukan angka 2’);readln(Angka2);
Hasil:= Angka1+Angka2;
Writeln(‘Hasil jumlahnya adalah : ’ ,Hasil);
Writeln(‘anda ingin lagi :’);K:=readkey;if K=’y’ then goto A;
End.

Tugas anda
Buatlah progam dengan eksekusi lebih dari 1 kali pengurangan , pembagian, dan perkalian

Praktikum 2

Membuat program matematika sederhana

Program1 penjumlahan
Uses wincrt;
Var
Angka1,Angka2,Hasil:real;

Begin
Wirte(‘masukan angka 1’);readln(Angka1);
Wirte(‘masukan angka 2’);readln(Angka2);
Hasil:= Angka1+Angka2;
Writeln(‘Hasil jumlahnya adalah : ’ ,Hasil);
End.

Tugas anda
Buatlah progam pengurangan , pembagian, dan perkalian

Praktikum1
Membedakan fungsi write/writeln/read/readln;
Program1
Uses wincrt;
Begin
Write(‘nama saya’);
Write(‘sekolah saya’);
End.

Program2
Uses wincrt;
Begin
Writeln(‘nama saya’);
Writeln(‘sekolah saya’);
End.

Program3
Uses wincrt;
Var
Nama,sekolah:string[20];

Begin
Writeln(‘nama saya’);read(nama);
Writeln(‘sekolah saya’);read(sekolah);
End.

Program4
Uses wincrt;
Var
Nama,sekolah:string[20];

Begin
Writeln(‘nama saya’);readln(nama);
Writeln(‘sekolah saya’);readln(sekolah);
End.

Tugas anda!!!!!
Buatlah program tampilan layar dan input dengan tampilan sebagai berikut!
Nama :
NIS :
Kelas :
Alamat :
Hobby :