Diberdayakan oleh Blogger.
RSS

L.A 10



Nama  : Mia Andini (A1312042)
Prody  : TI b
Membuat Program Sederhana Pada Pascal Dengan Menggunakan Menu Array
LISTING PROGRAM PASCAL
uses crt;
var
angka : array [5..7,5..7] of shortint;
a,b,def : integer;
begin
for a:=5 to 7 do
begin
for b:=5 to 7 do
begin
clrscr;
write('kita input angka ',a,'.',b,' :');readln(angka[a,b]);
end;
end;
def:=(angka[5,5]*angka[7,7])+(angka[5,7]*angka[7,5]);
writeln('angka :',def);
readln;
end.


Logika Program
o  Array (larik) : dapat diarikan hampir sama dengan tabel, dimana tabel adalah sekumpulan elemen yang pada setiap elemen nya dapat diakses dengan indeksnya. Array bisa digunakan untuk menyimpan banyak data dalam sebuah tabel terstuktur. Array hanya bisa di isi sesuai dengan kapasitas indeksnya jika indeks yang diakses lebih dari yang ada maka akan terjadi kesalahan (error).
o  uses crt; berfungsi untuk memulai menjalankan program pada pascal.
o  Var arinya singkatan dari variabel, jenis variabel yang digunakan disini adalah variabel bertipe integer.
o  Angka : array[5..7,5..7] of shortint; artinya angka array yang kita gunakan adalah angka 5 sampai dengan 7.
o  a,b,def : integer; variabel yang digunakan adalah variabel A dan B yang bertipe integer.
o  Begin berfungsi untuk memulai menjalankan pada pascal.
o  for a:=5 to 7  do arinya : variabel A akan mengeluarkan 3 angka  dari angka 5 – 7 (5 dan 7) yang akan kita proses pada saat meruning nanti. Pada program array yang saya buat saat ini adalah mengenai hasil perkalian.
o  for b:=5 to 7 do : untuk variabel B ini sama saja cara kerjanya dengan variabel A tadi.
o  Begin berfungsi untuk memulai menjalankan pada pascal.
o  Clrscr untuk membersihkan layar
o  write(‘Masukan angka ‘,a,’.',b,’ :’);readln(angka[a,b]); Masukanlah angka yang ada pada variabel A dan Variabel B yaitu dari angka 5 sampai angka 7
o  end; Untuk mengakhiri program pada pascal, namun untuk menyambung memproses  menjalankan program yang erikutnya di baris berikutnya.
o  def:=(angka[5,5]*angka[7,7])+(angka[5,7]*angka[7,5]); Kita akan memproses hasil kali dari (5x5 , 7x7 , 5x7 dan 7x5) pada saat meruning program.
o  writeln(‘angka :’,def); kemudian program dapat membaca hasil kali yang kita masukan tadi secara otomatis.
o  end. Untuk mengakhiri program pada pascal.


Output Program



Membuat Program Sederhana Pada C++ Dengan Menggunakan Menu Array
Ø  Listing program
#include<conio.h>
 #include<iostream.h>
 void main()
 {
 clrscr();
 int a[5]={2,4,6,8,9};
 int b[5]={1,2,6,7,9};
 int c[5]={10,15,20,25,30};
 int j;
 cout<<endl;
 for (j=0; j<5; j++)
 {
 cout <<"A["<<j<<"]="<<a[j]<<" B["<<j<<"]="<<b[j]<<" C["<<j<<"]="<<c[j]<<endl;
 }
 getch ();
}


Ø Logika Program
o  Array (larik) : dapat diarikan hampir sama dengan tabel, dimana tabel adalah sekumpulan elemen yang pada setiap elemen nya dapat diakses dengan indeksnya. Array bisa digunakan untuk menyimpan banyak data dalam sebuah tabel terstuktur. Array hanya bisa di isi sesuai dengan kapasitas indeksnya jika indeks yang diakses lebih dari yang ada maka akan terjadi kesalahan (error).
o  #include<conio.h> #include adalah salah satu pengarah praprosesor yang tersedia pada C++. File-file yang berakhiran dengan .h disebut file header, yaitu file-file yang berisi berbagai deklarasi, seperti fungsi, variabel dan sebagainya. Baris #include <iostream.h> perlu disertakan pada program yang melibatkan obyek cout. Tanpa kehadiran baris tersebut akan terjadi kesalahan sewaktu program dikompilasi.
o  #include<iostream.h> merupakan library dari bahasa C++ dengan kegunaan untuk memasukkan fungsi clrscr, getch, dll.
o  void main() digunakan untuk menyatakan bahwa fungsi ini tidak memiliki nilai balik. Tanda () digunakan untuk mengapit argumen fungsi, yaitu nilai yang akan dilewatkan ke fungsi. Pada fungsi void main() di atas, tidak ada argumen yang diberikan. Oleh karena itu tdak ada entri di dalam ().
o  clrscr (); berfungsi agar program membersihkan layar pada saat program di jalankan.
o  int a[5]={2,4,6,8,9}; menunjukkan bahwa terdapat array dimensi 1 dengan banyak elemen 5 yang terdiri dari 1, 2, 3, 4, 5 dan bertipe data integer.
o  int b[5]={1,2,6,7,9}; menunjukkan bahwa terdapat array dimensi 1 dengan banyak elemen 5 yang terdiri dari 1, 2, dan elemen yang tidak didefinisikan bernilai 0 serta bertipe data integer.
o  int c[5]={10,15,20,25,30}; menunjukkan bahwa terdapat array dimensi 1 dengan banyak elemen 5 yang terdiri dari 10, 20, 30 dan elemen yang tidak didefinisikan bernilai 0 serta bertipe data integer.
o  int j; menunjukkan bahwa variabel j bertipe data integer.
o  cout<<endl; Pengenal cout merupakan sebuah obyek didalam didalam C++. Obyek ini disediakan oleh C++ untuk mengarahkan data ke standard output (normalnya adalah layar). Tanda “<<” merupakan sebuah operator yang disebut operator penyisipan atau peletakan. Operator ini akan mengarahkan operand (data) yang terletak di sebelah kanannya ke obyek yang terletak di sebelah kiri. Endl akan memindahkan kursor ke baris di bawahnya.
o  for (j=0; j<5; j++) suatu kondisi dimana variabel j berinisialisasi 0 dengan kondisi variabel j lebih kecil daripada 5, bila ya maka program akan memproses dengan rumus j++ yang artinya j = j + 1
o  cout <<”A["<<j<<"]=”<<a[j]<<” B["<<j<<"]=”<<b[j]<<” C["<<j<<"]=”<<c[j]<<endl; Program akan mencetak A[ diikuti dengan perulangan pada j ]= lalu nilai dari array yang berada pada perulangan j lalu akan mencetak B[ diikuti dengan perulangan pada j ]= lalu nilai dari array yang berada pada perulangan j lalu akan mencetak C[ diikuti dengan perulangan pada j ]= lalu nilai dari array yang berada pada perulangan j sampai perulangan tidak terpenuhi.
o   getch(); digunakan untuk mengeksekusi blok instruksi dan statement yang telah ditetapkan sebelumnya. Biasanya di akhiri dengan tanda }
Output Program



  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Laporan akhir 8


Listing Program Pascal Prosedur
Uses crt;
procedure ganti (susu1, susu2, susu3, susu4 : string);
var
susu5 : string;
begin
clrscr;
susu5 := susu4;
susu4 := susu3;
susu3 := susu2;
susu2 := susu1;
susu1 := susu5;
writeln ('susu yang cocok buat anak Anda adalah ',susu1,' ',susu2,' ',susu3,' ',susu4);
end;
var
susu1, susu2, susu3, susu4 : string;
begin
clrscr;
write ('Anda memilih susu1 =  ');
readln (susu1);
write ('Anda memilih susu2 =  ');
readln (susu2);
write ('Anda memilih susu3 =  ');
readln (susu3);
write ('Anda memilih susu4 =  ');
readln (susu4);
ganti (susu1, susu2, susu3, susu4);
writeln ('Susu yang berhadiah adalah : ',susu1,' & ', susu2);
writeln ('Susu yang diskon 10% adalah : ',susu3,'& ',susu4);
readln
end.

Logika Program
uses crt;
(unit yang digunakan dalam program)
procedure ganti (susu1, susu2, susu3, susu4 : string);
(memulai proses prosedur dengan nama ‘macam susu’, dimana nilai variabel yang akan diproses)
begin
(awal dari blok statement prosedur)
var
(pendeklarasian variabel)
clrscr;
(membersihkan layar)
writeln;
(menempatkan pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)
end;
(akhir dari blok statement prosedur)
var
(pendeklarasian variabel)
begin
(awal dari blok statement prosedur)
write
(mencetak kalimat, lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan)
readln;
(menunggu penekanan enter)
ganti (susu1, susu2, susu3, susu4);
(Pendeklarasian data yang dimasukkan)
readln;
(menunggu penekanan enter)
end.
(akhir program)

