LARI DLM 10 PUTARAN (PASCAL)

uses crt;

var
l,b :integer;
begin
clrscr;
GOTOXY(32,2);writeLN('LARI DALAM 10 PUTARAN');
writeLN(' ');
l:=1;
b:=0;
while l<10 do
begin b:=b+1;
l:=l+1;
Write('PUTARAN KE :',l);
write(' ');
writeln('MENDAPATKAN BOLA :',b);
end;
readln(l);
end.

PENGANTAR LOGIKA DAN ALGORITMA DENGAN PASCAL

PENGANTAR LOGIKA DAN ALGORITMA DENGAN PASCAL
Pengertian LOGIKA:Logika berasal dari bahasa Yunani yaitu LOGOS yang berarti ilmu. Logika pada dasarnya filsafat berpikir. Berpikir berarti melakukan suatu tindakan yang memiliki suatu tujuan. Jadi pengertian Logika adalah ilmu berpikir / cara berpikir dengan berbagai tindakan yang memiliki tujuan tertentu.Pengertian ALGORITMA:Pada Merriam-Webster’s Collegiate Dictionary, istilah algoritma diartikan sebagai prosedur langkah demi langkah untuk memecahkan masalah atau menyelesaikan suatu tugas. Kamus Besar Bahasa Indonesia (KBBI) mendefinisikan algoritma sebagai urutan logis pengambilan keputusan untuk pemecahan masalah.Alat Bantu untuk menuliskan Logika dan Algoritma, salah satunya adalah FLOWCHART.Pengertian FLOWCHART: gambaran dalam bentuk diagram alir dari algoritma dalam suatu program atau prosedur sistem secara logika, yang menyatakan arah alur program dalam menyelesaikan suatu masalah.SIMBOL Flowchart Pedoman-pedoman dalam Membuat Flowchart:1.Bagan alir sebaiknya digambar dari atas ke bawah dan mulai dari bagian kiri dari suatu halaman.2.Kegiatan di dalam bagan alir harus ditunjukkan dengan jelas.3.Harus ditunjukkan dari mana kegiatan akan dimulai dan dimana akan berakhirnya (diawali dari satu titik START dan diakhiri dengan END).4.Masing-masing kegiatan di dalam bagan alir sebaiknya digunakan suatu kata yang mewakili suatu pekerjaan, misalnya:-"Persiapkan" dokumen- "Hitung" gaji5.Masing-masing kegiatan di dalam bagan alir harus di dalam urutan yang semestinya.6.Kegiatan yang terpotong dan akan disambung di tempat lain harus ditunjukkan dengan jelas menggunakan simbol penghubung.7.Gunakanlah simbol-simbol bagan alir yang standar.Secara garis besar, Ada 3 bagian utama dalam flowchart :Contoh:Buat algoritma dan Flowchart untuk Menghitung Luas Persegi Panjang:Pekerjaan:Rumus:LuasPersegiPanjang = Panjang x LebarAlgoritma:1.Tentukan nama variabel yang akan menampung data Panjang, lebar dan luas persegi panjang.2.Masukkan (inputkan) data Panjang dan Lebar pada variabel yang sudah ditentukan.3.Hitung Luas persegi panjang.4.Tampilkan (outputkan) Luas persegi panjang.Flowchart:Latihan:Buat algoritma dan Flowchart untuk Menghitung:1.Luas Segitiga2.Luas LingkaranIMPLEMENTASI DALAM PROGRAM(Sebagai contoh: Bahasa Pemrograman Pascal)Pengertian PROGRAM:Kumpulan instruksi (statements) yang disusun secara logis untuk memecahkan suatu masalah. Instruksi-instruksi yang digunakan disesuaikan dengan jenis bahasa pemrograman yang digunakan (reserved word yang disediakan).Stuktur Penulisan Pascal:Program Nama_Program;uses. . . {Unit-unit yang dipakai} ;label. . . {label-label yang dipakai } ;const. . . {pengumuman tetapan-tetapan} ;type. . . { pengumuman tipe-tipe data };var. . . { pengumuman peubah-peubah };procedure Nama_Prosedur;begin. . .end;Function Nama_Fungsi;begin. . .end;{ Program utama }begin. . .end.Perintah Input :Perintah Pascal yang digunakan untuk memasukkan/menginputkan data.Bentuk perintah:Read dan ReadlnStruktur penulisan:Read(nama variabel);Readln(nama Variabel)Perintah Output:Perintah Pascal yang digunakan untuk menampilkan/mengoutputkan data.Bentuk perintah:Write : setelah menampilkan data atau teks, kursor berada tepat disamping kanan data yang ditampilkan.Write : setelah menampilkan data atau teks, kursor berada pada baris berikutnya.Struktur penulisan:write(nama variabel);write(‘teks’);writeln(nama Variabel);writeln(‘teks’);Contoh:Buat program sederhana untuk Menghitung Luas Persegi Panjang:Program LuasPersegiPanjang;VarLuas, Panjang, Lebar : integer;BeginReadln(panjang);Readln(Lebar);Luas:= Panjang*Lebar;Writeln(‘Luas Persegi Panjang adalah:’,Luas);Readln;End.Tampilan pada lembar kerja Pascal:Menjalankan program dengan perintah: Ctrl+F9(tekan tombol Ctrl dan F9 bersama-sama).Apabila Panjang diisi 7 dan lebar diisi 8 maka hasil perintah diatas tampil sbb:Latihan:Buat program sederhana untuk Menghitung:1. Luas Segitiga2. Luas LingkaranSTRUKTUR KENDALI “IF’Struktur kendali aliran adalah suatu bentuk/struktur yang memiliki peranan khusus untuk mengatur aliran urutan pengerjaan operasi atau beberapa operasi tertentu. Salah satu contoh pernyataan kendali yaitu pernyataan if .Pernyataan if (if statement) akan memeriksa suatu persyaratan dan menentukan apakah syarat tersebut benar atau salah, kemudian melakukan pekerjaan sesuai dengan nilai pernyataan tersebut.Struktur Penulisan: Berikut adalah bentuk-bentuk dari pernyataan if yang sering digunakan :1. If dengan satu pernyataan (statement)If (kondisi) then pernyataan ;2. If dengan dua atau lebih pernyataan (statement)If (kondisi) then beginpernyataan1 ;pernyataan2 ;…..end;3. If dan else If (kondisi) then beginpernyataan1 ;pernyataan2 ;…..endelsebeginpernyataan1 ;pernyataan2 ;…..end;Dari bentuk bentuk pernyataan if di atas yang harus diperhatikan adalah untuk pernyataan if dan else, pernyataan-pernyataan setelah then tanpa menggunakan “;”. Dengan kata lain jika pernyataan setelah then hanya terdiri dari satu pernyataan saja makan pernyataan tersebut tanpa menggunakan “;”, namun jika pernyataan setelah then terdiri dari lebih dari satu pernyataan makan setelah end tanpa menggunakan “;”.Latihan:Buat flowchart dan program sederhana untuk menampilkan bilangan terbesar.

