SEKILAS LOMBOK ISLAND: September 2011

CONTOH PROGRAM SEDERHANANYA

Quote:

by remaja lombok islan

PROGRAM SEDERHANA:

OUTPUTNYA:

codingnya:
CLS I AS INTEGER
PRINT "Rizki", "1dc01", "Depok"
GOSUB 10
PRINT "Fauzi", "1dc01", "Bogor"
GOSUB 10
END
10 PRINT STRING$<35, "--">
RETURN

Quote:

Contoh Program Menu BIODATA, LUAS SEGITIGA, DERET, EXIT
PROGRAM:

OUTPUNYA:
menu:biodata, luas segitiga, deret, exit

pil 1.biodata

pil 2.Luas Segitiga

pil 3.Deret

pil 4.exit

pada pilihan exit maka program akan langsung keluar "Press any key to continue"

Codingnya:

CLS
DIM a AS INTEGER
LOCATE 5, 23
PRINT "Menu"
LOCATE 6, 20
PRINT "1.Biodata"
LOCATE 7, 20
PRINT "2.Luas Segitiga"
LOCATE 8,20
PRINT "3.Deret"
LOCATE 9,20
PRINT "4.EXIT"
LOCATE 10, 20
INPUT "Mau Pilih Yang Mana?", a
SELECT CASE a
CASE 1
DIM Nama AS STRING, Kelas AS STRING, NPM AS INTEGER
INPUT "Nama =", Nama
INPUT "Kelas =", Kelas
INPUT "NPM =", NPM
PRINT
COLOR 1
PRINT "Nama ="; Nama
PRINT "Kelas ="; Kelas
PRINT "NPM ="; NPM
CASE 2
DIM alas, tinggi AS SINGLE
INPUT "Alas =", a
INPUT "Tinggi =", t
LET L = a * t / 2
COLOR 9
PRINT "Luas Segitiga = a * t / 2 =";L
CASE 3
DIM u AS INTEGER
PRINT
INPUT "Masukan Nilai u=", u
PRINT
FOR x = 1 TO u
FOR y = 1 TO x
COLOR 5
PRINT y:
NEXT y
PRINT
NEXT x
CASE 4
GOTO 500
END SELECT
500 END

Quote:

Originally Posted by remaja lombok island

QBasic, contoh program menu Nama, Kelas, NPM, dan CETAK

PROGRAM:

OUTPUTNYA:

pil 1

pil 2

pil 3

pil 4

sedangkan jika kita pil 5 maka program akan langsung keluar "Press any key to continue"

codingnya:
CLS
DIM P AS INTEGER
10 PRINT "Menu"
PRINT "1.Input Nama"
PRINT "2.Input NPM"
PRINT "3.Input Kelas"
PRINT "4.Cetak Semua"
PRINT "5.EXIT"
INPUT "Pilihan Anda?", P
SELECT CASE P
CASE 1
CSL
DIM NM AS STRING
INPUT "Nama :", NM
GOSUB 10
CASE 2
CLS
DIM NPM AS LONG
INPUT "NPM :", NPM
GOSUB 10
CASE 3
CLS
DIM KLS AS STRING
INPUT "Kelas :", KLS
GOSUB 10
CASE 4
CLS
PRINT "Nama :"; NM
PRINT "NPM :"; NPM
PRINT "Kelas :"; KLS
GOSUB 10
CASE 5
CLS
PRINT "Exit"
END SELECT
END

Quote:

Originally Posted by remaja lombok island

PROGRAM SEGITIGA TERBALIK
PROGRAM

OUTPUTNYA:

Keterangan :
Saat menjalankan program, maka kita akan diminta memasukan angka, lalu akan muncul symbol *(karena di program yang di print adalah “*”) sebanyak angka yang kita masukan.

CODINGNYA:
CLS
INPUT “Masukkan Nilai: “, A
FOR B = A TO 1 STEP -1
FOR C = B TO 1 STEP -1
PRINT “*”;
NEXT
PRINT
NEXT B
END

Iklan Kategori Notebooks dan Laptops

Sponsor Iklan

[10068437] Tablet Androids - Epad A...

Tablet PC Android cuma Rp. 999.000* (OS: Android 2.0, RAM:256MB, Full version Office, Processor: 600Mhz) *)pembelian 2 unit ata

Rp. 999.000,00

Sat. C 640

Sat. C 640 (B940(2.00)/2.0/500.0/DVD+R/RW/14.1"/Wrls/Cam)+Lan DOS

Rp. 4.250.000,00

[10068430] Tablet Androids - Epad A...

Tablet PC Android cuma Rp. 999.000* (OS: Android 2.0, RAM:256MB, Full version Office, Processor: 600Mhz) *)pembelian 2 unit ata

Rp. 999.000,00

Epad Apad Ipad Termurah Terlengkap ...

UNTUK HARGA EPAD APAD GROSIR / RESELLER AGAR LANGSUNG MENGHUBUNGHI KAMI GAMBAR 1 : TABLET PC VIA 8505 7 INCH Rp. 777.00.

Rp. 777.000,00

