mudahnya excel

Tahun baru semangat belajar baru
dengan modul yang sudah dibuat mudah2an anak belajar excel semakin mudah amin 3X
dalam modul ini saya berikan materi dan latihan soal jika ada teman dari sekolah lain butuh madul excel dan bersedia memberikan koreksi dari modul yang sudah saya buat silahkan kirim ke email ikawidyas@gmail.com

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

contoh aplikasi sederhana

uses wincrt;
var

bulan,tgl,tahun :integer;

kembali:char;
label awal;


begin
awal:

writeln('             BintangKu');
writeln('**********************************');
write('Tanggal : ');read(tgl);write('bulan   : ');read(bulan);write('tahun   : ');read(tahun);
writeln('==================================');


if bulan=1 then
   begin                
   writeln('bintangKu capicorn');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
          
if bulan=2 then
   begin
   writeln('bintangKu Aquarius');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
          
if bulan=3 then
   begin
   writeln('bintang anda Gemini');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
         
if bulan=4 then
   begin
   writeln('bintang anda aries');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
          
if bulan=5 then
   begin
   writeln('bintang anda *******5******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
        
if bulan=6 then
   begin
   writeln('bintang anda *******6******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
  

if bulan=7 then
   begin
   writeln('bintang anda *******7******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;

if bulan=8 then
   begin
   writeln('bintang anda leo');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;

if bulan=9 then
   begin
   writeln('bintang anda *******9******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;


if bulan=10 then
   begin
   writeln('bintang anda *******10******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;


if bulan=11 then
   begin
   writeln('bintang anda *******11******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;

 if bulan=12 then
   begin
   writeln('bintang anda *******12******');
   writeln('kesehatan anda ************');
   writeln('keberuntungan anda hari****');
   end;
writeln('==================================');
writeln('anda ingin lagi (y/t)');kembali:=readkey;
if kembali='y' then goto awal ;          


end.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

pascal

manfaat belajar pascal secara sederhana antara lain:

1. bisa membedakan bentuk inputan yang berupa angka dan string dan bisa mengaplikasikan kedalam program sederhana misal kurang, jumlah, bagi dan kali
2. bisa membuat program sedrehana misalnya menentukan rumus bangun datar (segitiga, persegi, belah ketupat)
3. membangun belajar logika sederhana misalnya jika nilainya lebih dari 78 maka seorang siswa bisa dikatakan tuntas dengan perintah if
4. bisa mengasah intelegensi numerik melalui deret angka yang terpola misalnya aritmatika, geometri dan pola jumlah-kali yang digunakan secara bersamaan melalui looping (for-to-do dan while-do)









  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

mudahnya pemrograman

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.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

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

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS