Laporan AkhPrair ktikum
Mata praktikum : Pemograman Pascal dan C++
Semester :
1 (satu)
Praktikum ke :
10 (Sepuluh)
Tanggal : 26 November 2012
Materi :
Membuat Program Array Pascal &
C++
NIM :
A 1312022
Nama :
Iriani
Nama Dosen :
Hendrik Setyo Utomo ST
Nama
Asisten
Paraf Dosen :
Jumlah lembar : 9 Lembar
Laboratorium Informatika
POLITEKNIK
TANAH LAUT
2012
Program Sederhana Menggunakan ARRAY Pada PASCAL
Listing Program
uses
crt;
const
max=50;
type
TamuHotel
= record
NAMA : string [30] ;
KAMAR : string [10] ;
waktu : array [1..2] of real;
end;
Tkumpulanwarnet
= array[1..max] of TamuHotel;
var
A
: Tkumpulanwarnet;
i,N:
Integer;
NA:
real;
durasi:real;
begin
clrscr;
textcolor(15);
writeln('_______________________________________');
textcolor(12);
writeln('########>>PROGRAM
TAMU HOTEL<<#########');
textcolor(14);
writeln('---------------------------------------');
write('Silahkan
Masukkan Banyak Jumlah Data yang Akan Dihitung :');readln(N);
textcolor(10);
writeln(' |||||');
writeln(' |||||');
textcolor(128);
writeln
('~-~-~-~ Silahkan Masukkan Data Tamu ~-~-~-~');
writeln
('===========================================');
for
i:= 1 to N do begin
textcolor(10);
writeln('___________________');
writeln('Data
Pengunjung ke-',i);
writeln('-------------------');
with
A[i] do begin
writeln('==================================');
write
('Masukkan Nama Pengunjung
:'); readln(NAMA);
write
('Masukkan Kamar Keberapa yang Disewa :
'); readln(KAMAR);
write
('Lamanya Menginap (dalam malam) : '); readln(waktu[1]);
end;
writeln;
end;
textcolor(1);
writeln('!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');
writeln('Berikut
Hasil Perhitungannya');
textcolor(128);
writeln('------------------------------------');
writeln('Nama':8,'':2,
'KAMAR':3, '':2,'PEMBAYARAN Rp.');
writeln('------------------------------------');
for
i:=1 to N do begin
with
A[i] do begin
NA:=
(waktu[1])*350000;
textcolor(10);
write(NAMA:8,
'':2, KAMAR:3, '' :3, NA:0:3);
end;
writeln;
end;
readln;
end.
Logika Program
Uses crt digunakan
untuk mengaktifkan monitor agar dapat dijalankan untuk mengerjakan program
pascal. Type merupakan tipe data untuk menyimpan nilai satu variabelnya. Const max=50; merupakan penentuan
bahwa nilai maximalnya sampai 50. Constant
disingkat Const adalah nilai konstanta (nilai tetap) yang dipasang dalam program ini Record merupakan
sebuah rekaman yang disusun oleh beberapa field, record memiliki kelebihan
untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya.
String adalah
kumpulan dari beberapa kerekter dan panjangnya tidak boleh melebihi 255
karakter. waktu : array [1..2] of real;
itu menunjukkan bahwa array yang digunakan dari 1 sampai 2 dan real menentukan bahwa bilangan tersebut
berisi desimal. End; untuk
mengakhiri blok tersebut.
Tkumpulanwarnet = array[1..max] of TamuHotel;
itu menunjukkan bahwa Tkumpulanwarnet
termasuk Array yang digunakan dari 1 sampai max( nilai terbesar) dari TamuHotel yang merupakan record yang teelah dituliskan di atas
sebelumnya. var merupakan idenfier
dari A yang merupakan
array, i dan N yang termasuk integer , NA (nilai akhir) dan Durasi
yang termasuk bilangan Real .
Begin digunakan
untuk memulai program. clrscr;
digunakan unntuk membersihan layar saat diRUN.
textcolor(15);
, textcolor(12); , textcolor(14); , textcolor(10); merupakan
kode warna yang digunakan untuk memberi warna nanti saatt diRun. Write berfungsi untuk menuliskan seatu variabel ke dalam sebuah komponen
file, sedangkan Adapun writeln
berffungsi mengeksekusi prosedura write lalu kemudan mengeluarkan seebuah
penanda end-of-line(EOL) ke file program. sedangkan readln bertugas mengeksekusi prosedure read kemudian bergerak ke
baris berikutnya dalam file program.
for i:= 1 to N do begin
menunjukan bahwa poses tersebut akan terus berulang sampai nilai N terpenuhi, with A[i] do begin sama seperti for tapi di sini melakukan
pengulangan sampai nilai i terpenuhi.
NA:= (waktu[1])*350000; merupakan
rumus yang digunakan untuk mencari nilai akhir yaitu waktu dari array 1 dikali
350.000 yang nantinyamerupakan hasil dari biaya yang harus dibayar. write(NAMA:8, '':2, KAMAR:3, '' :3,
NA:0:3); digunakan untuk mencetak hasil nanti saat diRUN. End. adalah digunakan untuk mengakhiri
program tersebut.
Output Program
1. Berikut
output program sebelum diRun :
1. Setelah
program diRUN maka akan muncul tampilan sebagai berikut ;
1. Kemudian
mulai untk menjalankan programnya, sebagai contoh kita masukan 1 untuk
banyaknya jumlah data yang akan dihitung kemudian tekan enter maka akan muncul
tampilan seperti gambar di bawah ini ;
1. Kemudian
tinggal kita masukkan data Nama, kamar berapa yang di sewa dan lamanya menginap
seperti gambar berikut :
1. Berikut
adalah hasil dari dari data tersebut ;
Program Sederhana
Menggunakan ARRAY Pada C++
Listing Program
#include
<iostream.h>
#include
<conio.h>
void main()
{
int data[30];
int rata, total = 0;
//input data ke array
{
cout<<" Program
Menentukan Nilai Rata-Rata Siswa & Siswi "<<endl;
cout<<"=================================================="<<endl;
for (int y=0;y<30;y++)
{
cout<<"Silahkan
Masukkan Nilai Agama Setiap Siswa/siswi ["<<y<<"] =
";
cin>>data[y];
cout<<"----------------------------------------------------------
"<<endl;
}
for (int n=0;n<30;n++)
{
cout<<data[n]<<"
";
total
= total + data[n];
}
cout<<""<<endl;
}
rata = total / 30;
cout<<"__________________________________________________________
"<<endl;
cout<<"Jadi Nilai Rata-Rata Dari KE
30 Siswa Tersebut Adalah = "<<rata<<endl;
cout<<"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"<<endl;
cout<<" SELESAI
"<<endl;
getch();
}
Logika
Program
#include<iostream.h>
adalah
Baris pertama tuliskan kode untuk menginstruksikan kepada kompiler untuk
menyisipkan file lain (iostream.h)
saat program dikompilasi. <conio.h> adalah header file yang digunakan untuk
membuat teks antar muka pengguna. Void
main() digunakan untuk menyatakan
fungsi ini tidak memiliki nilai balik. Kemudian tanda { merupakan tanda untuk dimulainya program. int data[30]; merupakan array menunjukkan bahwa data integer
terdiri 0 sampai 30. int rata, total =
0; sedangkan kode tersebut menujukkan bawa Rata termasuk bilangan integer dan totalnya sama dengan 0.
//input
data ke array
adalah komentar yang dituliskan dan tidak akan dieksekusi nanti saat diRun.
kemudian cout<<” "<<endl; digunakan untuk
tempat mengisi tampilan yang nantinya ada setelah di RUN. for (int y=0;y<30;y++) kode tersebut untuk menyatakan bahwa
integer y dimulai dari 0 kemudian y kurang dari 30 maka proses pengulangan akan
berhenti. ["<<y<<"]
kode tersebut untuk menyatan dari banyaknya nilai y tersebut di atas cin>>data[y]; cin untuk membaca
data inputan dari y tersebut yang akan di jalankan kemudian. for
(int n=0;n<30;n++) kode tersebut sama juga prosesnya seperti y hanya
saja variabel y digandi n. total = total
+ data[n]; adalah rumus yang digunakan untuk menghitung total dari jumlah
data, sedangkan rata = total / 30;
adalah rumus yang digunakan untuk menghitung jumlah rata-rata dari semua nilai.
Getch(); merupakan fungsi yang
digunakan untuk membaca input dari keyboard dan
selain itu juga berfungsi untuk menghentikan proses yang berjalan.
Output Program
1.
Setelah program dijalankan maka akan
muncul tampilan yang meminta kita untuk
memsukkan nilai setiap siswa sebagai berikut ;
1.
Silahkan masukkan semua nilai siswa
sampai 30 siswa/siswi seperti gambar di
bawah ini ;
1.
Setelah mencapai 30 maka program akan
menampilkan nilai rata-rata dari ke-30 nilai siswa/siswi tersebut seperti di
bawah ini ;
