Warung Online

Welcome

Free Download... *.DOCS / *.PAS ...NO PASS

February 29, 2012

PROGRAM MENENTUKAN BILANGAN GENAP ATAU GANJIL DENGAN PASCAL

6:41:00 PM  diodavid89.blogspot.com  

program Menentukan_Bilangan_Genap_atau_Ganjil;
uses crt;
var angka : integer;
begin
clrscr;
writeln('MENENTUKAN BILANGAN GENAP ATAU GANJIL');
writeln;
write('Masukkan angka: '); readln(angka);
writeln;

if (angka mod 2 = 0) then
writeln(angka,' adalah Bilangan Genap')
else writeln(angka,' adalah Bilangan Ganjil');
readln;
end.

mod digunakan untuk mencari sisa hasil bagi. Contoh 5 mod 2 = 1 atau 4 mod 2 = 0. 





Read More

PROGRAM MENGHITUNG LUAS DAN KELILING SEGITIGA DENGAN PASCAL

9:55:00 AM  diodavid89.blogspot.com  

program Menghitung_Luas_dan_Keliling_Segitiga;
uses crt;
var  luas, alas, tinggi, sisimiring, keliling : real;
begin
clrscr;
writeln('MENGHITUNG LUAS DAN KELILING SEGITIGA');
writeln;
write('Masukkan alas : '); readln(alas);
write('Masukkan tinggi : '); readln(tinggi);

luas:= 0.5*alas*tinggi;
sisimiring:=sqrt(sqr(alas)+sqr(tinggi));
keliling:= alas + tinggi + sisimiring;

writeln;
writeln('Luas segitiga : ', luas:0:2);
writeln('Keliling segitiga : ', keliling:0:2);
readln;
end.

Dalam program diatas, semua variabel bertipe real. 
sqrt berfungsi untuk mengakarkan dan sqr untuk mengkuadratkan.
Pada luas dan keliling terdapat :0:2, digunakan untuk membatasi angka dibelakang koma menjadi 2.


 DOWNLOAD HERE...

DOWNLOAD PROGRAM (.PAS)...

Read More

February 28, 2012

LOOPING DAN ARRAY PADA PASCAL

7:34:00 PM  diodavid89.blogspot.com  

Di dalam Pascal terdapat beberapa perintah pengulangan (Looping), salah satunya adalah REPEAT….UNTIL…. dan FOR…DO atau FOR….DOWNTO…DO… .
Contoh program dengan perintah REPEAT UNTIL :
Ketikkan syntax berikut dibawah ini




 
Pada program diatas dapat dilihat :
1.       Menggunakan USES CRT,
2.       Mendeklarasikan variable I sebagai INTEGER,
3.       BEGIN, CLRSCR dan variabel I diberi nilai 0,
4.       Memulai pengulangan dengan REPEAT  dengan statement (lihat diatas)agar nilai I bertambah 1 setiap pengulangan,
5.       WRITE untuk menampilkan nilai pada I,
6.       UNTIL untuk membatasi pengulangan hingga nilai I = 10,
7.       READLN dan END untuk mengakhiri program.  
Outputnya :




Contoh program dengan perintah FOR DOWNTO DO dan FOR TO DO :
Ketikkan syntax berikut dibawah ini





Pada program diatas dapat dilihat :
1.       Menggunakan USES CRT,
2.       Mendeklarasikan variable I, J, N, M, dan B sebagai INTEGER,
3.       BEGIN, CLRSCR dan WRITE untuk menampilkan ‘MASUKKAN ANGKA : ’ , READLN(I); untuk membaca nilai yang yang diberi oleh user dan diwakili dengan variable I, 
4.       Memulai pengulangan dengan FOR J sebagai pencacah, I pada baris ini sebagai batas atas pencacah dan DOWNTO 1 sebagai batas bawah pencacah.
5.       BEGIN dan FOR N untuk pengulangan N didalam proses pengulangan J,
6.       WRITE untuk menampilkan nilai N,
7.       END; mengakhiri pengulangan, READLN dan END untuk mengakhiri program. 

Output dengan memasukkan angka 5 : 

 
Contoh program Array :
Ketikkan syntax berikut dibawah ini


Pada program diatas dapat dilihat :
  1. Menggunakan USES CRT,
  2. NPM : ARRAY [1..20] OF STRING [8], berarti array NPM mempunyai 20 buah elemen yaitu dari 1 sampai 20 dengan tipe data string sebatas 8 karakter dst.,
  3. Variabel BANYAK untuk menentukan banyak data yang diinginkan User, dan variabel I sebagai variabel index dengan menggunakan pengulangan FOR I := TO BANYAK DO
  4. WRITE NPM, NAMA, NILAI, UMUR untuk menampilkan data apa saja yang akan dimasukkan oleh User , READLN untuk membaca nilai yang yang dimasukan oleh user dan diwakili dengan variabel masing – masing ditambah variabel indeks I, 
  5. WRITELN untuk menampilkan kata NPM, NAMA, dst. dengan masing – masing spasi yang ditentukan (lihat diatas),
  6. FOR I dan WRITELN merupakan pengulangan yang kedua untuk menampilkan data yang sudah dimasukkan sebanyak data yang dimasukkan (I) oleh User,
  7. END; mengakhiri pengulangan, READLN dan END untuk mengakhiri program.Output 