[10068410] Tablet Androids - Epad A...

Tablet PC Android cuma Rp. 999.000* (OS: Android 2.0, RAM:256MB, Full version Office, Processor: 600Mhz) *)pembelian 2 unit ata

Rp. 999.000,00

[10068350] Tablet Androids - Epad A...

Tablet PC Android cuma Rp. 999.000* (OS: Android 2.0, RAM:256MB, Full version Office, Processor: 600Mhz) *)pembelian 2 unit ata

Rp. 999.000,00

Refresh

Urutkan : Jumlah iklan per halaman : Tampilan: Lihat iklan bergambar

Gambar

Deskripsi

Tanggal

Lokasi

Harga

Jual Apple MacBook Pro MC375ZA/A Blackmarket

Spceifikasi: Processor Intel Core 2 Duo 2.66GHz Memory 4GB DDR3 1066MHz SDRAM VGA NVIDIA GeForce 320M 256 MB Display 13.3" WLED Technolo

Hari ini

Jakarta D.K.I.

Rp. 4.500.000 Nego

Asus K42JC-VX190D

Spesifikasi Notebook Asus K42JC-VX190D Processor: Intel Core i5-460M Processor 2.26 Ghz with Turbo Boost up to 2.53 GHz Chipset: Inte

Hari ini

Banten

Rp. 3.750.000 Nego

Toshiba Satellite L645-1143XR

Spesifikasi Notebook Toshiba Satellite L645-1143XR Processor: Intel Core i5-480M Processor (2.66 GHz with Turbo Boost up to 2.93Ghz, 3MB L3, 10

Hari ini

Banten

Rp. 4.200.000 Nego

HP G4-1003TX NEW-GARANSI RESMI

Intel® Core™ i5-2410M processor (3 MB L3 cache, 2.30 GHz with Turbo Boost up to 2.90 GHz), 2Gb DDR3, HDD 500 Gb, Card reader, HDMI port wit

Hari ini

Jawa Timur

Rp. 5.700.000 Nego

Netbook Axioo Pico Hrg Rp. 1,5jt Hub/SMS 085-319-548-333

Spesifikasi Intel Atom N280 (1.66 Ghz) | 1GB DDR2 | 8GB SSD | 8" Touchscreen Tablet | XP Home Processor: Intel Atom N280 (1.66 Ghz)

Hari ini

Nusa Tenggara Barat

Rp. 1.500.000 Nego

HP MINI 110-3554,3555,3556,3557(Black,White,Red,Blue)

Intel® Atom Dual Core N570 (1.5GHz), MEM 1GB DDR3, HDD 320GB 7200RPM, 10.1" WXGA, WIFI, WEBCAM,HP QuickWeb, Bluetooth, VGA Intel GMA 3150,6

Hari ini

Jawa Timur

Rp. 2.695.000 Nego

ACER Aspire HAPPY -2 NEW-GARANSI RESMI

Intel Atom Dual Core N570 - 1,66 GHz, Mem 2 GB DDR3, HDD 320 GB, VGA Intel GMA 3150, Webcam, Wifi, Lan, cardreader, baterai 6 cell,10"1 LED LCD(

Hari ini

Jawa Timur

Rp. 2.875.000 Nego

MACBOOK DAN SONY VAIO

SELAMAT DATANG DI " PUSAT APPLE DAN SONY VAIO ORIGINAL " FITRI AMELIA Contact Person : FITRI AMELIA Telp : 0856.5809.7555 Email: fitria

Hari ini

Jakarta D.K.I.

Rp. 4.000.000 Nego

Apple IMac MC516ZA/A

SELAMAT DATANG DI " PUSAT APPLE DAN SONY VAIO ORIGINAL " FITRI AMELIA Contact Person : FITRI AMELIA Telp : 0856.5809.7555 Email: fitria

Hari ini

Jakarta D.K.I.

Rp. 4.000.000 Nego

Apple MacBook Pro MC371ZA/A

SELAMAT DATANG DI " PUSAT APPLE DAN SONY VAIO ORIGINAL " FITRI AMELIA Contact Person : FITRI AMELIA Telp : 0856.5809.7555 Email: fitria

Hari ini

Jakarta D.K.I.

Rp. 4.000.000 Nego

[10068437] Tablet Androids - EPad Android 2.0, EPad Android 2.2 & EPad Android Games

Tablet PC Android cuma Rp. 999.000* (OS: Android 2.0, RAM:256MB, Full version Office, Processor: 600Mhz) *)pembelian 2 unit ata

Hari ini

Jakarta D.K.I.

Rp. 999.000

PUSAT APPLE DAN SONY VAIO ORIGINAL

SELAMAT DATANG DI " PUSAT APPLE DAN SONY VAIO ORIGINAL " FITRI AMELIA Contact Person : FITRI AMELIA Telp : 0856.5809.7555 Email: fitria

Hari ini

Jakarta D.K.I.

Rp. 4.000.000 Nego

Pusat Service Dan Sparepart Notebook/Macbook/Laptop/iPad/iPod Terlengkap!

