Kamis, 12 April 2012

contoh program pascal


Setelah mempelajari program pascal tentu ingin menco membuat sebuah percobaan,nah kalau anda berminat silahkan Salinlah program berikut ini :

programgram P0101;
{ program untuk menampilkan data diri }
uses Crt;
var
nama, alamat,hobby: string;
{ program utama }
begin
Writeln(' Program Penampil Data Diri ');
A * 2 + 5
operator
expression
s
operand

Writeln('********************************');
Write('Masukkan Nama : ');
Readln(nama);
Write('Masukkan Alamat : ');
Readln(alamat);
Write('Masukkan Hobby : ');
Readln(hobby);
Writeln;
Writeln('Hallo ',nama,' !!! kamu tinggal di ',
alamat, ' dan Hobbymu adalah ',hobby);
Readln;
end.

Kompilasi program tersebut dengan menekan Alt+F9 dan jalankan
program tersebut dengan menekan Ctrl+F9, kemudian amati hasilnya
bila dimasukkan masukan tertentu.
Sekarang simpan program tersebut dengan memilih menu File lalu
pilih Save. Simpan dengan nama Prak1_01.PAS.
Kemudian coba lakukan kompilasi ke pengingat bantu. Hasil dari
kompilasi ke pengingat bantu ini adalah sebuah berkas bernama
Prak1_01.EXE.
Berikut ini akan diperkenalkan penggunaan konstanta dalam
program. Salinlah program berikut ini :

program P0102;
{ program untuk Menghitung Luas Lingkaran }
uses Crt;
const
phi=3.14159;
var
luas, jejari: Real;
begin
Writeln('Program Menghitung Luas Lingkaran ');
Writeln('******************************************');
Write('Masukkan Jari-jari Lingkaran : ');
Readln(jejari);
luas := phi * sqr(jejari);
Writeln('Luas Lingkaran adalah : ', round(luas));
Readln;
end.

Kompilasi dan jalankan program tersebut, kemudian amati hasilnya
bila dimasukkan masukan tertentu. Apa yang terjadi bila nilai jejari sama
dengan nol? Apa pula yang terjadi jika nilai jejari diisi dengan huruf?
Untuk lebih memahami pendeklarasian dari type, konstanta dan
variabel serta penggunaannya dalam pembuatan statement, salinlah
program di bawah ini

program P0103;
{ program untuk Menampilkan Biodata Diri }
uses Crt;
type
str10 = string[10];
const
koma=',';
var
nama1,nama2 : str10;
alamat : string;
usia ,thn_lhr,thn_skr: Integer;
begin
Write('Masukkan Nama Depan : ');
Readln(nama1);
Write('Masukkan Nama Belakang : ');
Readln(nama2);
Write('Masukkan Alamat : ');
Readln(alamat);
Write('Masukkan Tahun Lahir : ');
Readln(thn_lhr);
Write('Masukkan Tahun Sekarang : ');
Readln(thn_skr);
usia := thn_skr - thn_lhr;
Writeln;
Writeln('=== BIODATA DIRI ===');
Writeln(nama2,koma,nama1);
Writeln(alamat);
Writeln(usia,' tahun');
Readln;
end.
Kompilasi dan jalankan program di atas. Amati keluaran yang
dihasilkan dan pahami logikanya. Pada penghitungan usia jelas bahwa
peubah yang berada pada ruas kiri suatu pernyataan pemberian akan
berubah nilainya sesuai dengan nilai ungkapan yang berada di ruas
kanannya.

Tidak ada komentar:

Poskan Komentar

Diberdayakan oleh Blogger.

Out Sponsor