Selasa, 08 Desember 2009

Soal Quiz

1. Terangkan sejarah bahasa pemrograman pascal ! dan struktur bahasanya !
2. Sebutkan tipe data dan rangenya!
3. Buat program yang menampilkan biodata anda !
4. Jelaskan mengenai struktur keputusan !; berikan contoh penggunaannya !
5. Buat program dengan output sbb:















6. Jelaskan mengenai looping !; berikan contoh penggunaannya !

7. Buat program dengan output sbb:












Dengan ketentuan sbb:

· No. (input)

· Nama Barang (input)

· Jumlah (input)

· Harga Satuan (input)

· Jumlah Harga (output)

· Total Harga (output)

· Diskon (output)

jika Total Harga > 100.000, maka mendapatkan diskon 5% dari Total Harga. Selain itu tidak mendapatkan diskon.

· Total_Bayar (output)

Proyeksi pada Lihat Daftar Pembelian Barang

Jawaban Quiz

1. Sejarah pemrograma PASCAL
-Bahasa PASCAL pertama kali dikembangkan pada awal tahun 70-an oleh NICLAUS WIRTH di Technical University, Zurich - Swiss. -Nama PASCAL diambil dari nama seorang ahli Matematika bangsa Perancis, yaitu BLEISE PASCAL yang telah berjasa menemukan alat hitung mekanis pertama didunia pada abad ke-17

-Struktur Bahasanya:
1. Bagian Judul Program 2. Blok Program a. Bagian deklarasi - Deklarasi tipe data (TYPE) - Deklarasi variabel (VAR) - Deklarasi konstanta (CONST) - Deklarasi label (LABEL) - Deklarasi sub-program (PROCEDURE dan FUNCTION) b. Bagian ProgramUtama Perintah-perintah atau Pernyataan.

2.


















3.

program biodata;

uses crt;

begin clrscr;

textcolor(9);

writeln('-+-;+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-++');

writeln(' PROGRAM BIODATA');

writeln('-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-++');

writeln('Nama = Rino Dwi Priambodo');

writeln('Tempat/tgl lahir = Malang/3 Mei 1991');

writeln('Jenis Kelamin = Laki-laki');

writeln('Golongan darah = O');

writeln('Alamat = Jl. perumahan Asabri Bumiayu blok A.7 Malang');

writeln('Agama = Kristen Protestan');

writeln('Status = Belum Kawin');

writeln('-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-');

readln;

end.






















4. Struktur keputusan
Struktur keputusan adalah struktur program yang melakukan proses pengujian untuk mengambil suatu keputusan apakah suatu baris atau blok instruksi akan diproses atau tidak. Pengujian kondisi ini dilakukan untuk memilih salah satu dari beberapa alternatif yang tersedia.


5.
Program menu;
uses crt;
var
r: integer;
pi,Kl: real;
pil,p,l:integer;
ls,kp,d:real;
sisi1,sisi2,sisi3:integer;
Ks:real;
begin
clrscr;
textcolor(12);
writeln('!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!');

writeln('! MENU UTAMA !');
writeln('^ PROGRAM HITUNG LUAS DAN KELILING ^');
writeln('! TERLENGKAP !! !');
writeln('($_$) (-_-) (@_@) (^_^)');

writeln;
writeln('1. Mengitung Keliling Lingkaran ');
writeln('2. Mengitung Keliling Persegi Panjang ');
writeln('3. Mengitung Keliling Segitiga ');
writeln('4. Keluar Program ');
writeln;
write('Pilihan Anda = ');readln(pil);
case pil of
1:begin
clrscr;
writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');
writeln('^ ^');
writeln('^ Menu 1 ^');
writeln('^ Menghitung Keliling lingkaran ^');
writeln('^ ^');
writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');
writeln;
writeln(' 1. Menghitung keliling lingkaran ');
pi:=22/7;
write('masukkan nilai r =');readln(r);
Kl:=2*p*r;
writeln('hasil keliling lingkaran =',Kl:3:2);
end;
2:begin
clrscr;
writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');
writeln('^ ^');
writeln('^ Menu 2 ^');
writeln('^ Menghitung Keliling Persegi Panjang ^');
writeln('^ ^');
writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');
writeln;
writeln(' 2. Menghitung Keliling Persegi Panjang');
write(' # Masukkan Lebar : ');readln(l);
write(' # Masukkan Panjang : ');readln(p);
kp:=2*(p+l);
writeln;
writeln(' Hasil Keliling Persegi Panjang = ',kp:3:2);
end;
3:begin
clrscr;
writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');
writeln('^ ^');
writeln('^ Menu 3 ^');
writeln('^ Menghitung Keliling segitiga ^');
writeln('^ ^');
writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');
writeln;
write('masukkan nilai sisi 1 = ');readln(sisi1);
write('masukkan nilai sisi 2 = ');readln(sisi2);
write('masukkan nilai sisi 3 = ');readln(sisi3);
Ks:=sisi1+sisi2+sisi3;
writeln('Hasil keliling Segitiga anda adalah = ',Ks:3:2);
end;
4:begin
clrscr;
writeln(' TERIMA KASIH TELAH MENGGUNAKAN PROGRAM KAMI');
end;
else
writeln(' Inputkan 1 - 4 saja');
end;
readln;
end.
readln;
end.
6. Looping adalah Pengalihan arus diagram alur kembali keatas sehingga beberapa arus berulang kembali beberapa kali. Contoh penggunaanya :
