Output Program

Proses prosedur yang dimasukkan
 


Kemudian kita tekan enter maka akan keluar sebagai berikut :


Listing program Pascal menggunakan fungsi
Program Fungsi;
uses crt;
function besar (a,b : integer): integer;
begin
if a>b then
besar := a
else
besar := b;
end;
var
a,b: integer;
begin
clrscr;
write('Nilai Bilangan 1 = '); readln(a);
writeln;
write('Nilai Bilangan 2 = '); readln(b);
writeln;
write('Bilangan Terbesar = ', besar (a,b):5);
readln;
end.
Logika program
Program Fungsi;
(judul program)
uses crt;
(unit yang digunakan dalam program)
function besar (a,b : integer): integer;
(memulai proses function dengan nama ‘besar’, dimana nilai variabel a dan b yang ada dip roses tersebut bertipe integer / bilangan bulat)
begin
(awal dari blok statement function ‘besar’)
if a>b then
(memulai printah kondisi, dimana jika nilai dari variabel a lebih besar dari nilai variabel b, maka akan menjalankan perintah di bawah)
besar := a
(nilai procedure ‘besar’ akan sama dengan nilai variabel a)
else
(selain kondisi di atas, maka akan menjalankan perintah di bawah)
besar := b;
(nilai procedure ‘besar’ akan sama dengan nilai variabel b)
end;
(akhir dari blok statement function ‘besar’)
var
(pendeklarasian variabel)
a,b: integer;
(Pendeklarasian data variabel bertipe integer / bilangan bulat)
begin
(awal dari blok statement)
clrscr;
(membersihkan layar)
write(‘Nilai Bilangan 1 = ‘); readln(a);
(mencetak kalimat ‘Nilai Bilangan 1 = ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘a’)
writeln;
(menempatkan pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)
write(‘Nilai Bilangan 2 = ‘); readln(b);
(mencetak kalimat ‘Nilai Bilangan 2 = ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘b’)
writeln;
(menempatkan pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)
write(‘Bilangan Terbesar = ‘, besar (a,b):5);
(mencetak kalimat ‘Nilai Terbesar = ‘ lalu memasukan nilai procedure ‘besar’, dimana nilainya didapat dari nilai variabel a dan b yang telah dimasukan sebelumnya dengan penempatan nilai variabel setelah 5 x spasi )
readln;
(menunggu penekanan enter)
end.
(akhir program)












Output program
Misalnya nilai yang dimasukan untuk nilai 1 = 48 dan nilai 2 = 79 maka output yang keluar adalah :




