Percobaan 1
uses wincrt;var
A,B,C:REAL;
BEGIN
WRITELN('PENJUMLAHAN');
WRITE('MASUKKAN A : ');READLN(A);
WRITE('MASUKKAN B : ');READLN(B);
C:=A+B;
WRITELN('JADI JUMLAHNYA : ' ,C:2:2);
END.
mudahnya pemrograman
var
A,B,C:REAL;
BEGIN
WRITELN('PENJUMLAHAN');
WRITE('MASUKKAN A : ');READLN(A);
WRITE('MASUKKAN B : ');READLN(B);
C:=A+B;
WRITELN('JADI JUMLAHNYA : ' ,C:2:2);
END.
(0)
perintah looping
perulangan sederhana deret aritmatika 1-2-3-4-5 diselesaikan dengan
1. for-to do
uses wincrt;var
i:integer;
begin
for i:=1 to 5 do
writeln(i);
end.
2. while do
uses wincrt;var
i:integer;
begin
i:=0;
while i<=4 do
begin
i:=i+1;
writeln(i);
end;
end.
Program predikat nilai
Program predikat nilai
uses wincrt;
var
nilai:integer;
ket:string[6];
begin
writeln('hasil ulangan');
write('masukkan nilai : ');readln(nilai);
if nilai>90 then ket:='A' else
if nilai>= 80 then ket:='B' else
if nilai>= 70 then ket:='C' else
if nilai>= 60 then ket:='D' else
ket:='E';
writeln(ket);
end.
SOAL D
Dari worksheet diatas coba selesaikan pertanyaan dibawah!
1 1. C5
/ barang telah disediakn table untuk mengerjakan dengan Vlookup, silakan anda
buat dan letakanlah gambar untuk table Hlookup ditempan yang anda suka.
Selesaikan kolom C dengan logika IF, Vlookup dan Hlookup
a. =IF(LEFT(B5,2)=”CD”,”CD
PROGRAM”,IF(LEFT(B5,2)=”MP”,”MPEG FILM”,”MP3 LAGU”))
b. =VLOOKUP(LEFT(B5,2),$B$19:$C$21,2,0)
KD SEWA
|
CD
|
MP
|
M3
|
BARANG
|
CD PROGRAM
|
MPEG FILM
|
MP3 LAGU
|
c. =HLOOKUP(LEFT(B5,2),$B$23:$D$24,2,0)
2 2. D5
/ member C5 / barang telah disediakn table untuk mengerjakan dengan Hlookup,
silakan anda buat dan letakanlah gambar untuk table Hlookup ditempan yang anda
suka. Selesaikan kolom D dengan logika IF, Vlookup dan Hlookup
a. =IF(MID(B5,3,1)=”M”,”MEMBER”,”BUKAN”)
b. =HLOOKUP(MID(B5,3,1),$F$18:$G$19,2,0)
KEANGGOTAAN
|
KETERANGAN
|
M
|
MEMBER
|
MB
|
BUKAN
|
c. =VLOOKUP(MID(B5,3,1),$E$24:$F$25,2,0)
3 3. E5
/ harga sewa telah disediakn table untuk mengerjakan dengan Hlookup, silakan
anda buat dan letakanlah gambar untuk table Hlookup ditempan yang anda suka.
Selesaikan kolom D dengan logika IF, Vlookup dan Hlookup
a. =IF(RIGHT(B5,2)=”O1”,7000,
IF(RIGHT(B5,2)=”O2”,6000,5000))
b. =HLOOKUP(RIGHT(B5,2),$J$18:$L$19,2,0)
K. BIAYA
|
HG. SEWA
|
O1
|
7000
|
O2
|
6000
|
O3
|
5000
|
c. =VLOOKUP(RIGHT(B5,2),$I$23:$J$25,2,0)
4 4. F5
/ Jumlah isikan secara acak
5. G5
/ Mulai dan H5 kembali gunakan dengan format date
=DATE(MM,DD,YYYY)
6. I5
/ Lama Hasil berupa angka (lebih tapat dengan IF)
=H5-G5
7 7. K5
/ Denda Lebih dari 5 hari denda 10.000 =IF(I5>=5,10000,0)
8 8. L5
/ Biaya Sewa =I5*J5-K5
soal ulangan b
2. buatlah grafik nama pasien dengan biaya inap dengan alamat grafik A5:A10 dan g5:g10
3. buatlah grafik nama pasien dengan biaya layanan dengan alamat grafik A5:A10 dan H5:H10
4. buatlah grafik nama pasien, biaya layanan, biaya persalinan dan total biaya dengan alamat grafik A5:A10, H5:H10,I5:I10,J5:J10
Langganan:
Postingan (Atom)