7.




Senin, 07 Desember 2009

Sejarah Pascal

Sejarah Pascal

Bahasa PASCAL pertama kali dikembangkan pada awal tahun 70-an oleh NICLAUS WIRTH di Technical University, Zurich – Swiss.

Nama PASCAL diambil dari nama seorang ahli matematika bangsa Perancis, yaitu BLEISE PASCAL yang telah berjasa menemukan alat hitung mekanis pertama didunia pada abad ke-17.

Bahasa pemrograman ini termasuk kategori “High Level Language”. Instruksi-instruksi yang digunakan dalam bahasa pemrograman ini sangat sistematis dan terstruktur.

Pada Awalnya bahasa pemrograman ini diperkenalkan dengan tujuan untuk menjelaskan masalah pemrograman komputer bagi mahasiswa yang belajar pemrograman komputer.

Ternyata dalam waktu singkat, nahasa pemrograman ini menjadi salah satu bahasa yang sangat populer dikalangan universitas, sehingga menjadi julukan sebagai bahasa universitas.

Mulai dari awal perkembangannya hingga saat ini banyak sekali jenis bahasa pemrograman ini, masing-masing merupakan hasil pengembangannya, antara lain :

UCSD Pascal
Microsoft Pascal
Apple Pascal
Turbo Pascal
dsb

Diantara versi-versi yang ada, Turbo Pascal merupakan versi yang sangat populer saat ini.

Program Dasar Pascal

Program Dasar Pascal

Program …
Uses …

Var
… …
Begin
…statement…
End.

EXAMPLE:
Program Latihan1;
Uses wincrt;
Begin
Write(‘STMIK ASIA’);
End.


Untuk mengcompile, tekan F9
Untuk Runing, tekan Ctrl + F9

Struktur Pascal

Struktur Pascal

Struktur Pascal
1. Bagian Judul Program
2. Blok Program
a. Bagian Deklarasi
- Deklarasi tipe data (TYPE)
- Deklarasi variabel (VAR)
- Deklarasi konstanta (CONST)
- Deklarasi label (LABEL)
- Deklarasi sub-program (PROCEDURE dan FUNCTION)
b. Bagian Program Utama Perintah-perintah atau Pernyataan

STRUKTUR PROGRAM PASCAL PALING SEDERHANA
begin
statement-statement;
end.

Contoh Program Sederhana
begin
writeln('Saya sedang belajar Pascal');
writeln('--------------------------');
readln
end.

Unsur-unsur Pemrograman

Unsur-unsur pemrograman

a. Mendapatkan data dengan membaca data dari default input (key board, file atau sumber data lainnya).
b. Menyimpan data ke dalam memori dengan struktur data yang sesuai,
c. Memproses data dengan instruksi yang tepat.
d. Menyajikan atau mengirimkan hasil olahan data ke default output (monitor, file atau tujuan lainnya).

pengenal atau Identifier. Identifier digunakan untuk nama: Program, Sub-program (procedure dan function), nama: Variable, Constant, Type, Label.
Nama-nama ini digunakan untuk pemakaian dan pemanggilan dalam Nama yang dipergunakan du dalam program Pascal disebut dengan program. Ketentuan penulisan identifier
a. Nama identifier harus dimulai dengan karakter huruf alfabet: a sampai z, A sampai Z atau karakter '_' (underscore - garis bawah)
b. Karakter berikutnya boleh karakter numerik (0 .. 9) atau kombinasi alphanumerik (huruf-numerik).
c. Panjang nama, pada berbagai versi Pascal umumnya antara 32 - 63.
d. Tidak boleh menggunakan karakter istimewa: + - * / | \ = < > [ ] . , ; : ( ) ^ @ { } $ # ~ ! % & ` " ' dan ? Contoh penulisan:

Penulisan yang benar: NamaMahasiswa, Gaji_Karyawan, PX4, dll.
Penulisan yang salah: 3X, A & B, C Z dll.

Variabel














Deklarasi Variabel

Var
umur : byte;
nama : string;
Untuk memberikan suatu nilai pada variabel, pada statement masukan perintah:
<Nama_variabel> := <nilai>;

Contoh program

Var
umur : byte;
sekolah : string;
begin
umur := 20;
sekolah := ‘STMIK';
writeln('Umurku ',umur,' tahun');
writeln('Aku bersekolah di ',sekolah);
end.


Input dari User

Var
umur : byte;
sekolah : string;
begin
write('
Umur saya berapa? '); readln(umur);
write('
Sekolah saya di mana?'); readln(sekolah);
writeln('Umurku ',umur,' tahun');
writeln('Aku bersekolah di ',sekolah');
readln;
end.

Uses Crt

Beberapa perintah atau syntax yang memakai library ini adalah:

1.Clrscr : untuk membersihkan layar.
2.Textcolor : memberi warna pada tulisan.
3.TextBackground : memberi warna pada latar belakang tulisan tersebut.
4.GotoXY : memindahkan kursor ke posisi X,Y.
5.Sound, NoSound : membunyikan speaker dan menghentikannya.
6.Delay : menunda pemrosesan program beberapa waktu.
7.Textmode : mengubah besar karakter.