Listing program CPP menggunakan prosedur
#include<stdio.h>
int Tambah4(int&M)
{
M = M + 4;
printf("\n Nilai di dalamfungsi 4 + M = %d",M);
return M;
}
int main()
{
int M;
printf("Masukan Nilai M : ");scanf("%d",&M);
printf("\n sebelumfungsidijalankan M = %d",M);
printf("\n HasilFungsi M = %d",M, Tambah4(M));
printf("\n setelahfungsidijalankan M = %d",M);
return 0;
}
Logika program
#include<stdio.h>
Perintah ini digunakan untuk mengikut sertakan sebuah file library dalam hal ini disebut sebagai header
int Tambah4(int&M)
Pendeklarasian variable bertipe integer dengan nama variable , karena pada program ini menggunakan prosedur tambah.
{
ini merupakan tubuh fungsi main.
M = M + 4;
prosedur yang akan dijalankan.
printf("\n Nilai di dalamfungsi 4 + M = %d",M);
berfungsi untuk menampilkan karakter ke layar monitor,
return M;
adalah kembali ke nilai M
int main()
Pendeklarasian variable bertipe integer dengan nama variable
{
ini merupakan tubuh fungsi main
int M;
Pendeklarasian variable bertipe integer dengan nama variable M
printf("Masukan Nilai M : ");scanf("%d",&M);
berfungsi untuk menampilkan karakter ke layar monitor,

scanf("%d",&M);
membaca karakter yang di masukkan
printf("\n sebelumfungsidijalankan M = %d",M);
berfungsi untuk menampilkan karakter ke layar monitor,
printf("\n HasilFungsi M = %d",M, Tambah4(M));
berfungsi untuk menampilkan karakter ke layar monitor,
printf("\n setelahfungsidijalankan M = %d",M);
berfungsi untuk menampilkan karakter ke layar monitor,
return 0;
deklarasi kembali ke variable
}
pengakhir program

Output program

Listing Program C++ Menggunakan Fungsi
#include<conio.h>
#include<stdio.h>
#include<iostream.h>
#include<iomanip.h>
char gol;
int lama,harga,denda,total;
hargasewa()
{
if(gol=='A' || gol=='a')
{
harga=25000;
}
else if(gol=='B' || gol=='b')
{
harga=30000;
}
else if(gol=='C' || gol=='c')
{
harga=32000;
}
else
{
cout<<"Tak ada dalam pilihan";
harga=50000;
// getch();
// goto awal;
}
}
dendasewa()
{
if(lama>5)
{denda=5000;}
else
{denda=0;}
}
totalharga()
{
total=harga+denda;
}
main()
{
int kembali,bayar;
// awal:
clrscr();
cout<<"-----Selamat Datang di Wahana Bermain Keluarga Micii Beach-----"<<endl;
cout<<"Anda dapat Bermain,Bersantai dan Menikmati Indahnya Panorama pantai"<<endl;
cout<<"Disini Kami menyediakan Penyewaan Banana Boat"<<endl;
cout<<"Masukkan golongan Banana Boat yang Anda inginkan [A/B/C] : ";cin>>gol;
hargasewa();
cout<<"Masukan Lama Sewa : ";cin>>lama;
dendasewa();
totalharga();
cout<<"-------------------------------------------"<<endl;
cout<<"Harga Sewa Banana Boat = Rp. "<<setiosflags(ios::right)<<setw(6)<<harga<<endl;
cout<<"D e n d a = Rp. "<<setiosflags(ios::right)<<setw(6)<<denda<<endl;
cout<<"Total Harga = Rp. "<<setiosflags(ios::right)<<setw(6)<<total<<endl;
cout<<"B a y a r = Rp. "; cin>>bayar;
cout<<" ------------------------------------------"<<endl;
kembali=bayar-total;
cout<<"Uang Kembali = Rp. "<<setiosflags(ios::right)<<setw(6)<<kembali<<endl;
cout<<"==========================================="<<endl;
cout<<"Terima Kasih Atas Kunjungan Anda"<<endl;
getch();
}

Logika Program
Fungsi memiliki pengertian yang yang sama dengan prosedur, hanya saja letak perbedaanya adalah fungsi memiliki hasil keluaran (output) sedangkan pada prosedur hanya berisi proses. Fungsi adalah suatu bagian program yang mengerjakan satu tugas dan hasilnya biasanya hanya satu.
Include : Perintah ini digunakan untuk mengikut sertakan sebuah file library dalam hal ini disebut sebagai header. Dalam program ini saya menggunakan beberapa file header yaitu : #include<conio.h> , #include<stdio.h> , #include<iostream.h> dan #include<iomanip.h>.
char gol; artinya tipe data yang digunakan adalah karakter untuk variabel berupa golongan / pilihan.
int lama,harga,denda,total; Pendeklarasian variable bertipe integer dengan nama variable “lama” , “harga”, “denda”, dan “total”.
hargasewa() masukan harga sewa buku yang telah kita pilih.
{ ini merupakan tubuh fungsi main.
Kemudian masukan golongan Banana Boat yang ingin kita sewa dengan harga yang sudah di tentukan. sbb :
·         Gol a = 25000
·         Gol b=30000
·         Gol c=32000
cout<<”Tak ada dalam pilihan”; Artinya jika anda memilih buku yang di luar daftar buku yang ada, misalnya anda memasukan buku gol D maka program akan kembali ke menu awal pada saat di runing / di jalankan.
 getch();Kodingan atau instruksi yang berfungsi sebagai pengakhir program dan biasanya di akhiri dengan tanda / symbol “}”.
 goto awal; program akan kembali ke menu awal dan meminta anda untuk memasukan pilihan kembali.Disini denda berlaku apabila lama penyewaan buku lebih dari 5 jam. Keterlambatan 1 jam maka dikenai denda Rp. 5000 Kemudian total harga = harga sewa + denda (jika anda kena denda)
Clrscr () untuk membersihkan layar.
} mengakhiri program.

Output Program

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS