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
0 komentar:
Posting Komentar