Comzone menyediakan bermacam-macam sparepart & aksesoris Notebook, Macbook, Laptop, iPad, iPod, Tablet PC, dll. Kami juga menyediakan jasa serv

Hari ini

Jakarta D.K.I.

Rp. 1.234 Nego

Notebook Dan Netbook Murah Dan Bergaransi

&nb

Hari ini

Jakarta D.K.I.

Rp. 123.456.789 Nego

TOSHIBA SATELITE C640 I3 (NEW)

intel Core i3 -2310M 1 GB RAM 500 GB HDD 14 HD LED VGA INTEL DVD Webcam WIfi+bluetooth 1 THN GARANSI RESMI TOSHIBA Call/SMS:08176955639/085691297030

Hari ini

Jakarta D.K.I.

Rp. 4.775.000 Nego

Aspire 4750-2332G50mnkk I3 (NEW)

intel Core i3-2330M 14'0 HD LED LCD 2 GB RAM DDR3 500 GB HDD INTEL HD Graphics 3000 DVD super multy 1,3 megapixel webcam card reader bluetooth 6

Hari ini

Jakarta D.K.I.

Rp. 4.450.000 Nego

DIJUAL NOTEBOOK MERK ADVAN INTEL CORE 2 DUO T5570

DIJUAL NOTEBOOK MERK ADVAN INTEL CORE 2 DUO T5750, MEMORI 1GB, HARDDISK 120GB, DVD RW, MODEM, WIFI, LAYAR 14 INCH WARNA CASING HITAM MULUS HA

Hari ini

Jakarta D.K.I.

Rp. 2.000.000 Nego

Laptop Sony Vlaptop Sony Vaio 14 VPCEA16FG Hrg Rp:2,1jt.HUB:085-319-548-333

ries (Gree5.6 cm) VAIO Spesifikasi Laptop Sony Vaio VPCEA16FG 14 (3E Se n) VAIO E Series is equipped with a 14 (35.6 cm), 16:9 Real Wide display. The

Hari ini

Nusa Tenggara Barat

Rp. 2.100.000 Nego

DIJUAL NOTEBOOK BARU MERK TOSHIBA L635 GARANSI 1 TAHUN

DIJUAL NOTEBOOK / LAPTOP BARU MERK TOSHIBA L635 , PRSESOR INTEL CELERON P4600 SPEED 2 GHZ, MEMORI 2 GB DDR3, HARDDISK 250GB

Hari ini

Jakarta D.K.I.

Rp. 4.500.000 Nego

DIJUAL NOTEBOOK PARA GAMERS ACER ASPIRE 4253

MASA PROMO ……………..MASA PROMO………………..BONUS PRINTE

Hari ini

Jakarta D.K.I.

Rp. 4.500.000 Nego

JUAL LAPTOP BEKAS DELL LATITUDE D620 CORE 2 DUO

JUAL LAPTOP KESAYANGAN DELL LATITUDE D620 PROCESSOR INTEL CORE 2 DUO T5500 @1.66GHz HARDISK 80GB SATA RAM DDR2 2GB DVDCDRW WIFI MODEM LAYAR 14 WXGA B

Hari ini

Jakarta D.K.I.

Rp. 2.900.000 Nego

Jual Murah Laptop Game Dan Desain Hp Compaq Dv2 ,spec Tinggi.VGA ATI RADEON 1.2 GBkondisi Mulus

Processor Onboard: AMD Athlon™ X2 Neo L335 (1.6 GHz, Cache 512 KB)dual core Chipset: AMD M690G RAM: 2 GB DDR2 SDRAM

Hari ini

Jakarta D.K.I.

Rp. 2.900.000

Axioo Dual Core MLC 12 Inch Batere 1 Jam Cod Tangerang Dan Jakarta

permisi juragan om momod dan mimin,mau buka lapak lagi nih,,kali ini ane mau jual Axioo MLC dual core 12 inch,kondisi kemulusan 95%,,,cekedot gan Sp

Hari ini

Jakarta D.K.I.

Rp. 2.200.000 Nego

ACER ASPIRE 4520

dijual Laptop ACER ASPIRE 4520 kondisi apa adanya.. AMD harga 2jt (nego) COD : BEKASI / GLODOK wawan : 0857170

Hari ini

Jawa Barat

Rp. 2.000.000 Nego

DITERIMA BELI APPLE MAC,POWER MAC, NOTEBOOK, PC, PRINTER KONDISI BAIK ATAU RUSAK

TERIMA BELI / LELANGAN KOMPUTER , APPLE Mac, PC, Notebook, PRINTER apa saja BORONGAN KANTOR, LELANG ATAU DIRUMAH DIJEMPUT SEJABOTABEK, untuk La

Hari ini

Jakarta D.K.I.

Rp. 475.000 Nego

Urutkan : Jumlah iklan per halaman : Tampilan: Lihat iklan bergambar

Sebelumnya
Halaman
1
2
3
4
5
6
7
8
9
...
213
Berikut

26 September 2011 01:09:39

I LOVE LOMBOK

Wednesday, September 28, 2011

Monday, September 26, 2011

Sponsor Iklan

Kategori

My Blog List

Labels