RUMUS MEMBUAT DAFTAR FAKTUR

program PENJUALAN;

uses crt;
var
HRGBRG,JML,BYR :LONGINT;
NAMABRG,NOFAK,TGL,KODE :STRING;

begin
clrscr;
gotoxy(34,2);writeln('DAFTAR FAKTUR');
gotoxy(35,3);writeln('TOKO PASCAL');
gotoxy(13,4);writeln('=========================================================');
writeln(' ');
write('NO FAKTUR :');
readln(NOFAK);
write('TANGGAL :');
readln(TGL);
write('KODE :');
readln(KODE);
IF (KODE='A')THEN
BEGIN
NAMABRG :='BAJU';
HRGBRG :=50000;
END;
IF (KODE='B')THEN
BEGIN
NAMABRG :='CELANA';
HRGBRG :=150000;
END;
IF (KODE='C')THEN
BEGIN
NAMABRG :='KEMEJA';
HRGBRG :=300000;
END;
IF (KODE='D')THEN
BEGIN
NAMABRG :='JAKET';
HRGBRG :=95000;
END;
WRITELN('NAMA BARANG :',NAMABRG);
WRITELN('HARGA SATUAN :',HRGBRG);
WRITE('JUMLAH BARANG :');
READLN(JML);
BYR:=JML*HRGBRG;
WRITELN('BAYAR :Rp ',BYR);
gotoxy(36,17);WRITELN('TERIMA KASIH');
gotoxy(33,18);WRITELN('ATAS KUNJUNGAN ANDA');
gotoxy(13,19);writeln('=========================================================');
READLN(BYR);
end.

