Materi Dan Soal TIK SMA

tugas kelas xi

1. (kelas kamar, harga sewa, diskon) -- gunakan perintah Vlookup dan IF
2. Jumlah kamar -- Gunakan perintah IF
3. Check in dan Check out gunakan perintah Date / format date
4. Lama Gunakan formula yang sesuai dan ubah ke format number
5. Biaya= (harga sewa - diskon + jumlah ranjang)*lama

1. C5,D5,E5 --GUNAKAN IF/ LOOKUP
2. G5,H5 -- gunakan format date
3. I5 -- ubah dari format date ke number
4. J5,L5 -- gunakan formula yang sesuai
5.K5 -- Gunakan formula IF

1. maskapai gunakan perintah IF dan Vlookup
2. tujuan gunakan perintah IF dan Vlookup
3. harga tiket gunakan perintah IF dan Vlookup
4. kelas gunakan perintah IF dan Vlookup
5. diskon gunakan perintah IF
6. biaya formula yang sesuai

1. E14=IF(E14=1,1000000,IF(E14=2,2000000,3000000))
2. G14=IF(E14>5,25000,IF(E14>3,75000,IF(E14>=1,100000)))
3. H14=C14*250
4. I14=D14*250
5. J14=IF(MID(B14,2,1)="a",10,IF(MID(B14,2,1)="b",20,30))
6. K14=F14+H14+I14+J14
7. 14=IF(RIGHT(B14,1)="j",10%*F14,IF(RIGHT(B14,1)="k",15%*F14, IF(RIGHT(B14,1)="l",20%*F14)))
8. M14=25%*F14
9. N14=IF(I14>=40,20,0)
10. O14=(K14-L14-M14+N14)

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

1. biaya sewa gunakan formula (Vlookup, Hlookup, If)
2. Pinjam gunakan date
3. Kembali gunakan date
4. Lama Pinjam (formula yang pas dan ubah kedalam format number)
5. Denda gunakan If
6. Biaya formula yang pas

Selesaikan Worksheet Dibawah Ini !!!!!!!!!!!!

1. selesaikan E14 dengan persamaan =PRODUCT(C14:D14) ! apakah fungsi product
2. selesaikan F14, G14, H14 dengan formula yang pas
3. selesaikan H14 (prosentase penjualan) dengan formula C14:$C$19 lalu pada format sel apa yang anda pilih agar menjadi %
4. selesaiakan C19,D19,E19,G19,H19
5. selesaiakan C20,D20,E20,G20
6. carilah nilai max dan letakkan pada sel C23 dan Min pada sel C24

1. pada tanggal lahir atur format cell date
2. J6 gunakan rumus Countif(D6:I6;"S") bigetu juga K6 & L6? jelaskan fungsi countif!
3. bagaimana cara mengikat cell C3
4. Gunakan Rumus =($C$3-C6)/365.25 ! jelaskan maksud rumus tersebut?
5. a) left(cell acuan, jumlah karakter dari kiri), gunakan untuk mencari N6!
b) right(cell acuan, jumlah karakter dari kanan), gunakan untuk mencari L6!
c) mid(cell acuan, nomer karakter, jumlah karakter) gunakan untuk mencari O6,N6

1. PRAKTIKAN WORKSHEET DIATAS
2. apa kesimpulan anda tentang choose dan concantenate
3. buatlah 5 pertanyaan pilihan ganda dari worksheet diatas