A. PENGERTIAN PROGRAM PASCAL
Program adalah kumpulan pernyataan komputer, sedangkan metode dan
tahapan sistematis dalam program adalah algoritma. Program ditulis dengan
menggunakan bahasa pemrograman. Jadi bisa disebut bahwa program
adalah suatu implementasi dari bahasa pemrograman
Pascal adalah bahasa pemrograman.
Kumpulan program pascal ini merupakan kumpulan latihan saat penulis belajar bahasa
pemrograman pascal. Penulis menggunakan Turbo Pascal for Windows (TPW) Versi
1.5 sebagai kompilernya. Mungkin ada kekurangan disana sini, tapi mudah-mudahan
kumpulan program ini bermanfaat bagi pembaca yang berminat dan baru mempelajari
bahasa pemrograman pascal.
1.1. Program perkenalan
Adalah program memperkenalkan yang menggunakan turbo pascal for widows (TPW) versi 1.5
Contoh :
Program perkenalan;
Uses wincrt;
Begin
Write(‘belajar pascal’);
Writeln(‘TPW 1.5’);
Write(‘di ruang lab. 1’);
End.
1.2. Program biodata
Adalah program untuk memperkenalkan mahasiswa
Contoh :
Program perkenalan;
Uses wincrt;
Begin
Writeln(‘program biodata’);
Writeln(‘nama : miftahul madani’);
Writeln(‘nim : 1110520084’);
Writeln(‘jurusan : S1 tehnik informatika’);
Writeln(‘kls : A’);
End.
· Tipe data
- Tipe data sederhana (integer)
a. Shortint
b. Byte
c. Word
d. Login
- Bilangan pecahan (real)
- Character (a-z,0-9)
- Boolean (true / false)
- String (text)
· Operator dalam pascal
- + : penjumlahan
- - : pengurangan
- * : perkalian
- / : pembagian => hasilnya real type
- Div : hasil bagi => “integer”
- Mod : sisa bagi => “integer”
- = : menyatakan nilai
- = : sama dengan
- <.< : kurang dari
- >.> : lebih dari
- <.> : kurang dari / sama dengan dan lebih dari
1.3. Program luas segitiga
Adalah program untuk mencari luas segitiga
Contoh:
Program luas_segitiga;
Uses wincrt;
Var
A,t : integer;
L : real;
Begin
Writeln(‘program luas segitiga’);
Write(‘masukkan alas: ‘);readln(a);
Write(‘masukkan tinggi: ‘);readln(t);
L:=(a*t)/2;
Writeln(‘luas segitiga:’,L:0:0);
End.
1.4. Program lingkaran
Adalah program untuk mencari luas dan keliling lingkaran
Contoh :
Program lingkaran;
Uses wincrt;
Const
Phi = 3.14;
Var
R : integer;
L,K : real;
Begin
Writeln(‘program lingkaran’);
Write(‘masukkan jari : ‘);readln(r);
L:=phi*r*r;
Writeln(‘luas lingkaran:’,L:0:0);
K:=2*phi*r;
Writeln(‘keliling lingkaran:’,K:0:0);
End.
1.5. Program untuk mengulang
Contoh :
Program lingkaran;
Uses wincrt;
Const
Phi = 3.14;
Label
Mulai;
Var
R : integer;
L,K : real;
Ulang : char;
Begin
Mulai:
Clrscr;
Writeln(‘program lingkaran’);
Write(‘masukkan jari : ‘);readln(r);
L:=phi*r*r;
Writeln(‘luas lingkaran:’,L:0:0);
K:=2*phi*r;
Writeln(‘keliling lingkaran:’,K:0:0);
Writeln(‘mau coba lagi [Y/T]: ‘);readln(ulang);
If (ulang = ‘Y’) or (ulang = ‘y’) then
Goto mulai
End.
1.6. Program tipe data
Contoh :
Program tipe_data;
Uses wincrt;
Var
Nm,pes : string;
nim : integer;
Begin
Nm:=’asep’;
Nim:=’1110520084’;
Pes:=’mahir algoritma dan pemrograman’;
Writeln;
Writeln(‘nim mahasiswa: ‘,nim);
Writeln(‘nama mahasiswa:’,nm);
Writeln(‘keterangan:’,pes);
End.
1.7. Program bilangan bulat
Contoh :
Program bil_bulat;
Uses wincrt;
Var
I : real;
Begin
Write(‘masukkan angka: ‘);readln(i);
Writeln(‘hasil pembulatan:’,i:0:0);
End.
Ø Kondisi pada pascal
- Label => merupakan posisi akhir program kembali ke awal untk melakukan kondisi
- Const => merupakan sebuah tetapan matematik (phi = 22/7) yang di mana akan langsung di panggil program tanpa ada innputannya
- Type => deklarasi beberapa tipe data / pengenalan tipe data
- Var => deklarasi variabel pengenalan dengan tipe datanya
- If…then => merupakan kondisi pilihan dari dua buah penyelesaian yang bersifat true dan false
- Char => merupakan karakter yang di inputkan dari keyboard (‘, * + ) dll
- Case…of => kondisi pilihan dari beberapa menu pilihan
a. If…then => menyatakan bila kondisi yang diseleksi akan diproses terpenuhi, maka pernyataan yang mengikuti then akan diproses . sebaliknya, bila kondisi tidak terpenuhi, maka akan diproses pernyataan berikutnya
ð If…then…else => pernyataan akan diproses apabila kondisi benar (terpenuhi) sedangkan pernyataan tidak akan diproses apabila kondisi tidak terpenuhi
b. Case…of => bila salah satu kondisi terpenuhi dan pernyataan tsb telah diproses, selanjutnya pernyataan yang lainnya dalam lingkungan case tidak akan diseleksi lagi
ð Case…of…else => bila tidak ada kondisi yang terpenuhi, maka pernyataanyang akan diproses di dalam lingkungan case…of adalah pernyataan yang ada di else.
1.8. Program kondisi
Contoh : 1
Program kondisi;
Uses wincrt;
Var
Nilai : integer;
Begin
Write(‘masukkan nilai: ‘);readln(nilai);
If (nilai>=60) then
Writeln(‘anda lulus’)
Else
Writeln(‘anda tidak lulus’);
End.
Contoh : 2
Program kondisi_bil_genap;
Uses wincrt;
Var
Ni : integer;
Bil : real;
Begin
Write(‘masukkan nilai:’);readlnn(ni);
If (bil:=0) then
Writeln(‘bilangan genap’);
Else
Writeln(‘bilangan ganjil’);
End.
1.9. Program menu
Adalah program untuk memilih beberapa menu
Contoh : 1
Program menu;
Uses wincrt;
Var
Huruf : char;
Begin
Write(‘masukkan huruf: ‘);readln(huruf);
Case upcase(huruf) of
‘A’: writeln (‘sangat baik’);
‘B’: writeln(‘baik’);
Else
Writeln(‘huruf salah’);
End;
End.
Contoh : 2
Program menu;
Uses wincrt;
Var
N : char;
Hari,agenda : string;
Begin
Write(‘masukkan huruf: ‘);readln(n);
Case upcase(huruf) of
‘A’: begin
Hari:=’senin’;
Agenda:=’makan bareng’;
‘B’: begin
Hari:=’selasa’;
Agenda:=’joging’;
End;
Else
Writeln(‘huruf salah’);
End;
Writeln(‘hari’ => ‘,hari,’acara=>’,agenda);
End;
End.
Program perulangan
Program perulangan
Contoh : 1
Program perulangan;
Uses wincrt;
I : byte;
N : integer;
Begin
Write(‘masukkan angka: ‘);readln(n);
For i:=1 to n do
Begin
Writeln(i);
End;
End.
Contoh : 2
Program perulangan;
Uses wincrt;
Var
I : byte;
Begin
I:=4;
While i<46 do
Begin
Write(i:=3);
I:=i+3;
End;
End.
Contoh : 3
Program perulangan;
Uses wincrt;
Var
I : word;
Nm : string;
Begin
Write(‘masukkan kalimat: ‘);readln(nm);
For i:=word(nm[0]) down to 1 do
Begin
Writeln(nm[i]);
End;
End.
Program mencetak segitiga
1.1. Program membuat segitiga dgn bintang
program menyusun_bintang;
Uses Wincrt;
Var
i,j,n:integer;
Begin
Write('Masukkan Jumlah Baris: ');Readln(n);
For i:= 1 to n do
Begin
Gotoxy(40-3*i,1+i);
For j:= 1 to i do
write('*':6);
End;
End.
1.2. Program membuat segitiga dgn angka
Program Menyusun_Angka;
Uses Wincrt;
Var
i,j,n:integer;
begin
Write('Masukkan Jumlah Baris: ');Readln(n);
For i:= 1 to n do
Begin
Gotoxy(40-3*i,1+i);
For j:= 1 to i do
write(i:6);
End;
End.
A. Perogram pascal pang memakai perulangan
1.program while..do yaitu program yang diputar selama kondisi di penuhi...
contohnya
uses crt;
var
i :byte;
begin
i:=0;
while i<=5 do
begin
writeln(i);
i:= i+1;
end.
2.program for..do yaitu perogram perulangan counter karna batasan maksimalnya sudah pasti
contohnya
uses crt;
var
i:byte;
begin
clrscr;
for i:=1 t0 5 do
writeln('pascal')
readln;
end.
3.program repeat..until yaitu program yang mengulang ulang suatu proses terus menerus sampai kondisi tertentu terpenuhi (kondisi tidak terpenuhi
contohnya
uses crt;
var
i:byte;
begin
clrscr;
i:=1;
repeat
writeln(i);
i:=i+1;
until i>=5
end.
B. program deklarasi label
yaitu deklarasi untuk mengulang sebuah program tertentu, apa bila program itu tepenuhi maka program akan terus berjalan da bila program itu tdk terpenuhi, maka program itu akan berhenti
contohnya
program luas_balok;
uses crt;
label
mulai;
var
p,lbr:integer;
L:real;
ulang:char;
begin
writeln('program luas balok');
write('masukkan panjang: ');readln(p);
write('masukkan luas: ');readln(lbr);
writeln;
L:=p*l;
writeln('luas balok:',l:0:0);
write('mau coba lagi [T/Y]: ');readln(pilih);
if (pilih='Y') or (pilih='y') then
goto mulai;
clrscr;
writeln('terimakasih')
end.
1. perogram untuk mencari luas dan keliling lingkaran dengan menggunakan const
contohnya
uses crt;
const
phi=3.14;
var
r:integer;
L,K:real;
begin
writeln('program lingkaran');
write('masukkan jari: ');readln(r);
K:=2*phi*r;
writeln(keliling lingkaran:',K:0:0);
L:=phi*r*r;
writeln("luas lingkaran:',L:0:0);
end.
B. TUGAS PASCAL
program array_searching;
uses wincrt;
var
a:array [1..5] of string;
i :byte;
cetak:string;
begin
a[1]:='aaaaaaaa';
a[2]:='bbbbbbbb';
a[3]:='cccccccc';
a[4]:='dddddddd';
a[5]:='eeeeeeee';
for i:=1 to 5 do
writeln(i, ' ',a[i]);
write('masukkan indeks pencarian elmen: ');readln(i);
begin
if (i=0) or (i>5) then
cetak:='data tidak ditemukan'
else
cetak:=a[i];
writeln('indeks [',i,'] yaitu [',cetak,']');
end;
end.
0 komentar:
Posting Komentar