Tugas fungsi IF

Buatlah program diatas dengan ketentuan

tipe mobil hanya A,B,C,D SWELAIN ITU TIDAK ADA

JIKA Tipe mobil A maka APV dan harga sewa 2000000

JIKA Tipe mobil B maka XENIA dan harga sewa 3000000

JIKA Tipe mobil C maka AVANZA dan harga sewa 4000000

JIKA Tipe mobil D maka CRV dan harga sewa 5000000

  jumlah_bayar := lama_sewa * harga_Sewa;

Lama sewa  jika lebih dari sama dengan 10 HARI  diskon 10 % Dari Jumlah bayar]

Lama sewa  jika 5- 9 HARI  diskon 5 % Dari Jumlah bayar

selain itu 0

  pajak := 0.01 * jumlah_bayar;

sopir ada cuma y dan n

jika y maka 0.01 *jumlah bayar

jika n maka  0 

 total_bayar := jumlah_bayar - diskon + pajak + tarif_sopir;

TUGAS

Berikut ini beberapa contoh program pascal if then, if then else, nested if
Temukan dan perbaiki kesalahan yang ada sehingga programnya menjadi benar.
Kemudian tampilkan hasilnya, kirim ke email dwisaputra.achmad@gmail.com kirim dalam bentuk word tolong ikutinn prosedur terima kasih


Program If Then
PROGRAM IF THEN;
USER CRT;
VAR
NILAI:INTEGER;
BEGIN
WRITE (MASUKKAN NILAI ; ): READLN(NIL)
IF NIL >100 THEN
WRITE (NILAI YANG ANDA MASUKKAN LEBIH BESAR DARI 50)
END



Contoh Program If Then Else
PROGRAM IF THEN ELSE;
VAR
NILAI: INT;
BEGIN
WRITE (‘ MASUKKAN NILAI)’; READLN(NIL);
IF NILAI>50 THEN
WRITE (‘NILAI YANG ANDA MASUKKAN LEBIH BESAR DARI 50’)
ELSE
WRITE (NILAI YANG ANDA MASUKKAN KURANG DARI 50)
END.




Contoh Program Nested If
PROGRAM NESTED IF;
USES CRT;
VAR
JA: BYTE; {JA=JUMLAH ANAK}
GAPOK: LONGINT; {GAPOK = JAJI POKOK}
NAMA, NIK: STRING; {GOL=GOLONGAN}
TOTALGAJI, TANAK, TKELUARGA: REAL;
GOL, STATUS: CHAR;
BEGIN
CLRSCR;
{INPUT DATA}
WRITE('NO. INDUK KARYAWAN :');READLN(..);
WRITE('NAMA KARYAWAN :');READLN(...);
WRITE('GOLONGAN [1,2,3,4] :');READLN(...);
WRITE('STATUS [K/B] :');READLN(...);
WRITE('JUMLAH ANAK :');READLN(...);
{MENCARI GAJI POKOK BERDASARKAN GOLONGAN}
IF (GOL=1) THEN GAPOK:=500000
ELSE IF (GOL=2) THEN GAPOK:=600000
ELSE IF (GOL=3) THEN GAPOK:=700000
ELSE GAPOK:=1000000;
{MENGHITUNG TUNJANGAN KEL;UARGA}
IF UPCASE(...)='K' THEN TKELUARGA:=10/100*GAPOK
ELSE KELUARGA:=0;
{MENGHITUNG TUNJANGAN ANAK}
IF JA>2 THEN ANAK:=2 * GAPOK * 2/100
ELSE ANAK:= JA * GAPOK * 2%;
TOTALGAJI:=GAPOK+KELUARGA+ANAK;
{CETAK OUTPUT}
CLRSCR;
WRITELN('NIK KARYAWAN :', ...);
WRITELN('NAMA KARYAWAN:', ...);
WRITELN('GOLONGAN :', ...);
WRITELN('STATUS KAWIN :', ...);
WRITELN('JUMLAH ANAK :', ...);
WRITELN('GAJI POKOK : RP. ', ...);
WRITELN('TUNJANGAN KEL. : RP. ', ...);
WRITELN('TUNJANGAN ANAK : RP. ', ...);
WRITELN('TOTAL GAJI : RP. ', ...);
END
END

NB:
Usahakan kerjakan dengan sendiri-sendiri. Yakinlah diri anda bahwa anda mampu menemukan kesalahan yang ada dalam program ini. Jangan cepat menyerah, hasil yang anda peroleh dengan sendirinya akan memberikan kepuasan tersendiri

Modul pascal

klik disini untuk mendownload

TUGAS AKSELERASI KELAS 11

1.    Format huruf kapital pada awal suatu paragrap disebut …

a.     Capitals            d.   drop cap

b.     Lowercase       e.   title case