RUMUS MEMBUAT PERSEGI PANJANG

program hitung_persegi_panjang;

uses
crt;
var
p,l :single;
luas,kel :double;
begin
clrscr;
writeln('hitung luas & keliling persegi panjang');
writeln(' ');
write('masukkan nilai panjang :');
readln(p);
write('masukkan nilai lebar :');
readln(l);
luas:=p*l;
writeln('jumlah luas :',luas:3);
kel:=2*(p+l);
writeln('jumlah keliling :',kel:3);
read(kel)
end.

RUMUS MEMBUAT PERSEGI

program hitung_persegi;

uses
crt;
var
s :single;
luas,kel :double;
begin
clrscr;
writeln('hitung luas & keliling persegi');
writeln(' ');
write('masukkan nilai sisi :');
readln(s);
luas:=s*s;
writeln('jumlah luas :',luas:3:2);
kel:=4*s;
writeln('jumlah keliling :',kel:3:2);
read(kel)
end.

RUMUS MEMBUAT SEGITIGA

program hitung_segitiga;

uses
crt;
var
a,t :single;
luas,kel :double;
begin
clrscr;
writeln('hitung luas & keliling segitiga');
writeln(' ');
write('masukkan nilai alas :');
readln(a);
write('masukkan nilai tinggi :');
readln(t);
luas:=(a*t)/2;
writeln('jumlah luas :',luas:3:2);
kel:=3*a;
writeln('jumlah keliling :',kel:3:2);
read(kel)
end.

RUMUS MEMBUAT KUBUS

program hitung_kubus;

uses
crt;
var
s :single;
volume,lp :double;
begin
clrscr;
writeln('hitung volume kubus');
writeln(' ');
write('masukkan nilai sisi :');
readln(s);
volume:=s*s*s;
writeln('jumlah volume :',volume:3:2);
lp:=6*s*s;
writeln('jumlah luas permukaan :',lp:3:2);
read(lp)
end.

RUMUS MEMBUAT BALOK

program hitung_balok;

uses
crt;
var
p,l,t :single;
volume,lp :double;
begin
clrscr;
writeln('hitung volume balok');
writeln(' ');
write('masukkan nilai panjang :');
readln(p);
write('masukkan nilai lebar :');
readln(l);
write('masukkan nilai tinggi :');
readln(t);
volume:=p*l*t;
writeln('jumlah volume :',volume:3:2);
lp:=(2*p*l)+(2*p*t)+(2*l*t);
writeln('jumlah luas permukaan :',lp:3:2);
read(lp)
end.

RUMUS MEMBUAT LINGKARAN

program hitung_lingkaran;

uses
crt;
var
r,pi :single;
luas,kel :double;
begin
pi:=3.14;
clrscr;
writeln('hitung luas & keliling lingkaran');
writeln(' ');
write('masukkan nilai jari2 :');
readln(r);
writeln('masukkan nilai pi :',pi:3:2);
luas:=2*pi*r*r;
writeln('jumlah luas :',luas:3:2);
kel:=pi*2*r;
writeln('jumlah keliling :',kel:3:2);
read(kel)
end.

BAND

KARYAq ini q buat dengan menggunakan photshop,,,,

walaupun tak seberapa bagusnya tapi q bangga karna ini adl hasil karyaQ sendiri............

BONSZEGA.....

BONZEGA,,,,,,,

POKOKNYA PALINK NARSIZ DEH.......

TIP'S AWET MUDA

Usia boleh bertambah, namun wajah harus tetap awet muda. Simak tips mengantisipasi datangnya kerut sebelum saatnya.