Dengan BANYAK DATA = 1 :



DOWNLOAD HERE....

Read More

February 27, 2012

KONDISI PADA PASCAL

5:00:00 PM  diodavid89.blogspot.com  

KONDISI PADA PASCAL
Di dalam Pascal terdapat beberapa perintah kondisi, salah satunya adalah IF…THEN… dan Case….Of….. .
Contoh program dengan perintah IF THEN :
Ketikkan syntax berikut dibawah ini



Pada program diatas dapat dilihat :
  1. Ketik USES CRT, lalu deklarasikan variabel X  sebagai real, dan variable Y sebagai string.
  2. Lalu BEGIN, CLRSCR, dan variabel Y diberi nilai ‘TIDAK LULUS’
  3. WRITE akan menampilkan ‘NILAI ANDA :  ’, dan readln(X) akan membaca angka yang ditulis oleh User,
  4. Kondisi IF X > 60 akan membuat nilai Y dari ‘TIDAK LULUS’ menjadi ‘LULUS’, apabila Y < 60 maka nilai Y tetap ‘TIDAK LULUS’,
  5. WRITELN(Y) akan menampilkan hasil proses kondisi sebelumnya, lalu READLN DAN END,
  6. Jalankan program dengan NILAI ANDA : 70, maka outputnya adalah sebagai berikut


Contoh program dengan perintah CASE OF :
Ketikkan syntax berikut



  1. Dimulai dengan USES CRT, lalu deklarasikan variable NILAI sebagai CHAR,
  2. BEGIN,CLRSCR, WRITELN NILAI ANDA dan READLN(NILAI) untuk membaca character yang ditulis oleh User,
  3. CASE (NILAI) OF untuk membuat variabel NILAI mempunyai 3 pilihan. ‘a’ sebagai Tshirt, ‘b’ sebagai Sepatu, ‘c’ sebagai Topi,
  4. END; untuk mengakhiri CASE OF, lalu READLN dan END. untuk mengakhiri program. 
Dengan memasukkan a pada NILAI ANDA  maka outputnya akan seperti berikut

 


Sumber : Laporan Akhir ( LA ) Praktikum Pascal - Kondisi pada Pascal

DOWNLOAD HERE....

 

Read More

February 26, 2012

PROGRAM SEDERHANA PASCAL

8:49:00 PM  diodavid89.blogspot.com  

BAHASA PEMROGRAMAN PASCAL

Pascal adalah salah satu bahasa pemrograman tingkat tinggi. Sebelum menuliskan statement  pada Pascal, harus mendeklarasikan terlebih dahulu variabel – variabelnya.

Contoh Program 1 :
 Jalankan TURBO.EXE, lalu ketikkan syntax berikut 





Pada program ini akan dibuat program biodata sederhana. Pertama, ‘USES CRT’ menerangkan bahwa program tersebut menggunakan unit crt. Seperti yang telah disebutkan sebelumnya, kita harus mendeklarasikan variabel yaitu ‘NAMA’ dan ‘NPM’ sebagai variabel string. ‘BEGIN’ sebagai awal dari blok program yang akan diproses, dan ‘CLRSCR’ sebagai instruksi untuk menghapus layar setelah output dikeluarkan. ‘WRITELN’ digunakan untuk menampilkan kata BIODATA dengan kursor berganti baris, ‘WRITE’ untuk menampilkan kata di tempat yang sama dan ‘READLN’ untuk membaca masukan dari keyboard. 

Selanjutnya, jalankan program diatas ( gunakan menu Run > Run atau tekan CTRL + F9 ), maka akan muncul outputnya. Pada ‘NAMA’ dan ‘NPM‘ isi dengan nama dan npm kita. Lalu tekan enter maka akan muncul hasilnya seperti dibawah ini
         




Contoh Program 2 :
Ketikkan syntax berikut





Program yang kedua ini lebih sederhana daripada program yang pertama, yaitu menampilkan output ‘HALLOWORLD’. Berbeda dengan program pertama, program ini tidak memakai variabel sehingga tidak perlu mendeklarasikan variabel. ‘USES CRT’. ‘BEGIN’ mengawali blok program dan ‘WRITE’ untuk menampilkan ‘HALLOWORLD’. Selanjutnya jalankan program (CTRL + F9), maka output akan muncul sebagai berikut







Sumber : Laporan Akhir ( LA ) Praktikum Pascal - Intro Pascal



Read More