c.     Uppercase

2.    Perintah untuk menginsertkan gambar kedalam dokumen pada writer adalah …

a.    Format – Grapthics – From file

b.    Insert – Graphics – Fromfile

c.    Insert – Graphics – From file

d.    Insert – Object – Picture

e.    Format – Picture – From file

3.    Menekan F4 pada mail merge berfungsi untuk …

a.    membuat data source

b.    membuka data source

c.    menampilkan data source

d.    menutup data source

e.    mengedit data source

4.    Berikut penulisan fungsi yang benar, kecuali …

a.    =MAKS(A1:A5)

b.    =SUM(A1:A5)

c.    =AVERAGE(A1:A5)

d.    =(A1+A2+A3+A4+A5)

e.    =A1+A5

5.    Fungsi yang digunakan untuk menghitung rata-rata dari sekumpulan data adalah …

a.    Mod                              d.   Count

b.    Sum                  e.    Average

c.    Min

6.    Berikut ada kasus, jika status sama dengan K maka keterangannya KAWIN. Jika tidak maka keterangannya TIDAK KAWIN. Ini dapat diselesaikan dengan rumus …

a.    =IF(D3=”K”;”KAWIN”;”TIDAK KAWIN”)

b.    =IF(D3=K,KAWIN,TIDAK KAWIN)

c.    =IF(D3=’K’,KAWIN,TIDAK KAWIN)

d.    =IF(D3=”K”,”KAWIN”,”TIDAK KAWIN”)

e.    =IF(D3=’K’;’KAWIN’;’TIDAK KAWIN’)

7.   Bagaimana langkah pertama sewaktu kita ingin membuat grafik/chart dari sebuah  table…

a.       Blok data, view chart

b.      Blok data, format chart

c.       Blok data, insert chart

d.      Blok data, edit chart

e.       Blok data, open chart

8.    Ada berapa fungsi look up dan sebutkan

a.       2, Hlookup dan Left lookup

b.      2, Hlookup dan Vlookup

c.       3, Vlookup dan Right lookup, left lookup

d.      2, Vlookup dan Left lookup

e.       3, Hlookup, Vlookup dan Left lookup

9.    Kepanjangan HTML adalah …

a.       Hypertext Makeup Language

b.      Hypertext Markup Language

c.       Hypertool Makeup Language

d.      Hypertext Markup Lenguage

e.       Hyperteks Markup Language

10. Berikut ini merupakan web browser, kecuali …

a.       Internet Explorer 

b.      Mozilla Firefox 

c.       Opera

d.      Nescape

e.       Dreamweaver

11. Tiga struktur dasar HTML terdiri dari …

a.       HTML, TITLE, BODY

b.      HEAD, TITLE, BGCOLOR

c.       TITLE, BODY, HTML

d.      HTML, HEAD, BODY

e.       TABLE, HEAD, BODY

12. Atribut yang digunakan untuk jenis huruf adalah …

a.       face                 d.   bgcolor

b.      size                  e.   type

c.       color

13. Atribut body yang digunakan untuk mengatur warna latar adalah …

a.    bgcolor           d.   background

b.    color               e.   background color

c.    face

14. Ukuran / size dari tag font / huruf pada HTML adalah …

a.       1-3                   d.   1-6

b.      1-4                   e.   1-7

c.       1-5

15. Square, disc, dan circle adalah value dari …

a.    Definition list

b.    Definition text

c.    Definition definition

d.    Ordered list

e.    Unordered list

Web Editor                 Adalah program yang digunakan  untuk mengedit file yang berformat web.

16.

 Agar tampilan seperti diatas kita gunakan …

a.    Ordered list

b.    Unordered list

c.    Horizontal list

d.    Definition list

e.    Vertical list

17.   Tag yang menggabungkan beberapa baris disebut …

a.   Colspan         d.   TD

b.   Rowspan       e.   DD

c.   TR

18. Format gambar yang sering digunakan, kecuali …

a.    JPG               d.   PNG

b.    PSD               e.   BMP

c.    GIF

19. Perintah untuk mengosongkan kolom pada HTML adalah

a. tr

b. &nbsp ;

c. br

d. td

e. &nsp

20.  Yang menghubungkan dokumen satu dengan dokumen lainnya disebut …

a.    Connected        d.  Link

b.    Relation            e.  Hyperlink

c.    Hypertext

21.      Perintah untuk mengganti baris pada HTML adalah

        a. br                 

        b. tr                                 

        c. p

        d. td

         e. insert

22.   Cara standar untuk menyatakan lokasi sebuah file / dokumen web disebut …

a.   Browser        d.   Link

b.   HTTP           e.   Protocol

c.   URL

23.   Atribut yang menyatakan alamat dokumen yang dituju adalah …

a.      A                   d.   Hypertext

