Diajukan
Untuk
memenuhi tugas mata kuliah Algoritma 2
Disusun
Oleh:
Mutiara
Clarisa 201143500560
Darisna
Sanjaya 201143500588
Defit Heru
S 201143500559
PROGRAM
STUDI TEKNIK INFORMATIKA
FAKULTAS
TEKNIK, MATEMATIKA, DAN IPA
UNIVERSITAS
INDRAPRASTA PGRI
JAKARTA
2011
BAB
I
Pendahuluan
1.1 Latar Belakang
Ada sebuah anekdot
tentang pandangan yang salah kaprah mengenai komputer. Sebagai sebuah mesin
“pintar”, komputer terlanjur dipercaya orang mampu mengerjakan perintah apa
saja yang diberikan oleh manusia.
Anggapan diatas tidak
seluruhnya salah. Komputer memang alat bantu dalam menyelesaikan masalah.
Persoalannya komputer tidak begitu saja langsung dapat menyelesaikan masalah
yang “disodorkan”. Orang harus merumuskan langkah-langkah penyelesaian masalah
itu dalam suatu runtutan instruksi. Komputerlah yang nanti mengerjakan runtutan
instruksi tersebut, karena komputer dapat mengerjakannya dengan cepat, akurat,
bahkan berulang-ulang tanpa kenal lelah dan bosan. Sekumpulan instruksi yang
merupakan penyelesaian masalah itu dinamakan program.
Agar program dapat
dilaksanakan oleh komputer, program tersebut harus ditulis dalan suatu bahasa
yang dimengerti oleh komputer. Bahasa komputer yang digunakan dalam menulis
program dinamakan bahasa pemrograman. Urutan langkah-langkah yang sistematis
untuk menyelesaikan sebuah masalah dinamakan algoritma.
Algoritma adalah urutan
langkah-langkah logis penyelesaian masalah yang disusun secara sistematis.
Sebagai pembanding dalam Kamus Besar Bahasa Indonesia algoritma adalah urutan
logis pengambilan putusan untuk pemecahan masalah.
Algortima adalah
jantung ilmu komputer atau informatika. Banyak cabang ilmu komputer yang diacu
dalam terminologi algoritma. Agar dapat dilaksanakan oleh komputer algoritma
harus ditulis dalam notasi bahasa pemrograman sehingga dinamakan program. Jadi,
program adalah perwujudan atau implementasi
algoritma yang ditulis dalam bahasa pemrograman tertentu sehingga dapat
dilaksanakan oleh komputer.
Program ditulis dalam
salah satu bahasa pemrograman, dan kegiatan membuat program disebut pemrograman
(programming). Orang yang menulis
program disebut pemrogram (programmer).
Tiap-tiap langkah didalam program disebut pernyataan
atau instruksi. Jadi, program
tersusun atas sederetan instruksi. Bila suatu instruksi dilaksanakan, maka
operasi-operasi yang bersesuaian dengan instruksi tersebut dikerjakan oleh
komputer.
BAB
II
PEMBAHASAN
Berikut adalah
beberapa contoh program pascal:
Program
If-Then-Else
Program MenghitungNilai;
Uses crt;
Var
Jumlahpoin, Nilaiperpoin, nilai:integer;
Begin
write('Jumlah Poin:');
read(Jumlahpoin);
write('Nilai Per-poin:');
readln(Nilaiperpoin);
nilai:=jumlahpoin*nilaiperpoin;
if Jumlahpoin=30 then
nilai:=nilai+(Jumlahpoin-30)*nilaiperpoin;
write('Nilai yang diperoleh sebesar:',nilai);
Readln
End.
Output:
Program For to do
Program banyak_huruf_dalam_kalimat;
uses crt;
var
n:array[1..26] of
integer;
i,j:integer;
kata :
String;
begin
for i:=1 to 26 do n[i]:=0;
write('Ketikkan
sebuah kalimat : ');readln(kata);
for i:=1 to length(kata) do
for j:=1 to 26 do
if ord(upcase(kata[i]))=64+j then
inc(n[j]);
for i:=1 to 13 do
Readln
end.
Output:
Program For To Do
Output:
Program TabelSuhu;
Uses Crt;
Var
c,r,f:real;
i:integer;
Begin
clrscr;
writeln('');
writeln(' Tabel Konversi Suhu ');
writeln('=================================');
writeln('||Celcius
| Reamur | Fahrenheit||');
writeln('=================================');
c:=10;
for i:= 1 to 5 do
begin
write(c:6:0);
r:=c*0.8;f:=c*1.8+32;
writeln(' ',r:6:2,' ',f:6:2);
c:=c+5;
end;
writeln('=================================');
readln;
end.
Program For Downto do
Program Berhitung_Mundur;
Uses crt;
Var
k,l:integer;
nama:string;
begin
clrscr;
for
k:=12 downto
1 do
begin
write(‘Urutan Barisan:’);
readln(k);
write(‘Nama Saya:’); readln(nama);
end;
writeln(‘Berhitung Mundur
Selesai’);
readln
end.
Program Searching
Program
sequential_search;
const
Nmax=100;
type
TabInteger
= array
[1..Nmax] of integer;
var
TabInt
: TabInteger;
jml_data,
x, i : integer;
begin
write('Banyaknya integer
: '); readln(jml_data);
for i:=1 to
jml_data do
begin
write('Nilai ke- ',i,' :
');
readln(TabInt[i]);
end;
write('Data yang akan
dicari : '); readln(x);
i:=1;
while (i<jml_data) and (TabInt[i]<>x) do
i:=i+1;
if TabInt[i]
= x then
writeln('Data ditemukan
pada posisi ke- ',i)
else
writeln('Data tidak
ditemukan!!');
readln;
end.
Program While Do
Program
HitungUpah;
Uses Crt;
Var
NamaKar : string;
JumlahJamKerja : integer;
upah : real;
jawab : char;
stop : boolean;
Begin
stop:=false;
while not stop do
Begin
write('Nama
Karyawan:'); readln(NamaKar);
write('Jumlah
Jam Kerja:'); readln(JumlahJamKerja);
if JumlahJamKerja <= 48 then upah:=(JumlahJamKerja*2000)
Else
if JumlahJamKerja > 48 then upah:=(48*2000)+(JumlahJamKerja-48)*3000;
writeln('Upah:', upah);
write('Ulangi
untuk karyawan yang lain? (y/t):');
readln(jawab);
Begin
if jawab='t' then
stop:=true;
readln
end;
end;
end.
Program Array
Program
Tiket;
uses
crt;
var
jp,i:byte;
np,nk:array[1..50]of
string;
fsl:array[1..50]of
char;
jml,hrg,ttl:array[1..50]of
real;
tot:real;
lagi:char;
label
awal,akhir;
begin
awal:
clrscr;
writeln(' STASIUN HARUS BERHENTI ');
writeln('================================');
write('masukan
jumlah pemesan :');readln(jp);
for
i:=1 to jp do
begin
writeln('Data
ke- ',i);
write('Nama
pemesan :');readln(np[i]);
write('Nama
kereta :');readln(nk[i]);
writeln('fasilitas
[ 1.VVIP 3.BISNIS ');
write('
2.VIP 4.EKONOMI ]=');readln(fsl[i]);
write('jumlah
pesan :');readln(jml[i]);
end;
writeln('
STASIUN HARUS BERHENTI ');
writeln('
PROGRAM PENJUALAN TIKET KERETA API');
writeln('-———————————————————————————————————————————————————————————————————————————-');
writeln(' NO.
Nama Pemesan Nama Kereta Fasilitas
Jumlah Pesan Harga total');
tot:=0;
for
i:=1 to jp do
begin
if
fsl[i]='1' then
hrg[i]:=200000
else
if
fsl[i]='2' then
hrg[i]:=180000
else
if
fsl[i]='3' then
hrg[i]:=140000
else
hrg[i]:=80000;
ttl[i]:=hrg[i]*jml[i];
tot:=tot+ttl[i];
end;
for
i:=1 to jp do
begin
writeln(i:1,np[i]:10,nk[i]:12,fsl[i]:15,jml[i]:14:0,hrg[i]:12:0,ttl[i]:10:0);
end;
writeln('-———————————————————————————————————————————————————————————————————————————-');
writeln('total
pembayaran=',tot:9:0);
writeln('-———————————————————————————————————————————————————————————————————————————-');
write('Mau
input data lagi[Y/T]=');readln(lagi);
if
(lagi='Y') or (lagi='Y') then
goto
awal
else
goto
akhir;
akhir:
readln;
end.
Program Array 2 Dimensi
program
matriks;
uses
wincrt;
const
kolom=2;
baris=2;
type
matrik=array[1..baris,1..kolom] of integer;
var
aku :matrik;
m,n :integer;
begin
{Isi
matrik}
writeln('Memasukan
Data Matriks');
writeln('========================');
writeln;
for
m:= 1 to kolom do
begin
for n:= 1 to baris do
begin
write('Data ke [',m,',',n,']:
');readln(aku[m,n]);
end;
end;
clrscr;
{Tulis
matrik}
writeln('Menampilkan
Data Matriks');
writeln('========================');
writeln;
for
m:= 1 to kolom do
begin
for n:= 1 to baris do
begin
writeln('Data ke [',m,',',n,']:
',aku[m,n]);
end;
end;
Output:
BAB
III
PENUTUP
A.
Kesimpulan
Pemrograman
pascal adalah pemrograman dengan bahasa program yang masih sederhana. Dalam
pemrograman pascal, apabila terjadi kesalah dalam titik dan tanda-tanda ny mka
program tersebut tidak dapat dijalankan.
Dalam
papper ini terdapat beberapa program pascal yang mungkin bisa bermanfaat dan menambah wawasan kita semua.
B.
Saran
Untuk
membuat program yang baik sebainya kita juga memahami algoritmanya dengan baik.
Agar program tersebut bisa berjalan sesuai apa yang telah rencanakan.
DAFTAR
PUSTAKA
Liem, Inggriani, Diktat
Kuliah Algoritma dan Pemrograman Prosedural, Jurusan Teknik Informatika ITB,
1996.
Kernighan, Brian W.
& Ritchie, Dennis M., The Ansi C Programming Language, Prentice Hall, 1988.
Muni, Rinaldi, 1999,
Algoritma & Pemrograman, Bandung: Informatika.
0 komentar:
Posting Komentar