1. Jangan terlalu sering mencuci wajah dengan sabun berbahan kimia karena dapat mengurangi kelembaban kulit wajah.
2. Buang kebiasaan merokok. Kandungan nikotin pada rokok mempercepat timbulnya kerut, terutama pada ujung mata.
3. Hindari kenaikan atau penurunan bobot tubuh yang terlalu drastis.
4. Olahraga teratur, terutama yang bersifat relaksasi seperti yoga
5. Kenakan kacamata hitam sebagai pelindung kulit seputar mata saat di luar. Pilih kacamata yang mampu merefleksikan sinar dengan lensa yang agak lebar.

6. Perbanyak konsumsi sayur, buah dan air putih.
7. Bila perlu, lakukan detoks secara berkala (3 bulan sekali) untuk membuang semua toksin pemicu penuaan dini

GOOD LUCK YAW

TIP'S MENGHINDARI JERAWAT

Bagi kamu yang ingin menjadi model, syarat utama adalah memiliki wajah bersih dan mulus. tentunya bebas dari jerawat. Kendati permasalahan jerawat, telah menjadi masalah klasik sejak zaman purbakala, namun sepertinya jerawat tetap saja diperbicangkan. Dan selalu ingin dicari solusinya. Berikut beberapa tips menghindari jerawat, menyembuhkan dan menghilangkan jerawat yang kami dapat di beberapa artikel internet. Berikut ini beberapa tips-tips yang dapat anda pakai untuk menyembuhkan dan menghilangkan bekas jerawat:

Untuk menghindari jerawat sebaiknya, remaja, sering-sering membersihkan wajah memakai air bersih, sebab wajah remaja lebih banyak mengandung minyak yang jika tidak dibersihkan maka akan menyumbat pori-pori wajah dan akhirnya menyebabkan timbunya jerawat.

Hindari kotoran atau polusi yang didapat selama berkendara. Misalanya saat mengendarai sepeda motor. Usahakan sebisa mungkin jangan kena asap kendaraan Pakailah cadar atau penutup wajah saat mengendarai sepeda motor.

Hindari makanan berlemak dan pedas. Begitupula dengan pikiran yang terlalu dipaksakan berpikir diluar kemampuan sehingga menyebabkan stress. Sebab, stress konon penyebab utama jerawat bagi remaja putri.

Selalu perhatikan kebiasaan makan, dan makanan yang dikonsumsi. Jika ada alergi, misalnya yang disebabkan oleh makanan berlemak ataupun telur, yang biasanya menyebabkan jerawat, usahakan segera menghindari makanan tersebut.

Nah untuk menghindari jerawat, poin 1- 4 sepertinya bisa cukup membantu. Namun bagaimana halnya ketika adik-adik diserang jerawat. Sebaiknya hindari memencet jerawat. Sebab inilah sebab utama yang membuat wajah penuh bercak bekas jerawat. Bagi yang memiliki masalah dengan bercak hitam di wajah, bisa membaca artikel tentang Tips Menghilangkan flex di wajah

Untuk menghindari jerawat selain poin-poin tadi, sebaiknya, gadis remaja, remaja putri atau remaja putra rajin berolahraga. Kenapa … ? Karena dengan olahraga suhu tubuh akan menjadi panas, dan suhu tubuh yang panas ini akan membuka pori-pori tubuh dan wajah sehingga dapat lebih mudah mengeluarkan kotoran di pori-pori wajah. Yang pada akhirnya akan mengihindarkan adik-adik dari gangguan jerawat.

Sebelum mandi bersihkan muka pake air hangat dan dibilas. Namun, INGAT, jangan pakai air panas. Air panas dapat memecahkan pori2x wajah. Begitupula dengan cara pembersihan yang kasar pada bagian yang isi jerawat. Sebaiknya idrawat dengan halus, dengan lap basah yang hangat. Sehingga tidak menimbulkan bekas luka atau jerawat yang akhirnya menyebabkabn bopeng pada wajah.

SELAMAT MENCOBA....!!

GOOD LUCK YAW........

THE BEST'FRIEND'S

MyNiceSpace.com
## YOU ARE BEST FRIEND'S ##


MyNiceSpace.com

## THE GIRL ##