b.      HREF                       e.   IMG

c.      URL

24. Langkah memasukkan gambar ke   dalam desain kita, yaitu …

a.    Insert – image – from file

b.    Format – picture – from file

c.    Insert – picture – from file

d.    Picture – insert – from file

e.    View – picture – from file

25.  Bagian front page yang digunakan untuk membuat teks bergerak adalah …

a.    Link                  d.   Atribute

b.    Marquee          e.   Hover button

c.    Animation

26.  Berikut ini atribut Font / huruf yang benar pada HTML adalah

a.    Align – Color – Face

b.    Bgcolor – Background – Fill

c.    Size – Align – Bgcolor

d.    Align – Color – Size

e.    Face – Color – Size

 

27.  Berikut ini langkah membuka notepad

1.    start

2.    notepad

3.    all programs

4.    acsesoris

      susunlah langkah tersebut menjadi benar

a.    1,2,3 dan 4

b.    2,3,1 dan 4

c.    1,4,3 dan 2

d.    4.2,1,dan 3

e.    1,3,4 dan 2

28.  Bagian Ms. FrontPage yang berfungsi membuat teks berjalan disebut

a.    HTML Efek

b.    DHTML Efek

c.    Animation Teks

d.    Hover teks

e.    Marquee

29.  Program untuk mendesain dan mengedit halaman web di sebut

a.    Web Programmer

b.    Web desainer

c.    Web science

d.    Web development

e.    Web editor

30.  web yang berisi informasi perusahaan atau lembaga dinamakan

a.    Web editor

b.    Situs

c.    Html

d.    Web site

Homepage

TUGAS KELAS X.4 HARI JUMAT 8-3-2013

TUGAS X.4

KERJAKAN STUDY CASE II HALAMAN 17 DI MODUL. BUATLAH DENGAN BAIK,
FILENYA DIKIRIM KE EMAIL : DWISAPUTRA.ACHMAD@GMAIL.COM  PALING LAMBAT 24.00PM 8 -MARET-2013.


TERIMAKASIH. UNTUK TIDAK KELUAR KELAS. SISWA YANG BERMASALAH TANGGUNG SENDIRI PERATURAN YANG DIBUAT,.

Modul Open Office Cal

yang mau download file modul open office cal ini silakan
Modul open office cal

Juan Jesus kepada Sportmediaset: "Lazio, kenangan yang hebat"

Sabtu, 15 Desember 2012 03:16

APPIANO GENTILE – Berbicara kepada Marco Barzaghi dalam wawancara eksklusif yang ditayangkan di Sportmediaset, Juan Jesus berbicara tentang menunggu pertandingan Inter pada Sabtu malam di Stadion Olimpico, di mana ia kebetulan membuat debutnya bersama Nerazzurri pada 13 Mei silam: "Saya senang saat itu, meski saya hanya bermain selama 5 atau 6 menit. Saya akhirnya berada di Inter dan itu merupakan kegembiraan luar biasa buat saya. Saya tak pernah mengira bakal menjadi starter. Saya ingin melakukan tugas saya dan saya berterima kasih kepada Stramaccioni atas kepercayaannya kepada saya. Pertandingan lawan Lazio kali ini akan berat. Kami akan menghadapi sebuah tim yang fokus dan kami berharap bermain dengan baik. Kami meraih kemenangan besar lawan Napoli dan kini kami lebih dekat dengan Juventus. Apakah kami terbuai setelah kemenangan melawan Juve? Kami selalu berusaha bermain dengan cara yang sama, melawan Juventus dan yang lainnya."

Bek Brasil ini tak malu-malu saat Scudetto disebutkan ("kami selalu percaya dan saya ingin melakukan segalanya untuk merebut itu, karena Inter adalah tim besar dan harus melakukan segalanya yang mungkin untuk memenanginya"). Dan saat ia diberitahu tentang pernyataan Marco Tronchetti Provera, yang kemarin mengakui bahwa ia sangat terkejut oleh Fredy Guarin dan Juan Jesus, ia menjawab: "Saya senang karena tak seorang pun mengenal saya sebelumnya di Italia, tapi kini sesuatu telah berubah. Saya berharap memiliki 5 atau 6 tahun yang bagus untuk menunjukkan kemampuan saya. Saya ingin menjadi bagian dari Inter untuk waktu yang lama. Hal paling indah yang pernah saya alami bersama Nerazzurri sejauh ini adalah kemenangan di Juventus Stadium. Kepada siapa saya berterima kasih atas semua ini? Tuhan, selalu, dan Inter karena telah membawa saya ke sini." Terakhir, mengenai tim nasional Brasil: "Pertama saya memikirkan Inter. Dan jika saya bermain baik di sini maka segalanya hal yang lainnya akan mengikuti."

sumber : inter.it