rangkuman pascal
Rangkuman Pascal
§ Menjalankan Turbo Pascal for Windows
· Klik toolbar Start sehingga layer muncl menu pilihan.
· Pilihlah pada menu pilihan yaitu dengan mengklik program.
· Pilihlah TPW 1.5 .
§ Struktur Program Pascal
Program (kumpulan intruksi atau perintah yang disusn sedemikian hingga mempunyai urutan nalar yang tepat untuk menyelesaikan suatu persoalan
Program BAGAN_PROGRAM; {***nama program ***}
Uses..................... {***deklarasi piranti***}
Label.................... {***deklarasi label***}
Const.................... {***deklarsi konstanta***}
Type..................... {***deklarasi tipe data***}
Var...................... {***deklarasi variabel***}
Procedure SATU;
Procedure DUA;
Begin {***awal program utama***]
.
.
.
.
End. {***akhir program utama***]
§ Tipe data
Ø Tipe integer : tipe data yang nilainya yang tidak mempunyai titik desimal. Terdiri dari rangkaian angka / digit 0 sampai 9. Penulisan bilangan bulat negatif diawali dengan symbol minus.
| Tipe | Batas nilai | Ukuran dalam byte |
| Byte Shortint Integer Word longint | 0...255 -128.....127 -32768..........32767 0.............65535 -2147483648......2147483648 | 1 1 2 2 4 |
Operator-operator dalam integer :
| Operator | Kegunaan |
| + - * div mod | Penjumlahan Pengurangan Perkalian Pembagian Hasil bagi |
Ø Tipe boolean : mempunyai nilai benar atau salah. Umunya diperoleh dari hasil pembandingan dua nilai.
Ø Tipe char : untuk mendefinisikan tipe data yabg nilainya merupakan himpunan karakter yang dikenal komputer seperti yang tersaji dalam tabel ASCII. Penulisan diapit tanda petik (‘ ‘). Misalnya :’a’ ‘b’ ‘,’ ‘4’ .
Ø Tipe data real : data yang berisi titik desimal. Jangkauannya 2.9 x 10E-39 .............1.7 x 10E38. Terdiri dari rangkaian difit 0 sampai 9 , delenfkapi dengan satu buah titik desimal diantara rangkaian digit tersebut. Penuisan bilangan negatif diawali dengan anda minus.
Operator-operator dalam real :
| Operator | Kegunaan |
| + - * / | Penjumlahan Pengurangan Perkalian Pembagian |
Ø Tipe string : data yang berisi sederetan karakter yang banyaknya karakter bisa berubah ubah sesuai kebutuhan yaitu dari 1 sampai 255 karakter. Misal : ‘nama’ , ‘sely’ .
§ Perbedaan write dan writeln
Write : menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama.
Writeln : untuk menmpilkan perbaris, akan ganti baris untuk tampilan berikutnya.
Contoh program (write):
Program latihan2;
Var
Nama : string;
Begin
Nama :=selly;
Write(nama);
End.
Bila program ini dijalankan, maka akan ditampilkan hasil :
Nama : Selly
Contoh program (writeln) :
Program latihan3;
Var
Nama : string;
Begin
Nama : selly;
Writeln(nama);
End
Bila program ini dijalankan, maka akan ditampilkan hasil :
Nama:
Selly
§ Pengaturan Tata Letak
Ø Prosedur Clrscr
Untuk membersihkan layar dari tampilan-tampilan sebelumnya dan meletakkan cursor di posisi ujung kiri atas dari layar.
Ø Prosedur gotoxy
Untuk meletakkan posisi kursor di posisi layar yang ditunjuk oleh nilai XPOS dan YPOS.
Contoh :
Program Latihan4;
Uses wincrt;
Begin
Clrscr;
Gotoxy(10,15);
Writeln(‘pascal’);
End.
Bila program ini dijalankan, akan didapatkan hasil :
Kolom 10 Baris 15 Pascal
§ Penyeleksian Kondisi
1. Satatement if-then
Akan mencek suatu kondisi tersebut bernilai salah atau benar.
Bentuk umum :
If kondisi then statement 1
Contoh:
Program mencari_bilangan_genap_dan_ganjil;
Uses wincrt;
Var bi,a : integer;
Begin
Clrscr;
Writeln(‘bilangan : ‘,a);
If a=0 then writeln(‘bilangan nol’) else
If a mod 2 =0 then writeln(‘bilangan genap’)
Else writeln(‘bilangan ganjil ‘);
End.
2. Satement case-of
Berisi ungkapan (pemilihan) dan sederetan statement, yang masing-masing diawali dengan satu atau lebih konstanta.
Bentuk umum :
Case pemilih of
Konstanta1 : satement1;
Konstanta2: statement2;
.
.
End;
Keterangan :
Pemilih : nama perubah sebagai pemilih.
Konstanta1 dan kontanta2 : kemungkinan-kemungkinan nilai pemilih.
Statement1,statement2 : statement yang akan dikerjakan sesuai dengan nilai pemilih.
Contoh program pemilihan hari :
Program Tipe_data_caseof;
Uses Wincrt;
var ahad,senin,selasa,hari_ke: integer;
Begin
writeln('masukkan hari:');readln(hari_ke);
writeln;
begin
writeln('masukkan hari : ',hari_ke);
case hari_ke of
1 : writeln('ahad');
2 : writeln('senin');
else writeln ('selasa');
end;
end;end.
§ Perulangan
1. While do
Bentuk umum :
While (kondisi) do pernyataan
Flowchart
Pada bentuk ini pengulangan terhadap pernyataan dilakukan terus selama kondisi bernilai benar(true). Apabila kondisi salah (false) maka kemungkinana pernyataan tidak akan diproses.
2. Repeat until
Bentuk umum :
Repeat
.........
Intruksi-intruksi
.......
Until (kondisi)
Pada bentuk ini pelaksanaan intruksi akan diulang hingga kondisi terpenuhi.
3. For
Digunakan untuk melakukan pengulangan yang jumlahnya diketahui sebelumnya.
Macam –macam for :
a. For positif (for to do)
Dari kecil ke besar
Contoh program :
Program For;
Uses wincrt;
Var i : integer;
Begin
Clrscr;
For i:=1 to 5 do writeln(i);
End.
b. For negatif (for down to )
Dari besar ke kecil
Contoh program :
Program For2;
Uses wincrt;
Var i :integer;
Begin
For i:= 5 down to 1 writeln(i);
End.
§ Array (larik)
· Data,elemen data sama,disimpan dalam satu variabel.
· Deklarasi array:
Array [indeks array...indeks akhir] of type data
Var x : array [1..100] of integer;
· Guna array untuk menyimpan data banyak sesuai tumpukan.
· Array 1dimensi
Contoh program memasukkan data :
Program array;
Uses wincrt;
Var x : array [1..100] of integer;
n,i : integer;
begin
writeln(‘program array’);
writeln;
write(‘masukkan jumlah data : ‘);readln(n);
writeln;
for i :=1 to n do
readln(x[i]);
writeln;
write (‘data yang telah dimasukan:’0;
for i:=1 to n do
write(x[i],’ ’);
end.
· Array 2 dimensi
Contoh program membuat matriks :
Program matriks;
Uses wincrt;
Var x :array [1..10,1..10] of integer;
I,j,baris,kolom : integer;
Begin
Clrscr;
Writeln(‘masukkan jumlah baris : ‘);readln(baris);
Writeln(‘masukkan jumlah kolom : ‘);readln(kolom);
Writeln;
Gotoxy(10,5);write(‘A = ‘);
For i :=1 to baris do
For j:=1 to kolom do
Begin
Gotoxy(j*5,i*2+3);
Readln(x[i,j]);
End;
End.
§ Procedure
Contoh program :
Program menu_makanan;
Uses wincrt;
Var a,b,x : string;
Procedure paket1;
Begin
Writeln(‘bakso’);
End;
Procedure paket2;
Begin
Writeln(‘soto’);
End;
Procedure paket3;
Begin
Writeln(‘mie ayam’);
End;
Begin
Writeln (‘menu’);
Writeln(‘1: bakso’);
Writeln(‘2:soto’);
Writeln(‘3:mie ayam’);
Writeln(‘pilihanmu : ‘);readln(a);
Clrscr;
If a=1 then paket1 else
If a=2 then paket 2 else
If a=3 then paket 3 else
Writeln(‘ tolong pilih lagi ‘);
End.
